VB编写数据库搜索

来源：百度知道 编辑：UC知道 时间：2024/05/12 19:06:46
用VB编辑一个数据库查询及更新程序。
数据库包含ID1、ID2、ID3、Name 、Address列
输入ID号，查找到相应记录。
查找需要在3个列中查询。只有一列包含数据。
将查到记录的Name值返回。并现在在txtBox控件中。
将其结果，和别的数据保存到另外一个表中。
这个该怎么实现？

Private Sub Command1_Click()
'查询代码
Dim ID11,ID12,ID13,ADDR
If Val(Text1.Text)<>0 then
strSQL="Select * from 数据表1 where ID1=" & Val(Text1.Text) & " or ID2=" & Val(Text1.Text) & " or ID3=" & Val(Text1.Text) & ""
RS.Open strSQL,conn,2,2
If Not RS.EOF Then
Text1.Text=RS!Name
ID11=RS!ID1
ID12=RS!ID2
ID13=RS!ID3
ADDR=RS!Address
strSQL1="Select * from 数据表2"
RS1.Open strSQL1,conn,3,3
RS1.AddNew
RS1!ID1=ID11
RS1!ID2=ID12
RS1!ID3=ID13
RS1!Name=Text1.text
RS1!Address=ADDR
RS1.Updata
RS1.Close
Else
MsgBox"没有查询到需要查询的记录！"
End If
RS.Close
Else
MsgBox"输入的数据必须是数字！"
End If
End Sub
前提：数据表1和数据表2在同一数据库中，必须已经链接了数据库。

查询 SQL语句：SELECT * from 表名 where id1='id号' or id2='id号' or id3='id号'