当前位置：系统粉 > 电脑问答 > 其他问答 > VB与数据库的问题

VB与数据库的问题

提问者：愈小璇 | 浏览次 | 提问时间：2017-03-10 | 回答数量：2

现在有两个表,每个表都有一个字段,我想实现的效果是,选中表A的所有记录,然后判断是否每条记录都在表2的字段中,我是这样写的,貌似VB不能打开这么多的RS,班大帮帮忙myre2.Open \"select name2 from db2tb\", mycn0myre2.MoveFirstWhile Not myre2.EOFmyre1.Open \"select name1 from db1tb where name1 = '\" & myre2.Fields(\"name2\") & \"'\", mycn0If myre1.RecordCount > 0 ThenList1.AddItem \"OK\"ElseIf myre1.RecordCount = 0 ThenList1.AddItem myre1.Fields(\"name2\")End Ifmyre1.CloseWend只输出一条记录是没问题的,可一加循环就完了!

已有2条答案

845952880

回答数：128 | 被采纳数：18

2017-03-10 17:18:18

有什么提示

宋磊78

回答数：24 | 被采纳数：13

2017-03-10 19:23:22

我已经找到错误了,现在贴出正确的代码来
下面代码能实现表1与表2间的记录检查,看表2的记录是否在表1中,若不在的话,则在LIST1中显示不在的记录!
myre2.Open "select name2 from db2tb", mycn0
myre2.MoveFirst
While Not myre2.EOF
myre1.Open "select name1 from db1tb where name1 = '" & myre2.Fields("name2") & "'", mycn0

If myre1.RecordCount > 0 Then
List1.AddItem "OK"
ElseIf myre1.RecordCount <= 0 Then
List1.AddItem myre2.Fields("name2")
End If
myre1.Close

myre2.MoveNext
Wend
MsgBox "Check Over", vbOKOnly, "PS"

VB与数据库的问题

电脑问答栏目

最新其他问答

热门问答