|
2.4 創(chuàng)建有源數(shù)據(jù)庫連接
創(chuàng)建數(shù)據(jù)源是進(jìn)行有源數(shù)據(jù)庫連接的第一步，下面同樣是運(yùn)用ADO對象模型的主要元素Connection（連接）進(jìn)行源數(shù)據(jù)庫連接。
ConnectionString是Connection對象的屬性名稱，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字符串表達(dá)式，指定服務(wù)器上的數(shù)據(jù)庫名稱。
（2） UID：字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶標(biāo)識（用戶賬號名）。
（3） PWD：字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶口令。
（4） DSN：字符串表達(dá)式，指定連接的ODBC 數(shù)據(jù)源名稱。
利用已配置好的ODBC數(shù)據(jù)源進(jìn)行連接。
實例：以建立查詢系統(tǒng)為例，介紹有源數(shù)據(jù)庫連接。創(chuàng)建ODBC數(shù)據(jù)源名稱為stud，通過ADO與數(shù)據(jù)庫student進(jìn)行連接，代碼如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
rs.Open str
txtUserName.Text = rs.Fields("name")
txtPassword.Text = rs.Fields("password")
End Sub
|
|
|
