Question

[vb]DataGrid不显示数据

代码如下，怎么也不显示：
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim db As String
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\RUSULT.MDB"
conn.Open db
rs.Open "xxx", conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
使用这个连接到时可以显示数据：真是怪异啊！！
db = "DSN=MS Access Database;DBQ=" + App.Path + "\RUSULT.MDB;DefaultDir=" + App.Path + ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"

Answer 1

你少了一句代码，在"rs.open...."前面加一句：
rs.CursorLocation = adUseClient

Answer 2

连接字符串对的吗？不对的话可以用adodb里面的data 手动连了看看。有问题可以联系我