在线急等！大家帮忙！

[bluesanke]

两个窗口，form1和form2根据form1的text框中的数据，查询form2中对应的一条记录而且，form2中的每个text自动接受对应数据！求这段代码

[bluesanke]

Private Sub Command5_Click()
With form2
.Show
.Move 0, 0
.txtBH.Text = xzgl_gwyscld.Text5.Text
.Adodc1.RecordSource = "select * form XZ_XZGL_QSYSCLD where XXQ_BH='" & Trim(.txtBH) & "'"
End With
End Sub
自己写的大家看看查询语句怎么改才能实现？

[liuyun2003]

提前将FORM2中TEXT和ADODC中的列进行绑定，然后查询数据，刷新。如果使用的不是ADO控件，而是ADO对象的话，可以自己编写代码给TEXT赋值。这时，你可以建立一个TEXT控件的数组，利用循环赋值。

[bluesanke]

给点代码，谢谢

[qingming81]

这个最好使用ADODB对象来操作，如果象楼主写的那样，每次都去更动一次ADODC1的查询语句，那是绝对不行的。

[qingming81]

' 下面给一个示例代码：Form2中放一个datagrid1
'先定义全局变量
option explicit
public ltext as string '标志要查找人文本
public conn as ADODB.connection
public rs as ADODB.recordset

在form1中
ltext = trim$(text1.text)

在Form2中
dim strSQL as string
set conn = new ADODB.connection
set rs = new ADODB.recordset

strSQL = app.path & "A.mdb"
strSQL = Replace(strSQL, "\\", "\")

With conn
If .State = 1 Then
.Close
End If
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
.Open
End With

With rs
.Open "SELECT Id, IDvalue FROM Table1 WHERE IDvalue = '" & ltext & "' ORDER BY Id;", conn, adOpenStatic, adLockOptimistic
if .BOF and .EOF then
N=0
msgbox "没有查到任何记录!"
exit sub
end if
.movefirst
.movelast
N=.recordcount
msgbox "查到" & N & "条记录!"
End With

'退出时
rs.close
conn.close
set rs =nothing
set conn=nothing

[qingming81]

'在form2中，查到N条记录后，给各文本框赋值：
with rs
.movefirst
text1.text=.fields("ID")
text2.text=.fields("IDvalue")
end with

[道素]

做一个公用变量保存form1的text框中的数据
然后form2更据这个值查询

[bluesanke]

晴明大哥你理解错了，form1中的text是这个表的编号，是肯定有的，现在要同过form1里的编号，把form2中的这条记录调出，而且form2中的个text准确的接受

[hideakiwang]

想问问，为什么要用两个FORM。你这样的功能完全可以在同一个FORM中实现，同时如真的想要递交一个参数，也可以用INPUT（）实现。真的没必要。