vb6.0读取access数据库的简单代码
在VB 6.0中，读取Access（mdb）数据库的信息，可以使用ADO对象。以下是简单的示例代码：
```vb
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'设置连接字符串
cstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydatabase.mdb"
'打开数据库连接
Set conn = New ADODB.Connection
cconn.Open cstrConn
'创建Recordset对象并打开记录集
Set rs = New ADODB.Recordsetrsrc.Open "SELECT * FROM mytable", conn, adOpenStatic
'读取数据
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value & "," & rs.Fields(1).Value
de Ws
End Do
'关闭Recordset和数据库连接
cconn.Closersrc.Close
Set rs = Nothing
cconn.Close
Set conn = Nothing
```
这段代码创建了一个ADO的Connection对象，并打开了Access数据库。然后创建一个Recordset对象并打开一个记录集，读取数据后关闭记录集和数据库连接。这个示例展示了如何连接到Access数据库并从中获取数据。
```vb
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'设置连接字符串
cstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydatabase.mdb"
'打开数据库连接
Set conn = New ADODB.Connection
cconn.Open cstrConn
'创建Recordset对象并打开记录集
Set rs = New ADODB.Recordsetrsrc.Open "SELECT * FROM mytable", conn, adOpenStatic
'读取数据
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value & "," & rs.Fields(1).Value
de Ws
End Do
'关闭Recordset和数据库连接
cconn.Closersrc.Close
Set rs = Nothing
cconn.Close
Set conn = Nothing
```
这段代码创建了一个ADO的Connection对象，并打开了Access数据库。然后创建一个Recordset对象并打开一个记录集，读取数据后关闭记录集和数据库连接。这个示例展示了如何连接到Access数据库并从中获取数据。
文件大小：21.12KB
评论区