求助怎样输入一条数据,其它的数据就同步显示出来？

Question

有3个Textbox，其中Text1、Text2分别载入数据库的字段1、字段2
Textbox3用来输入怎样实现
在Text3中输入的数据如果同字段2某一条相似(Text3.text=字段2某一条内容&*)
Text1、Text2就同步显示那一条数据比如，字段2里某一条数据为"http://www.baidu.com/" 字段1为"百度"
在Text3中输入"http://www.baidu.com/home.html"
然后Text1就显示"百度"  Text2显示就"http://www.baidu.com/"

Answer 1

可以在text的change事件中写数据库查询语句

Answer 2

dim sql as string
set sql = "select 字段1,字段2 from table where 字段2 like '%" + Text3.text + "%'"dim rs as Adodb.recordset
dim cnn as Adodb.connection
set rs = cnn.execute(sql)if rs.recordcount<>0 then
    set Text1.text = rs("字段1")
    set Text2.text = rs("字段2")
endif大概是这麽写的,VB6很久没用了,可能有的忘了

Answer 3

Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim sql  As StringPrivate Sub Form_Load()
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "Data Source=" & App.Path & "\\dat.mdb;Persist Security Info=False"
cnn.Open
rs.Open "select * from url", cnn
Text1.Text = rs.Fields("字段1")
Text2.Text = rs.Fields("字段2")
End SubPrivate Sub Text3_Change()
set sql = "select 字段1,字段2 from url where 字段2 like '%" + Text3.text + "%'"
set rs = cnn.execute(sql)
if rs.recordcount<>0 then
    set Text1.text = rs("字段1")
    set Text2.text = rs("字段2")
End if
End Sub
这样不对了，我在程序启动的时候需要先载入字段1,字段2 到Text1，Text2，然后
Text3输入内容就跳转到那一条
Text3_Change()里面应该怎样写

Answer 4

textbox中只能保存一个字符串而不能保存一个数组，你想在load时就把数据加载到内存中应该用别的变量来保存