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

zyugtq 2004-05-08 08:43:31
为什么显示不出来!

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
...全文
31 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zyugtq 2004-05-08
多谢二位,给分了
  • 打赏
  • 举报
回复
lihonggen0 2004-05-08
出错之后就end了
没出错就exit sub了

怎么能显示出来?
  • 打赏
  • 举报
回复
victorycyz 2004-05-08
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
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1191

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-08 08:43
社区公告
暂无公告