标题: 如何检测同目录下另一数据库中的特定查询里是否有某记录？ [打印本页] 作者: 静儿 时间: 2007-11-20 10:58 标题: 如何检测同目录下另一数据库中的特定查询里是否有某记录？ 请大家帮帮忙。
我在当前数据库中有一个变量值，想要从另一个数据库中打开一个查询（不需要显示出来），检查记录集中是否有该变量值的记录，如果存在就返回true否则就返回false，这该怎么做呀？
另一个access数据库是和当前的数据库在同一目录下的。文件名称固定，但路径名称会有可能变化。
另一查询中的查询名称是固定的。作者: andymark 时间: 2007-11-20 11:14
用ADO操作查询,判断记录集作者: 静儿 时间: 2007-11-20 11:16
怎么做呀？我知道用ado可以完成但我不会呀？能提供代码吗？作者: andymark 时间: 2007-11-20 12:09
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作者: 静儿 时间: 2007-11-20 17:23
谢谢andymark