VB與SQL Server連接的三種方式

VB與SQL Server連接的三種方式（教程）隨著大家課程設(shè)計(jì)的臨近，大家都在為課程設(shè)計(jì)在找資料。網(wǎng)上的、書(shū)上的等一些資料很全面都不符合我們的實(shí)際，我本人特整理出VB與SQL Server連接的幾種方法，供大家學(xué)習(xí)參考，也希望大家能夠互相幫助，共同完美地完成這次的課程設(shè)計(jì)。一、一.VB與SQL Server連接方法一：使用Adodc控件在vb的工程中選擇部件，可添加Adodc部件如下圖所示：添加Microsoft ADO Data Control 6.0 控件。設(shè)置adodc控件的屬性（在vb中畫(huà)一個(gè)adodc控件，并右擊，彈出右鍵菜單，選擇adodc屬性）：?jiǎn)螕羯砂粹o，彈出數(shù)據(jù)鏈接屬性，選擇Microsoft OLE DB Provider for SQL Server下一步，選擇本機(jī)的服務(wù)器（一定要和SQL服務(wù)器的名稱一致），根據(jù)自己的登陸設(shè)置選擇輸入登錄服務(wù)器的信息，選擇自己需要使用的數(shù)據(jù)庫(kù)（在本例中我選擇創(chuàng)建的student數(shù)據(jù)庫(kù)），可以測(cè)試連接。在回到adodc屬性頁(yè)，更改記錄源，在命令類(lèi)型中選擇2，在表或存儲(chǔ)過(guò)程名稱中選擇你需要使用的表或存儲(chǔ)過(guò)程。在添加一些需要的控件，設(shè)置控件的屬性，本例中一設(shè)置text1屬性為例。單擊text1，在vb的屬性框中出現(xiàn)text1屬性，設(shè)置DataSoure屬性為一配置好的adodc1控件，在DataFileld屬性中選擇需要使用的表中的字段(這里我選擇學(xué)生基本信息表中的學(xué)號(hào)字段。)可以運(yùn)行了，界面如下：大家可以通過(guò)上面的方法連接數(shù)據(jù)庫(kù)，并可以通過(guò)vb的學(xué)習(xí)編寫(xiě)代碼實(shí)現(xiàn)更強(qiáng)大的功能。二、VB與SQL Server連接方法二（使用DSN方法）我們需要首先做的事就是配置自己的DSN，如何配置，請(qǐng)看我一一到來(lái)：在控制面板里管理工具，選擇里面的數(shù)據(jù)源 (ODBC)，彈出ODBC數(shù)據(jù)源管理器，選擇添加，選擇驅(qū)動(dòng)程序（SQL Server）點(diǎn)完成，彈出創(chuàng)建到SQL Server的新數(shù)據(jù)源，在名稱中選擇自己喜歡的都可以哦，在服務(wù)器中粘貼你服務(wù)器的名稱（一定要使用粘貼，不可通過(guò)下拉框選擇，實(shí)際上，你通過(guò)下拉框也不能選擇。）點(diǎn)下一步點(diǎn)下一步了（這步就不用我說(shuō)了吧）更改默認(rèn)的數(shù)據(jù)庫(kù)，選擇自己創(chuàng)建的需要的數(shù)據(jù)庫(kù)名稱（本例中我選擇student數(shù)據(jù)庫(kù)）點(diǎn)下一步點(diǎn)完成，彈出可以測(cè)試數(shù)據(jù)源，點(diǎn)確定，再三次點(diǎn)確定。DSN即配置完畢，那就看我們?cè)趺词褂昧?。打開(kāi)vb。像上面介紹的添加adodc控件，并設(shè)置adodc控件的屬性：選擇使用ODBC數(shù)據(jù)資源名稱。通過(guò)下拉框選擇剛創(chuàng)建的DSN（stu）點(diǎn)擊應(yīng)用，然后選擇積累源，確定。后面跟第一種方法都一樣了。（不會(huì)這寫(xiě)步驟的再和我聯(lián)系）二、三.VB與SQL Server連接方法三（使用代碼實(shí)現(xiàn)）使用此種方法一定要在工程的引用項(xiàng)中配置一個(gè)驅(qū)動(dòng)，（Microsoft ActiveX Data Objects 2.6Library）確定。再在一些控件的代碼中添加以下代碼：Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()cn.ConnectionString = DRIVER=SQLServer;SERVER=B1B0D3A0BF844A5MZ;UID= & & ;PWD= & & ;DATABASE=studentcn.Openrs.Open select *from 學(xué)生基本信息表, cn, adOpenKeyset, adLockOptimisticIf rs.RecordCount 0 Thenrs.MoveFirstEnd IfFor i = 0 To rs.RecordCount - 1Print rs.Fields(0), rs.Fiel