Dim rs_match As New ADODB.Recordset Temp_sql = "select * from persons" rs_match.Open Temp_sql, Conn, 3, 1 set DataGrid1.datasource=rs_match
Dim rs_match As New ADODB.Recordset Temp_sql = "select * from persons" rs_match.Open Temp_sql, Conn, 3, 1 //这里后面的3,1代表什么意思 set DataGrid1.datasource=rs_match 我这么做了,可是数据还是没有显示出来,也不提示错误,怎么办
我现在 Public Conn As New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\sjtu.mdb;Persist Security Info=False" Dim rs_match As New ADODB.Recordset Temp_sql = "select * from persons" With rs_match .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open Temp_sql, Conn, , , adCmdText End With Set DataGrid1.DataSource = rs_match For i = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Columns(i).Width = DataGrid1.Width / DataGrid1.Columns.Count Next i DataGrid1.Caption = rs_match.RecordCount & "条记录" 现在我能显示一共有几条记录了,可是就是不能把选出来的数据都列出来,怎么回事呢
Temp_sql = "select * from persons"
rs_match.Open Temp_sql, Conn, 3, 1
set DataGrid1.datasource=rs_match
Temp_sql = "select * from persons"
rs_match.Open Temp_sql, Conn, 3, 1 //这里后面的3,1代表什么意思
set DataGrid1.datasource=rs_match
我这么做了,可是数据还是没有显示出来,也不提示错误,怎么办
rs.cursorlocation=aduseclient
什么意思,应该放在哪里
to dbcontrols:
我好象没有找到我这类的问题呀
放在打开数据库的代码中rs.open............
Public Conn As New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\sjtu.mdb;Persist Security Info=False"
Dim rs_match As New ADODB.Recordset
Temp_sql = "select * from persons"
With rs_match
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Temp_sql, Conn, , , adCmdText
End With
Set DataGrid1.DataSource = rs_match
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Columns(i).Width = DataGrid1.Width / DataGrid1.Columns.Count
Next i
DataGrid1.Caption = rs_match.RecordCount & "条记录"
现在我能显示一共有几条记录了,可是就是不能把选出来的数据都列出来,怎么回事呢
好象和
Microsoft.Jet.OLEDB.4.0有关于,如果换成3.51就可以,可是现在我要用4.0呀