数据查询问题!!!!!急........
Dim strquer2 As String
Dim rs As New ADODB.Recordset
Dim x As Integer
myConn.Open "provider=microsoft.jet.oledb.3.51;" & _
"data source=" & App.Path & "\data.mdb;"
strQuery2 = "SELECT * FROM st WHERE no='" & Trim(Text2.Text) & "'"
Set rs = New ADODB.Recordset
rs.Open strQuery2, myConn, 1, 3, 1 ' adOpenForwardOnly, adLockReadOnly
x = rs.RecordCount
If (rs.EOF And rs.BOF) Then
rs.Movefirst
rs.MoveLast
End If
'
x = rs.RecordCount
MsgBox (x)
Set DataGrid1.DataSource = Nothing
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set DataGrid1.DataSource = rs
为什么查询不到数据??rs.RecordCount=0 ??/
请问是不是哪里出错了?
还是这样根本就是不对的方法?
还有什么方法可以进行数据查询?
请各位指教!!谢谢.
问题点数：20、回复次数：1Top
1 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2006-03-27 12:44:18 得分 20
strQuery2 = "SELECT * FROM st WHERE [no]='" & Trim(Text2.Text) & "'"
关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
新手来看：jet 4.0 的保留字《控件》
http://access911.net/index.asp?u1=a&u2=75FABF1E10DC
关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
新手来看：找不到帮助的来看：jet sql保留字《查询》
http://access911.net/index.asp?u1=a&u2=74FAB61E16DC
----------------------- 911 社区回帖个人签名 start -----------------------
http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。
http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能
如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3
----------------------- 911 社区回帖个人签名 end -----------------------
向上看呦！
----------------------- 911 社区回帖个人签名 start -----------------------
http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。
http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能
如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3
----------------------- 911 社区回帖个人签名 end -----------------------
向上看呦！Top
