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
...全文
76 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧