28,391
社区成员
发帖
与我相关
我的任务
分享
sql = "select A1 from A where A1 not in (select B1 from [;database=D:\BB.mdb].B)"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=D:\AA.mdb"
Set oRS = CreateObject("ADODB.RecordSet")
oRS.CursorLocation = 3
oRS.Open sql, oConn, 1,1
Response.Write oRS.RecordCount
oRS.Close
oConn.Close
Set oConn = Nothing