高校问答春闺梦里人txt百度网盘:请教一个vb问题，为什么我这样编，datagrid显示是空白的
来源：百度文库 编辑：高校问答 时间：2024/04/28 19:07:11
Public Sub connectdb()‘连接数据库，名为jytxldb
'联接字符串
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb.mdb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
End Sub
Private Sub Form_Load( ) '设置datagrid
Call connectdb
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select * from txl where user='" + curuser + "'"
Set DataGrid1.DataSource = MdbRs
MdbRs.Close
MdbConn.Close
End Sub
哈哈
我自己想到了，你们说的并不能解决，不过还是谢谢你们
其实，我多加了一条MdbRs.close的语句，删除了就可以了
'联接字符串
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb.mdb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
End Sub
Private Sub Form_Load( ) '设置datagrid
Call connectdb
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select * from txl where user='" + curuser + "'"
Set DataGrid1.DataSource = MdbRs
MdbRs.Close
MdbConn.Close
End Sub
哈哈
我自己想到了，你们说的并不能解决，不过还是谢谢你们
其实，我多加了一条MdbRs.close的语句，删除了就可以了
应该引用了连接吧 连接能成功么？
你这段代码里好象没有定义 连接和记录集 和初始化它
你需要检查看参数有错误没在就是 确保连接没问题
这些没问题 应该不会出错了这里又没做什么复杂的事
str = App.Path 这个有目标吗？
遇到同样的问题，跟楼主一样的把问题解决了，但是不是建立一个连接对象，就要在用完时候关闭么
大概是没有记录集对象Recordset，不能执行SQL语句。