1184
社区成员
- 全部
在线急等！大家帮忙！
两个窗口，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
自己写的大家看看查询语句怎么改才能实现？
关于mysql插入中文字符的问题，急急急！！大家帮忙看一下 我在my.ini中已经设置了默认编码是utf8，default-character-set=utf8， 这是数据表的结构  这是插入代码 !...求大神帮忙看看！！
急啊！！！大家帮忙呀！！！ 数据表department（系部）中数据如下 id class person year 1 A班 37 2008 2 B班 35 2008 3 A班 36 2009 4 B班 37 2009 怎样检索出该系人数最多的那一年有多少人？
急！！求大神帮忙看一下以下代码需要改哪部分 急！！求大神帮忙看一下以下代码需要改哪部分，源代码执行后停的位置和提示抽到的数字不相符，谢谢！！！ ![图片说明]...
很奇怪，搞不定，求大家帮忙！！！！很急！！！！！在线等！！ 我在做一个SSH的项目，属于功能升级： 写了一个业务逻辑的class Biz,对相关的表做了ORMAP，写了一个测试类继承Testcase 服务器用tomcat，datasource配置了连接池 用测试类直接测试，一切正常，但是部署到tomcat就...
高分，在线等！！！！！急！！大家请帮忙！ 请问一下各位： 象这样的表达式"10*20+30-40/20"，如何对它进行拆分。 我的想法是一个一个的找到优先级最低的"+,-"，那左边的串，肯定不会再有"+,-"，然后右边用递归来实现...请大家指教指教。 最好给点源代码。谢谢！
急！！！！！大家帮忙解决 The validator XML Schema Validator is a deleageting validator but no delegate can found for it.
急!大家帮忙看看,多条件查询问题!在线等!!!! 这边有一个查询表单,上面有两个字段,日期型的(域age1,age2),用于查询年代之间的人(1983年到1999年),还有几个下拉框(text1,text2,tex3),全部是文本型的,用FTSearch查询符合以上条件的记录. 直接用FTSearch可行否?...
急！急！大家帮忙想个VB与SQL连接的课设题目！在线等！ 我们这学期学了SQL，...因为刚接触这个，实在想不出来好的题目，所以希望大家帮忙想个题目，并求其题目需要在SQL里建哪些表，在VB里做哪些操作？我们在VB中只学过对学生管理数据的修改，添加，查询，退出等这些操作！
找 高手 帮忙！！ 我就 40 分了 ！ 在线等 ！！ 急急 急 ！！ 谢谢 大家！！！！ function checkShwtg(){ if(document.getElementById("ctl00$ContentPlaceHolder1$Txtztreason").value==""){ alert('您还没有填写仲裁意见!'); 在 IE 8 中提示 页面有错误 ！ 缺少对象！ 问题怎么 解决 ！...
PPT做抽奖系统！！！急！！请大家帮忙，在线等！！！ 我要模拟抽奖系统，两个按钮一个Label...但不能重复抽！！！...Data Source=C:\Documents and Settings\...\db1.mdb;...StartLoop = False End Sub 系统提示是连接问题，请大家帮忙看看，并着上面所说完善，小弟万分感谢！！
菜鸟请教！！！！急，急，急！！请大家帮忙！！！在线等！！！！ 我的一张表里有４０个字段．我想做一张报表，一次只打印一个记录． 用a4的纸， 如： 姓名 年龄 性别 生日 小李 ２３ 女... 请个位大侠帮忙， 最好有代码．必谢分200. 谢谢大家！！！！！！！！！，qq：251497462
麻烦大家帮忙 自己写了半天没写出来！！真是急用！！！ c语言编写一个程序计算长途电话费。电话费根据以下费率计算： 1）周一到周五，上午八点到下午六点之间打出的任何电话都按每分钟0.4元收取； 2）周一到周五，上午八点之前到下午六点之后打出的任何电话都按每分钟0.25...
关于数据查询[非常棘手]的一个问题请大家帮忙解决！！！在线急等！！！ 现在有个要求： 有2个表A和B A B 1 key 1 key 2 key 2 key 3 key 3 key 4 5 6 （日期） ...要先按7,8,9,10的顺序降序排列 再取第一行 而且在SELECT的时候要取B表中的 7，8，9，10 在线急等，请各位高手解答，谢谢！！！
急！大家帮忙了！50分在线等！JAVASCRIPT实现图片变换！ JAVASCRIPT实现图片变换？ 第一次 单击某图片时 变为图片1，第二次 单击某图片时 变为图片2， 第三次 单击某图片时 变为图片3，依次循环的 该怎么做呢？
web.config中的标签的问题，急！！！大家帮忙看看！！！ 我要实现保存Excel功能，本来能用的，上线四个月后，突然不能用了，不知道为什么，com配置都已经配置过了，不起作用，后来在网上查到可以在web。config中加入但是我加...大家帮忙看看，为什么报错，还是我写的位置不对
自定义查询的问题！请大家帮忙！急！！在线等！！ 我想做一个自己输入关键字的查询，然后在视图中显示出来记录，当然不用@command([viewshowsearchbar])这个来做！！举例：有form名字form1里面field有a，b，c，有view名字view1，现在就是想搞成...请各位帮忙，谢谢！！
急急急！！.net 批量上传图片并且加上水印紧急求助！有什么思路请大家帮帮忙，有demo最好不过了.在线等 急急急！！.net 批量上传图片并且加上水印紧急求助！有什么思路请大家帮帮忙，有demo最好不过了.在线等
大家帮忙看看这个应该怎么写，只有一句话！！！急等！！！ 有一个 public class ComMethod { public static void ClearAllTextBox(ref Form form) { foreach (Control control in form.Controls) { if (control.GetType().ToString... //this只读，，， 请问大家应该怎么写啊？
项目导入eclipse+tomcat问题?急急急~!!!大家帮忙~!! 我刚进一家公司和我以前用的开发环境不太一样~我是java新手,对这个问题有点难度~! 我用的是eclipse+tomcat开发环境,我不太知道怎么样能把项目导入到eclipse下,而且 还能够正常的发布,我发现好象要配置很多东西,还要...
Oracle的外键约束设置~在线急等！！！ 我的Oracle中有两个表，一个plant_asset表，一个plantasset_type表，我现在想在plant_asset中添加一列为typeid作为外键，代码如下： alter table plant_asset add constraint fk_... *Action: Obvious 在线急等!!
PPT做抽奖系统！！！急！！请大家帮忙，在线等！！！解决了放100分 我要模拟抽奖系统，两个按钮一个Label...但不能重复抽！！！...Data Source=C:\Documents and Settings\...\db1.mdb;...StartLoop = False End Sub 系统提示是连接问题，请大家帮忙看看，并着上面所说完善，小弟万分感谢！！
急 ！！！！... 大家帮忙 。。。 数据库中所有记录中的 字符串 ‘xxxxxxxxxxxxxxxxxxxxx’ 数据库被黑了下， 在我原来的记录中多了些 “xxxxxxxxxxxxxxxxxxxxxx” 字符串 我想写个遍历数据库的所有记录的查询 怎么写啊
STM32Cube和HAL库使用初体验-第5季第2部分 本季课程主要讲解STM32的全新开发方式：使用STM32CubeMX工具做图形化配置，自动生成初始化代码；添加各种中间件；使用HAL库和LL库来操作外设。结合朱老师物联网大讲堂专为nbiot物联网开发而设计的NB476开发板，本季课程能够让大家彻底掌握物联网时代以nbiot和低功耗STM32L4单片机为代表的典型开发模式，实战意义非常重要。 本课程是《朱有鹏老师单片机完全学习系列课程》第5季第2个课程，本部分以时钟和GPIO模块为案例来讲解STM32CubeMX工具加HAL库加MDK5这套开发体系的流程、技术细节，目标是让大家真正入门HAL库方式开发STM32单片机。后续再接着讲其他更复杂外设。
