Vb6.0連接數(shù)據(jù)庫(kù)方式

Vb6.0連數(shù)據(jù)庫(kù)1.1ADO(ActiveXDataObject)連接方式在連接數(shù)據(jù)庫(kù)前，首先要在VisualBasic6.0菜單中“工程”一＞“引用沖選擇MicrosoftActiveXDataObjects2.6Library和MicrosoftActiveXDataObjectsRecordset2.6Library這兩個(gè)組件。實(shí)例：以建立登陸系統(tǒng)為例，介紹無源數(shù)據(jù)庫(kù)連接。在MicrosoftSQLServer2000中建立一個(gè)Student的數(shù)據(jù)庫(kù)，在Student數(shù)據(jù)庫(kù)中建立login_user(name,password)的數(shù)據(jù)表，MicrosoftSQLServer服務(wù)器的名為data_server。代碼如下：OptionExplicitPublicLoginSucceededAsBoolean'引用MicrosoftActiveXDataObjects2.6Library'定義連接對(duì)象和記錄集DimconnAsADODB.ConnectionDimrsAsADODB.Recordset'對(duì)取消按鈕單擊事件的響應(yīng)PrivateSubcmdCancel_Click()'設(shè)置全局變量為false'不提示失敗的登錄LoginSucceeded=FalseMe.HideEndSub'對(duì)登錄按鈕單擊事件的響應(yīng)PrivateSubcmdOK_Click()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordset'建立無源數(shù)據(jù)庫(kù)連接conn.ConnectionString="driver={sqlserver};server=data_server;uid=sa;pwd=;Database=student"conn.ConnectionTimeout=50conn.OpenDimstrAsString'連接連接對(duì)象Setrs.ActiveConnection=conn'設(shè)置游標(biāo)類型rs.CursorType=adOpenDynamicIfTrim(txtUserName.Text="")ThenMsgBox"用戶名不能為空，請(qǐng)重新輸入用戶名！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElse'設(shè)置查詢字符串str="select*fromlogin_userwherename='"&Trim(txtUserName.Text)&"'"rs.OpenstrIfrs.EOF=TrueThenMsgBox"沒有這個(gè)用戶，請(qǐng)重新輸入用戶名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElse'登錄成功，連接主窗口If(Trim(txtPassword.Text)=Trim(rs.Fields("password")))ThenLoginSucceeded=TrueMe.Hidemain.ShowElseMsgBox"密碼不正確，請(qǐng)重輸入密碼!",,"警告"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndIfEndIfEndSub2通過配置ODBC環(huán)境，進(jìn)行數(shù)據(jù)源的注冊(cè)，對(duì)數(shù)據(jù)庫(kù)進(jìn)行連接、訪問和操作。2.1ODBC數(shù)據(jù)源分為以下三類：（1）用戶DSN：只有創(chuàng)建數(shù)據(jù)源的用戶才可以使用他們自己創(chuàng)建的數(shù)據(jù)源，而且只能在當(dāng)前的計(jì)算機(jī)上使用。（2）系統(tǒng)DSN：任何使用你的計(jì)算機(jī)的用戶和程序都可以使用的DSN。（3）文件DSN：除了具有系統(tǒng)DSN的功能之外，還能被其它用戶在其它計(jì)算機(jī)上使用。2.2創(chuàng)建ODBC數(shù)據(jù)源的步驟（1）啟動(dòng)控制面板。（2）雙擊ODBC圖標(biāo)，啟動(dòng)ODBC數(shù)據(jù)源。（3）換到“用戶DSN”標(biāo)簽，單擊“添加”。選擇SQLServer作為數(shù)據(jù)源的驅(qū)動(dòng)程序。（4）為數(shù)據(jù)源命名，按提示操作即可創(chuàng)建ODBC數(shù)據(jù)源。2.3創(chuàng)建數(shù)據(jù)庫(kù)連接創(chuàng)建數(shù)據(jù)源是進(jìn)行有源數(shù)據(jù)庫(kù)連接的第一步，下面同樣是運(yùn)用ADO對(duì)象模型的主要元素Connection（連接）進(jìn)行源數(shù)據(jù)庫(kù)連接。ConnectionString是Connection對(duì)象的屬性名稱，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息，包括Database、DSN、UID等。Database:字符串表達(dá)式，指定服務(wù)器上的數(shù)據(jù)庫(kù)名稱。UID:字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶標(biāo)識(shí)(用戶賬號(hào)名)。PWD:字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶口令。DSN：字符串表達(dá)式，指定連接的ODBC數(shù)據(jù)源名稱。利用已配置好的ODBC數(shù)據(jù)源進(jìn)行連接。實(shí)例:以建立查詢系統(tǒng)為例，介紹有源數(shù)據(jù)庫(kù)連接。創(chuàng)建ODBC數(shù)據(jù)源名稱為stud，通過ADO與數(shù)據(jù)庫(kù)student進(jìn)行連接，代碼如下：DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString="dsn=stud;uid=sa;pwd=;database=student"conn.OpenDimstrAsStringSetrs.ActiveConnection=connrs.CursorType=adOpenDyna