Question

VB查询ACCESS数据库并返回查询结果。

最近小弟在做一个小工具，构思是通过 texbox 窗体输入要查询的内容，然后通过Commandbutton 按钮执行，数据库有记录的就执行软件安装，数据库没有的就提示“验证失败，没有该记录” 希望各位高人多指点指点，最好能给出代码。谢谢。下面是我初步写出来的代码：

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\data\tax_0766.mdb"
cn.Open
cn.CursorLocation = adUseClient
End Sub
Private Sub Command1_Click()
SQL = "select a from tax where a = "" & Text1.Text & """
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount <= a Then
MsgBox "验证失败，没有该记录！", vbCritical, "提示信息"
If rs.State = adStateOpen Then rs.Close
Exit Sub
Else
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End Sub

非常感谢，代码已经看到，但依然不能对比数据库内的数据，我的数据库内只有一个字段“a”字段 无论输入任何内容都提示“验证失败，没有该记录！”希望能再抽点时间帮帮我，谢谢你，非常感谢。

Answer 1

rs.Open SQL, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount <= a Then

改为：
rs.open sql,cn,adopenkeyset, adLockOptimistic
if rs.recordcount=0 then

最重要的是没有实例化对象。 面向对象的话一定要实例化对象， 如果你用VC++的话就会明白的， C++ ，Java等都要求实例化对象。

在：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
后添加：
set cn =new adodb.connection
set rs =new adodb.recordset

还有提供一个连接你看看：里面有一个音乐播放器，有数据库的操作，完整的源代码和设计时窗体：
http://hi.baidu.com/0512109051

你可以看看，我写的，可以互相交流。

Answer 2

1)rs.RecordCount <= a？a的值是多少？这里的a应该是一个变量吧，又没赋值

2)SQL = "select a from tax where a = "" & Text1.Text & """？这句后面有3个双引号，好象有些不对，如果a是字符型的话，写成：
SQL = "select a from tax where a = "'" & Text1.Text & "'"

Answer 3

试试这个，如果还不行的话那你要检查数据库的内容是否有问题或Text1输入的查询条件是否在数据库中存在。

Private Sub Command1_Click()
Dim SqlStr as String

SqlStr = "select a from [tax] where a = '" & Trim(Text1.Text) & "'"
rs.Open SqlStr, cn, adOpenKeyset, adLockReadOnly
If rs.RecordCount > 0 Then
MsgBox "查询当前合符条件的记录数：" & CStr(rs.RecordCount), vbInformation, "验证信息"
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Else
MsgBox "当前查询没有该记录！", vbCritical, "提示信息"
If rs.State = adStateOpen Then rs.Close
Exit Sub
End If
If Not (rs Is Nothing) Then
If rs.State = adStateOpen Then rs.Close: rs = Nothing
End If

End Sub

关于数据库连接、查询或相关的问题，请参考我空间这里其中的代码：