Option Explicit Dim rs1 As New ADODb.Recordset Dim conn As New ADODb.Connection Dim strconn As StringPrivate Sub Form_Load() strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb; Persist Security Info=False" conn.Open strconn conn.CursorLocation = adUseClient
rs1.Open "select * from test", conn, 3, 3 Set DataGrid1.DataSource = rs1 End Sub
請注意dim mrc as adodb.recordset 和dim mrc as As New ADODb.Recordset 雖然就是一個new的區別﹐結果是.....
datagrid.refresh
您的代码我已经试过,我已查看mrc中有六条记录,可是datagrid控件中只有6个空行并没有实际
文字,是何原因呢?
用set datagrid.datasource=mrc
datagrid.refresh
没有问题
是data grid 的属性设置有问题吗?那一个呢
Dim rs1 As New ADODb.Recordset
Dim conn As New ADODb.Connection
Dim strconn As StringPrivate Sub Form_Load() strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb; Persist Security Info=False"
conn.Open strconn
conn.CursorLocation = adUseClient
rs1.Open "select * from test", conn, 3, 3
Set DataGrid1.DataSource = rs1
End Sub
和dim mrc as As New ADODb.Recordset
雖然就是一個new的區別﹐結果是.....
用set datagrid.datasource=mrc
datagrid.refresh
原来的data grid控件能显示记录但没有内容
我的代码一点没变,把原来的Data grid控件删掉了,又建了一个同名的data grid控件
便能够显示记录中的文本了
应该是data grid 的属性设置有问题吧,是那一个呢?
急求高手解答
昨天我已找到原因了,但不知为何会出现这种现象?
出问题方法:
利用代码方式获得recordset付值给mrc
在DATAGRID属性页中设置表头后不能显示数据库中的内容只能显示空记录。
没有问题的方法:
利用代码方式获得recordset付值给mrc
利用程序给表头付值
datagrid.columns(1).caption="表头名"
为何呢?