7,765
社区成员
发帖
与我相关
我的任务
分享datagrid不显示，为什么？
Dim conn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim sql As String
Private Sub Form_Load()
conn.Open connstring
sql = "select * from [user]"
rs.Open sql, conn, 1, 1
Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
datagrid数据库内容显示不出来，为什么？
注：connstring为模块内连接字符串
Dim rs As New adodb.Recordset
Dim sql As String
Private Sub Form_Load()
conn.Open connstring
sql = "select * from [user]"
rs.Open sql, conn, 1, 1
Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
datagrid数据库内容显示不出来，为什么？
注：connstring为模块内连接字符串
...全文
请发表友善的回复…
发表回复
daisy8675 2004-04-10
- 打赏
- 举报
呵呵。 遊標，你可以參考msdn裡面講得很詳細了
MonkeyDHua 2004-04-10
- 打赏
- 举报
正确显示了
MonkeyDHua 2004-04-10
- 打赏
- 举报
能告诉我为什么吗？
daisy8675 2004-04-10
- 打赏
- 举报
在conn.Open connstring前面加一句conn.CursorLocation = adUseClient
