如何检测同目录下另一数据库中的特定查询里是否有某记录？

静儿

请大家帮帮忙。
我在当前数据库中有一个变量值，想要从另一个数据库中打开一个查询（不需要显示出来），检查记录集中是否有该变量值的记录，如果存在就返回true否则就返回false，这该怎么做呀？
另一个access数据库是和当前的数据库在同一目录下的。文件名称固定，但路径名称会有可能变化。
另一查询中的查询名称是固定的。

静儿

谢谢andymark

andymark

Public Function Test(StrCx As String, StrField As String) As Boolean
'StrCx 为查询名称
'StrField 为StrCX查询的字段名称

Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim StrPath As String
StrPath = CurrentProject.Path & "\Data\db1.mdb"
Rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(StrPath) + ";"
Sql = "select * from " & StrCx & ""
Set Rs = Rs.ActiveConnection.Execute(Sql)

With Rs
    If .EOF Then
    Exit Function
  End If
  Do While Not .EOF
    If .Fields(StrField) = "变量" Then
       Test = True
    End If
    .MoveNext
    Loop
.Close

End With

Set Rs = Nothing
End Function

静儿

怎么做呀？我知道用ado可以完成但我不会呀？能提供代码吗？

andymark

用ADO操作查询,判断记录集