VB語言使用ADO串連、操作SQLServer資料庫教程

標籤：分享   來講   好的   word   oledb   exe   副本   串連數   文本   

VB語言使用ADO串連、操作SQLServer資料庫教程

這篇文章主要介紹了VB語言使用ADO串連、操作SQLServer資料庫教程,本文講解詳細、代碼中有大量注釋,是非常好的一篇教程,需要的朋友可以參考下

幾年前學過的VB幾乎忘光了，這幾天複習了下。VB串連ADO資料庫並不是非常難。

串連第一步（要仔細看）

對於小白來講，這裡的教程最詳細，串連ADO資料庫第一步，要添加什麼組件呢？全稱是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 組件。

在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)組件裡有一個名叫：Adodc資料控制項，要將它添加。在Adodc資料控制項資料位元置中找到ACCES。

控制項引用的方法（值指的是姓名）

代碼如下:
For i = 1 To Adodc1.Recordset.RecordCount
     If Not Adodc1.Recordset.EOF Then

 

      Combo1.AddItem Adodc1.Recordset.Fields("值").Value

      Adodc1.Recordset.Movenext
End If
Next i

 

該代碼引用的編寫者是ydl890406大大，在VB群中寫這東西時，讓我借用了，後來我發現有很多錯誤，y大神修改幾次後的還是有錯誤，乾脆重寫了一遍，這就是後來的代碼。時間過去的很快，VB群也解散了。後來不知為何，現在很多的教程都用了這段代碼。

第二部分是AOD的代碼串連，由於第二部分涉及到Recordset對象和Connection對象，自己學一下，完全可以自己編寫。

何為Recordset對象和Connection對象，Connection對象是與資料來源的串連，Recordset對象是操作資料。

尋找Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 組件

VB用ADO串連SQLServer資料庫

?

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111

‘資料來源資訊常量 Public Const conn As String = "Provider = SQLOLEDB.1;Password = sa; UserID = sa; Initial Catalog = StudentFiles; Data Source = localhost"  Public Const CONNECT_LOOP_MAX = 10 ‘一次執行connect操作，可以訪問資料庫的次數  Private IsConnect As Boolean ‘標記資料庫是否串連  Private Connect_Num As Integer ‘標記執行Connect()函數後訪問資料的次數  Private cnn As ADDODB.Connection ‘串連資料庫的Connect對象   Private re As ADDODB.Recordset ‘儲存結果集的Recordset對象 //串連資料庫 Private Sub Connect() ‘如果串連標記為真，則返回。 IF IsConnect = True Then   Exit Sub End If  Set cnn = New ADODB.Connection ‘關鍵new用於建立新對象cnn   cnn.ConnectionString = conn   cnn.Open ‘判斷串連的狀態 If cnn.State <> adStateOpen Then   MsgBox"資料庫連接失敗"   End End If  ‘設定串連標識，表示已經串連到資料庫 IsConnect = TrueEnd Sub  ‘斷開與資料庫的串連Private Sub DisConnect() Dim rc As Long  If IsConnect = False Then   Exit Sub End If ‘關閉串連 cnn.Close ‘釋放cnn Set cnn = Nothing IsConnect = FalseEnd Sub ‘使用Connect_Num控制資料連線Public Sub DB_Connect()  Connect_Num = Connect_Num + 1  ConnectEnd Sub ‘使用Connect_Num控制資料斷開Public Sub DB_Disconnect()If Connect_Num >= CONNECT_LOOP_MAX Then  Connect_Num = 0  Disconnect End If End Sub ‘強制關閉api方式訪問俄的資料庫，計數器複位Public Sub DBapi_Disconnect()  Connect_Num = 0  DisconnectEnd Sub ‘執行資料庫操作語言‘byval 就是按參數的值傳遞，再傳遞過程中，參數不會發生變化(也就是將參數值而不是將地址傳遞給過程的方式，這就使過程訪問發哦變數的副本，過程不可改變變數的值)；與之對應的是byref,指按參數的地址傳值，byref可以省略Public Sub SQLExt(ByVal TmpSQLstmt As String )     Dim cmd As New ADODB.Command ‘建立Command對象cmd     DB_Connect ‘串連資料庫     Set cmd.ActiveConnection = cnn ‘設定cmd的ActiveConnect屬性，指定與其關聯的資料庫連接   cmd.CommandText = TmpSQLstmt ‘設定要執行的命令文本   ‘MsgBox TmpSQLstmt   cmd.Execute ‘執行命令   Set cmd = Nothing   DB_DisConnect ‘斷開與資料庫的串連 End Sub ‘執行資料庫查詢語句Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset     Dim rst As New ADODB.Recordset ‘建立Rescordset對象rst   DB_Connect ‘串連資料庫   Set rst.ActiveConnection = cnn ‘設定rst的ActiveConnection屬性,指定與其相關的資料庫的串連   rst.CursorType = adOpenDynamic ‘設定遊標類型   rst.LockType = adLockOptimistic ‘設定鎖定類型   rst.Open TmpSQLstmt ‘開啟記錄集   Set QueryExt = rst ‘返回記錄集   End Function

VB語言使用ADO串連、操作SQLServer資料庫教程