Vb0連接數(shù)據(jù)庫方式

1、Vb6.0 連數(shù)據(jù)庫1.1 ADO(ActiveX Data Object) 連接方式 在連接數(shù)據(jù)庫前，首先要在 Visual Basic 6.0 菜單中“工程” 引“用”中選擇 Microsoft ActiveX Data Objects 2.6 Library 和 Microsoft ActiveX Data Objects Recordset 2.6 Library 這兩個組件。實例：以建立登陸系統(tǒng)為例，介紹無源數(shù)據(jù)庫連接。在Microsoft SQL Server 2000 中建立一個 Student 的數(shù)據(jù)庫，在 Student 數(shù)據(jù)庫中建立 login_user(name,pass

2、word) 的數(shù)據(jù)表， Microsoft SQL Server 服務器的名為 data_server 。代碼如下：Option ExplicitPublic LoginSucceeded As Boolean'引用 Microsoft ActiveX Data Objects 2.6 Library'定義連接對象和記錄集Dim conn As ADODB.ConnectionDim rs As ADODB.Recordset'對取消按鈕單擊事件的響應Private Sub cmdCancel_Click()'設置全局變量為 false '不提示失敗的登

3、錄LoginSucceeded = FalseMe.HideEnd Sub'對登錄按鈕單擊事件的響應Private Sub cmdOK_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset'建立無源數(shù)據(jù)庫連接conn.ConnectionString="driver=sql server;server=data_server;uid=sa;pwd=;Database=student" conn.ConnectionTimeout = 50conn.OpenDim str As S

4、tring'連接連接對象Set rs.ActiveConnection = conn'設置游標類型rs.CursorType = adOpenDynamicIf Trim(txtUserName.Text = "") ThenMsgBox " 用戶名不能為空，請重新輸入用戶名！ ", vbOKOnly + vbExclamation,Ab. ii"警告" txtUserName.SetFocusElse'設置查詢字符串str = "select * from login_user where name

5、 ='" & Trim(txtUserName.Text) & "'" rs.Open strIf rs.EOF = True ThenMsgBox " 沒有這個用戶，請重新輸入用戶名 !", vbOKOnly + vbExclamation, " 警 告"txtUserName.SetFocusElse'登錄成功，連接主窗口If (Trim(txtPassword.Text) = Trim(rs.Fields("password") Then LoginSucce

6、eded = TrueMe.Hide main.ShowElseMsgBox "密碼不正確，請重輸入密碼 !", , "警告" txtPassword.SetFocusSendKeys "Home+End"End IfEnd IfEnd IfEnd Sub 2 通過配置 ODBC 環(huán)境， 進行數(shù)據(jù)源的注冊， 對數(shù)據(jù)庫進行連接、 訪問和操作。2.1 ODBC 數(shù)據(jù)源分為以下三類：（1）用戶 DSN ：只有創(chuàng)建數(shù)據(jù)源的用戶才可以使用他們自己創(chuàng)建的數(shù)據(jù)源，而且只能在當前的計算機上使用。（2）系統(tǒng) DSN ：任何使用你的計算機的用戶和程序都可

7、以使用的 DSN 。（3）文件 DSN ：除了具有系統(tǒng) DSN 的功能之外，還能被其它用戶在其它計算機上使用。2.2 創(chuàng)建 ODBC 數(shù)據(jù)源的步驟（ 1）啟動控制面板。（ 2）雙擊 ODBC 圖標，啟動 ODBC 數(shù)據(jù)源。（3）換到用戶DSN標簽，單擊添加”選擇SQLServer作為數(shù)據(jù)源的驅動程序。（ 4）為數(shù)據(jù)源命名，按提示操作即可創(chuàng)建 ODBC 數(shù)據(jù)源。2.3 創(chuàng)建數(shù)據(jù)庫連接 創(chuàng)建數(shù)據(jù)源是進行有源數(shù)據(jù)庫連接的第一步，下面同樣是運用 ADO 對象模型的 主要元素 Connection （連接）進行源數(shù)據(jù)庫連接。ConnectionString 是 Connection 對象的屬性名稱，提供

8、數(shù)據(jù)提供者或服務提供 者打開到數(shù)據(jù)源的連接所需要的特定信息，包括Database 、DSN 、UID 等。( 1)Database ：字符串表達式，指定服務器上的數(shù)據(jù)庫名稱。(2) UID:字符串表達式，為ODBC數(shù)據(jù)源指定用戶標識(用戶賬 號名)。(3) PWD :字符串表達式，為 ODBC 數(shù)據(jù)源指定用戶口令。(4) DSN :字符串表達式，指定連接的 ODBC數(shù)據(jù)源名稱。 利用已配置好的 ODBC 數(shù)據(jù)源進行連接。 實例:以建立查詢系統(tǒng)為例，介紹有源數(shù)據(jù)庫連接。創(chuàng)建 ODBC 數(shù)據(jù)源名稱為 stud，通過ADO與數(shù)據(jù)庫student進行連接，代碼如下：Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub Form_Load()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student" conn.OpenDim str As StringSet rs.ActiveConnection = connrs.CursorType = adOpenDynamicstr = "sel