UC知道帮忙看个vb的问题
来源：百度知道 编辑：UC知道 时间：2024/04/26 17:44:26
Dim conn As Connection
Dim rs As Recordset
Set conn = New Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=E:\data.mdb;"
Set rs = New Recordset
rs.Open "select * from backup", conn, adOpenStatic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
为什么datagrid不显示数据啊
Dim rs As Recordset
Set conn = New Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=E:\data.mdb;"
Set rs = New Recordset
rs.Open "select * from backup", conn, adOpenStatic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
为什么datagrid不显示数据啊
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=E:\data.mdb;"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient //加上这行就行了
rs.Open "select * from backup", conn, adOpenStatic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
我用ADO的了，是引用里面加上ADO2.X吧
你有没有引用ado组件啊
把最后一行删掉试试
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "E:\data.mdb;Jet OLEDB:DataBase password=;"
conn.Open
rs.Open "select * from backup", cn, 3, 2