DataGrid显示数据库中一个表的内容，我到底错在哪里？

[zyugtq]

为什么显示不出来！

Private Sub Form_Load()
'连接数据库
On Error GoTo ErrorHandle
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXCsystem "
Cn.Open
If Cn.State = adStateOpen Then _
MsgBox " 数据库连接成功！"
Exit Sub
ErrorHandle:
MsgBox Err.Description
End
'显示数据
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "产品信息表", Cn, adOpenKeyset, adLockOptimistic
Set DataGrid.DataSource = rs
'DataGrid.Refresh
End Sub

[victorycyz]

Private Sub Form_Load()
'连接数据库
On Error GoTo ErrorHandle
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXCsystem "
Cn.Open
If Cn.State = adStateOpen Then _
MsgBox " 数据库连接成功！"
'显示数据
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "产品信息表", Cn, adOpenKeyset, adLockOptimistic
Set DataGrid.DataSource = rs
'DataGrid.Refresh
Exit Sub

ErrorHandle:
MsgBox Err.Description
End

End Sub

• 打赏
• 举报

回复 赞

[lihonggen0]

出错之后就end了
没出错就exit sub了

怎么能显示出来？

• 打赏
• 举报

回复 赞

[zyugtq]

多谢二位，给分了

• 打赏
• 举报

回复 赞