在VB中調(diào)用數(shù)據(jù)庫通常使用ADO(ActiveX Data Objects)技術(shù)。以下是一個簡單的示例代碼,演示如何在VB中連接到數(shù)據(jù)庫并執(zhí)行查詢操作:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
conn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = conn
rs.Source = "SELECT * FROM Table1"
rs.Open
Do While Not rs.EOF
MsgBox rs("Field1")
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
在上面的代碼中,首先創(chuàng)建了一個Connection對象conn并設(shè)置其連接字符串,然后打開連接。接著創(chuàng)建了一個Recordset對象rs,并將其與連接關(guān)聯(lián)起來,執(zhí)行查詢操作并遍歷結(jié)果集中的數(shù)據(jù),最后關(guān)閉連接和釋放對象的引用。
需要注意的是,代碼中的連接字符串根據(jù)不同的數(shù)據(jù)庫類型和位置可能會有所不同。在示例代碼中使用的是Microsoft Access數(shù)據(jù)庫的連接字符串,可以根據(jù)實際情況進行調(diào)整。