求救datagrid问题

Question

Dim LocCnn1 As ADODB.Connection
Dim LocRst1 As ADODB.RecordsetSet LocCnn1 = New ADODB.Connection
LocCnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;"
'LocCnn1.Open "Provider=SQLOLEDB.1;User ID=sa;pwd=goqopass;Initial Catalog=GoQoAuction;Data Source=192.168.3.65"
Set LocRst1 = New ADODB.Recordset
LocRst1.CursorType = adOpenKeyset
LocRst1.LockType = adLockOptimistic
LocRst1.Open "SELECT user1.username, user1.password, 1 FROM user1", LocCnn1, 1, 1
'LocRst1.Open "select * from Auction_Master", LocCnn1, 1, 1Set DataGrid1.DataSource = LocRst1
MsgBox(LocRst1.RecordCount)
可以提示有5条记录，但datagrid里面就是不肯绑定数据
但如果将数据源改为sql server就没有这个问题了。。

Answer 1

如果是用datagrid显示数据最好是这样的
  strsql="select xm as 姓名,password as 密码 from yh"
不要用
  strsql="select * ......"

Answer 2

加一句LocCnn1.CursorLocation = adUseClient因为Datagrid显示Access数据库需要使用客户端游标adUseClient。SQL则支持服务端游标

Answer 3

你试试吧，好用的   Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   'strsql 是你的查询语句
   strsql="select 字段 from 表"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub

Answer 4

支持daisy8675(莫依)和风
LocRst1.Open "SELECT user1.username, user1.password, 1 FROM user1", LocCnn1, 1, 1你这句不必这样写啊！字段中的表名完全可以省略啊，除非你多个表
                                                                     
                                                                        （注：个人见解）

Answer 5

如果后面要加where 子句该怎么办，where后面 aql查询要用 ××= '××' 如果单引号中的××是个变量的话，例如:
Dim txt as string
txt= text3.text
 strsql="select xm as 姓名,password as 密码 from yh where id ='txt'" 系统是要报错的。。怎么办？

Answer 6

呵呵自己解决了 
strsql="select xm as 姓名,password as 密码 from yh where id ='"&txt&"'"