1,使用ADO connection對(duì)象
十年的旺蒼網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都全網(wǎng)營銷的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整旺蒼建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“旺蒼網(wǎng)站設(shè)計(jì)”,“旺蒼網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
首先,要建立ADO引用,定義connection這個(gè)類,然后實(shí)例化對(duì)象。
代碼完成如下:
span?style="font-size:18px;"Dim?objCn?As?New?Connection,?objRs?As?New?Recordset????????
objCn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.3.51;"??"Data?Source="??App.Path??"\實(shí)例01.mdb"
objCn.Open??
/span
2,使用ODBC數(shù)據(jù)源
首先,打開電腦上的ODBC數(shù)據(jù)源,建立關(guān)系。
步驟如下:
1),打開電腦上的ODBC數(shù)據(jù)源
如下圖所示:
? ? ? ? ?
2)點(diǎn)擊添加
3)命名
4)和數(shù)據(jù)庫源建立關(guān)系
5)用代碼實(shí)現(xiàn)連接
span?style="font-size:18px;"???????
dim?objCn?As?Connection??
Set?objCn?=?New?Connection??
objCn.Open?"DSN=實(shí)例2DSN"??
/span
3、ADO Data 控件創(chuàng)建連接
1)右擊data控件,選擇ADODC屬性
2)從三種連接資源中選擇一種。
使用data Link 文件:直接點(diǎn)擊瀏覽,找到包含連接字符串的.udl文件即可
使用ODBC數(shù)據(jù)源連接,單擊新建
選擇用戶數(shù)據(jù)庫,之后的操作跟2中步驟一樣。
使用連接字符串:單擊生成
測試連接
4、使用數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建數(shù)據(jù)庫連接
添加引用
右擊創(chuàng)建連接,在右擊想要連接的屬性,之后的操作跟data控件中使用字符串中的操作一致
VB.NET中有控件可以真接接點(diǎn)擊屬性進(jìn)行連接配置.
SqlConnect數(shù)據(jù)連接控件.點(diǎn)擊ConnectionString屬性進(jìn)行配置就可以了.
VB.NET中沒有RecordSet了.取而代之的是DataSet.
在VB點(diǎn)虐 中可以先用SqlConnection對(duì)像來連接數(shù)據(jù)庫再用SqlDataAdapter對(duì)像來讀取數(shù)據(jù)并填充到DataSet里.然后就可以進(jìn)行數(shù)據(jù)綁定了.
例:
dim
conn
as
SqlConnection
dim
da
as
SqlDataAdapter
dim
ds
as
Dataset
set
conn
=
new
SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da
=
new
SqlDataAdapter
(,conn)
da.fill(ds)
Dim
sqlConnection1
As
SqlClient.SqlConnection
Dim
strConnect
As
String=”data
source=服務(wù)器名;initial
catalog=數(shù)據(jù)庫名;user
id=sa;password=;”
sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open
‘打開數(shù)據(jù)庫
sqlConnection1.close
‘關(guān)閉連接,釋放資源
1)連接Sql
Server數(shù)據(jù)庫
Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服務(wù)器名;Uid=sa;pwd=;Database=
數(shù)據(jù)庫名;”
odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)