UC知道vb连接数据库问题～～
来源：百度知道 编辑：UC知道 时间：2024/05/05 15:52:15
模块中
Public con As New Connection
Public com As New Command
Public rst As New Recordset
下面是窗口中..
Private Sub Form_Load()
rst.Open "provider=microsoft.jet.oledb.4.0;data Source=" & App.Path & "\db1.mdb;"
rst.CursorLocation = adUseClient
rst.Open "select * from cji", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
con.Close
End Sub
那里出错拉~帮忙看一下啊
Public con As New Connection
Public com As New Command
Public rst As New Recordset
下面是窗口中..
Private Sub Form_Load()
rst.Open "provider=microsoft.jet.oledb.4.0;data Source=" & App.Path & "\db1.mdb;"
rst.CursorLocation = adUseClient
rst.Open "select * from cji", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
con.Close
End Sub
那里出错拉~帮忙看一下啊
你声明的rst是记录集，而不是数据库连接，所以第一句中，将rst改为你声明的con即可。
读取数据库，首先要连接（打开）数据库，它的对象是 connection ,然后利用记录集对象 recordset 来连接(打开)数据对象。