UC知道VB问题请教教
来源：百度知道 编辑：UC知道 时间：2024/06/02 16:56:59
我一张Access表mdb.字段是(id,name,idcard)
一张是:SQL表 SQL.字段是(ID,Name,IDCard)
需要实现: 两表中存在同名的时候.
则提示msgbox.
我自己写了一个，但是不行. 请知道的朋友重新帮我写一段,好么?
If RsMDB.EOF Then
MsgBox "asdfasdfasdfasdf!"
Else
Do While Not RsMDB.EOF
If RsSQL.EOF Then
MsgBox "asdfasdfasd!"
Else
Do While Not RsSQL.EOF
If CStr(RsSQL("Name")) = CStr(RsMDB("Name")) Then
MsgBox ("sadfsdfasdfasdfasdf")
End If
RsSQL.MoveNext
If RsSQL.BOF Then Exit Do
Loop
End If
If RsMDB.BOF Then Exit Do
RsMDB.MoveNext
Loop
End If
我手上的分数全给出来. 谢谢!
一张是:SQL表 SQL.字段是(ID,Name,IDCard)
需要实现: 两表中存在同名的时候.
则提示msgbox.
我自己写了一个，但是不行. 请知道的朋友重新帮我写一段,好么?
If RsMDB.EOF Then
MsgBox "asdfasdfasdfasdf!"
Else
Do While Not RsMDB.EOF
If RsSQL.EOF Then
MsgBox "asdfasdfasd!"
Else
Do While Not RsSQL.EOF
If CStr(RsSQL("Name")) = CStr(RsMDB("Name")) Then
MsgBox ("sadfsdfasdfasdfasdf")
End If
RsSQL.MoveNext
If RsSQL.BOF Then Exit Do
Loop
End If
If RsMDB.BOF Then Exit Do
RsMDB.MoveNext
Loop
End If
我手上的分数全给出来. 谢谢!
试一下我下面的.
由于没有运行环境,无法测试后再发表
若有错误请原谅
sub CheckTab()
Do until RSMDB.EOF
RSSQL.Movefirst
do until rssql.eof
if cstr(rsmdb("name"))=cstr(rssql("name")) then
msgbox "两表中存在相同姓名"
exit sub
end if
rssql.movenext
loop
rsmdb.movenext
loop
msgbox "两表中无相同姓名"
end sub
希望对你有所帮助
暂时没看出来有什么问题，能说说运行出来的结果么？