我用vb链接数据库，为什么datagrid中不显示？
代码：PrivateSubForm_Load()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetcn.Open"Pr...
代码：
Private Sub Form_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & App.Path & "\ch.mdb; persist Security Info=False"
SQL = "SELECT * FROM jc"
rs.Open SQL, cn, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub 展开
Private Sub Form_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & App.Path & "\ch.mdb; persist Security Info=False"
SQL = "SELECT * FROM jc"
rs.Open SQL, cn, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub 展开
2个回答
展开全部
有可能是在form_load中，控件还没有准备好，所以就没有能更新数据源。
另外，rs等数据库相关变量，应该定义为窗体级，或者全局级。要不然，当form_load程序执行完了以后，就被释放了。都是空的。
另外，rs等数据库相关变量，应该定义为窗体级，或者全局级。要不然，当form_load程序执行完了以后，就被释放了。都是空的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & App.Path & "\ch.mdb; persist Security Info=False"
rs.CursorLocation = adUseClient
sql = "SELECT * FROM jc"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
