有以下代码
Private Sub Form_Load()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\s.mdb;Persist Security Info=False"
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open str
rst.Open "s", cnn
Set DataGrid1.DataSource = rst
End Sub为何数据没有在Datagrid1中显示出来
Private Sub Form_Load()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\s.mdb;Persist Security Info=False"
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open str
rst.Open "s", cnn
Set DataGrid1.DataSource = rst
End Sub为何数据没有在Datagrid1中显示出来
你的那段代码应该在
Set DataGrid1.DataSource = rst
这句话报错,是吧?
只有在Microsoft.Jet.OLEDB.3.51才支持Set DataGrid1.DataSource = rst
但是Microsoft.Jet.OLEDB.3.51不支持ACCESS2000.
你用连接对象,连接了一个叫”s.mdb“,数据库。
但是你要在记录集对象里,打开一个表,这样在网格控件里才能显示。rst.Open "表名", cnn
Set DataGrid1.DataSource = rst