1187
社区成员
在线急等！大家帮忙！
两个窗口，form1和form2根据form1的text框中的数据，查询form2中对应的一条记录而且，form2中的每个text自动接受对应数据！求这段代码
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
hideakiwang 2003-05-26
想问问，为什么要用两个FORM。你这样的功能完全可以在同一个FORM中实现，同时如真的想要递交一个参数，也可以用INPUT（）实现。真的没必要。
bluesanke 2003-05-26
晴明大哥你理解错了，form1中的text是这个表的编号，是肯定有的，现在要同过form1里的编号，把form2中的这条记录调出，而且form2中的个text准确的接受
道素 2003-05-26
做一个公用变量保存form1的text框中的数据
然后form2更据这个值查询
然后form2更据这个值查询
qingming81 2003-05-26
'在form2中，查到N条记录后，给各文本框赋值：
with rs
.movefirst
text1.text=.fields("ID")
text2.text=.fields("IDvalue")
end with
with rs
.movefirst
text1.text=.fields("ID")
text2.text=.fields("IDvalue")
end with
qingming81 2003-05-26
' 下面给一个示例代码：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
'先定义全局变量
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 2003-05-26
这个最好使用ADODB对象来操作，如果象楼主写的那样，每次都去更动一次ADODC1的查询语句，那是绝对不行的。
bluesanke 2003-05-26
给点代码，谢谢
liuyun2003 2003-05-26
提前将FORM2中TEXT和ADODC中的列进行绑定，然后查询数据，刷新。如果使用的不是ADO控件，而是ADO对象的话，可以自己编写代码给TEXT赋值。这时，你可以建立一个TEXT控件的数组，利用循环赋值。
bluesanke 2003-05-26
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
自己写的大家看看查询语句怎么改才能实现？
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
自己写的大家看看查询语句怎么改才能实现？
求大神帮忙看错，c++，急！！ 着急用，谢谢大家！ //student.h #include using namespace std; class Student { public: Student();//构造函数重载 Student(string,int,int);//声明构造函数 virtual void display(); //定义虚构函数，用于输出 ...
大家帮忙.谢谢!..(急急急急急) 大家帮忙.谢谢!..(急急急急急) Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061218224617231.html procedure TForm1.Button4Click(Sender: TObject); var P : ...
大家帮帮忙,急,在线等! 我有一个客户他的笔忘本电脑是老式的,没有系统,没有软驱,不支持光驱起动.把硬盘拆下来在其它电脑上装系统后,回到笔记本电脑上不能进入系统,总是提示说:Replace the Disk !
一个程序出错,请高手帮帮忙!!急! 急! Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061220090748211.html 我想从库中的数据表导到stringgrid,想做成比较直观一点的输入界面,把时间字段(sjd)作为行,把数据项目和数据...
请大家帮帮忙，谢谢啦 ！！急！！！！ 今天在电脑里，将两个重要文件夹设置了密码，后来将第一个解锁时，密码输入后电脑竟然蓝屏了，重启后，打开那个文件夹，竟然里面的excel文件全部变成了乱码，我是在网上下载的一个文件加密器，后来我...！！！急！！！
大拿帮忙啊！！！急死了！！！弄了好久！！！ 下面我给大家讲讲javascript函数：<script> function show() { alert("hello world"); } </script> 结果如图： 直接用PHP的select出来的，没有用！不能显示JS代码那一段,如图： ...
tiki登录显示服务器繁忙,tikiwiki安装使用中遇到诸多问题。急！急！急！ 我在一个Linux服务器上安装了tikiwiki3.1版本，在服务器上装的是XAMPP Linux1.7.2版本。... 请各位帮帮小女子，我也是刚刚接触tikiwiki,遇到这么多问题不知道该从何查起了，现在别人又催的很紧，请各位高高帮帮忙吧。
请大家帮帮忙！急 这几天做一个计算器程序，遇到个问题，请大家给出个主意，谢谢！！！要求：在不做任何操作的情况下，显示“0.”，输入数字后数字后面跟一个“.”，输入小数点后只显示一个点；怎么才能做到上面的要求，而且力求程序...
各位大牛帮帮我！！！急急急 我大专毕业，学的是计算机行业，但是和编程没有一点关系，现在想找一个靠谱的培训班学习一下，当然，本人也得认真学习，希望大牛们给我介绍一下，就是那种课程安排合理的培训班，谢谢大家了，跪谢！！！ 大家帮帮忙...
多表操作比较的问题?在线等待!! 在线等待!! Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061216123719269.html 请大家帮个忙!我有两个数据表:基础数据表(编号,数据类型,数据项目,指标上界,指标下界,标准分)和数据...
[VB.NET]急！！！WebBrowser的问题，超郁闷，麻烦大家来帮帮忙 （可惜我不会，只有帮忙顶一下） __________________________________________________________________________ 顶 顶顶 顶顶顶 顶顶顶顶 ___________________________________________________________________...
请大家注意这些骗局吧！ 请大家注意这些骗局吧！请大家注意这些骗局吧！很恐怖，虽不知真假，但也要留心啦！1）建行一同志转送: 今天经过一栋大楼门口，门口有一提款机。有一个老伯，一直看著我走过他身边，突然叫住我。他说他不识字，拿...
帮帮忙 ，vc++6.0引用控件的一个问题，急！！！！ 由于工作原因，现要引用一个别人写好的listctr控件。 在vc6.0里，不知道怎么引用 控件源代码： http://wu_w_s.51aspnet.net/CGridListCtrlEx.zip ...请大家帮帮忙，感激不尽。联系QQ：78840173
