vb中datagrid中不显示数据

Question

Function connection() As String
connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\aa.mdb"

End Function

Private Sub sjcx_Click()
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.connection
Dim sql As String

sql = "select * from sj"
conn.Open connection

rs.CursorLocation = adUseClient
rs.Open sql, conn

If rs.EOF And rs.BOF Then

MsgBox "数据库空"

Else
DataGrid1.Columns(0).Caption = "id"
DataGrid1.Columns(1).Caption = "手机型号"
DataGrid1.Columns(2).Caption = "手机价格"
DataGrid1.Columns(3).Caption = "出售日期"
DataGrid1.Columns(4).Caption = "姓 名"

Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End If
End Sub
为什么我的窗体中的datagrid1中不显示数据？

知道的帮帮我。

不要给我一些资料。我只要代码，最终结果。谢谢。。。
我的数据库是:
id xinghao .....
1 455 .....
......
共有5条记录

form2中的datagrid中显示是:
id 手机型号 .....
空白 空白
空白 空白
空白 空白
空白 空白
空白 空白
五条空白记录...
帮帮我....谢谢了....

Answer 1

你的是datagrid1不显示数据还是运行的时候提示错误？我把你的代码复制下来运行可以显示数据。

要是提示错误的话，是不是DataGrid1.Columns(2).Caption = "手机价格"这句。
如果是的话，那说明你没有对datagrid1控件进行设置。datagrid1控件默认只有两列。也就是0,1所以会下标越界。你需要给datagrid1再增加三列。

右击datagrid1控件选编辑，再右击选追加，你的题目再追加三个就行了。然后你再运行试试吧。

如果不是这种情况，请你补充一下问题，具体是什么情况，我好判断是哪儿出了问题。本回答被提问者采纳