连接无法执行此操作。在此上下文中它可能已被关闭或无效
其它地方没有使用数据库代码,更没有关闭数据库代码如下
Private Sub Command3_Click()
On Error GoTo err
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data28.mdb;Jet OLEDB:"
Set rs = New ADODB.Recordset
rs.Open "select * from list", cn, adOpenKeyset, adLockOptimistic
'Set DataGrid1.DataSource = rs '把记录集的记录显示到DataGrid1
rs.Close
cn.Close
Exit Sub
err:
MsgBox err.Description
End Sub --------------------编程问答--------------------
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data28.mdb;Jet OLEDB:"--------------------编程问答-------------------- '楼上是不是有一点点错误?
cn.open '<----加上这句
Set rs = New ADODB.Recordset
dim cnstr as string
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data28.mdb;Jet OLEDB:"
cn.open cnstr '应该是字符串 --------------------编程问答--------------------
对头
补充:VB , 数据库(包含打印,安装,报表)