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

静儿

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

andymark

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

静儿

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

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

静儿

谢谢andymark