如何在vb中调用数据库

在VB中调用数据库通常使用ADO（ActiveX Data Objects）技术。以下是一个简单的示例代码，演示如何在VB中连接到数据库并执行查询操作：

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 

在上面的代码中，首先创建了一个Connection对象conn并设置其连接字符串，然后打开连接。接着创建了一个Recordset对象rs，并将其与连接关联起来，执行查询操作并遍历结果集中的数据，最后关闭连接和释放对象的引用。

需要注意的是，代码中的连接字符串根据不同的数据库类型和位置可能会有所不同。在示例代码中使用的是Microsoft Access数据库的连接字符串，可以根据实际情况进行调整。