1187
社区成员
在线急等一个查询问题！！！
我有一个界面中有n个text框，对应着n个数据，现在我只对一个数据进行查询，查询结果是如果找到这个数据，那末界面里的其它数据也和表里的数据相连！
求用sql编写的这段查询代码，最好是能加一些注释
求用sql编写的这段查询代码，最好是能加一些注释
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
chenyu5188 2003-03-28
Dim con As Connection
Dim rst As Recordset
Private Sub cmdOK_Click()
rst.Open ("Select * from XXX where 字段名='" & Trim(text1.Text) & "'")
text2.text = rst.Fields(1)'提取字段1的值给文本框2
rst.Close
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXX.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
Dim rst As Recordset
Private Sub cmdOK_Click()
rst.Open ("Select * from XXX where 字段名='" & Trim(text1.Text) & "'")
text2.text = rst.Fields(1)'提取字段1的值给文本框2
rst.Close
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXX.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
wamlaw 2003-03-28
例如有3个text对应3个数据
text1进行查询
sql=”select text1对应的字段，text2对应的字段,text3对应的字段 from table where text1对应的字段=” & “’”&trim(text1.text)&”’”
set rs=cn.execute(sql)
if isnull(rs.field(0)) =false then
text1.text=rs.field(“text1对应的字段”)
text2.text=rs.field(“text2对应的字段”)
text3.text=rs.field(“text3对应的字段”)
end if
text1进行查询
sql=”select text1对应的字段，text2对应的字段,text3对应的字段 from table where text1对应的字段=” & “’”&trim(text1.text)&”’”
set rs=cn.execute(sql)
if isnull(rs.field(0)) =false then
text1.text=rs.field(“text1对应的字段”)
text2.text=rs.field(“text2对应的字段”)
text3.text=rs.field(“text3对应的字段”)
end if
pcwak 2003-03-28
Dim con As Connection
Dim rst As Recordset
Private Sub cmdOK_Click()
rst.Open ("Select * from qq where 用户='" & Trim(txtName.Text) & "'")
If rst.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtName.Text = ""
txtpwd.Text = ""
Else
txtpwd.Text = rst.Fields(1)
End If
rst.Close
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
Dim rst As Recordset
Private Sub cmdOK_Click()
rst.Open ("Select * from qq where 用户='" & Trim(txtName.Text) & "'")
If rst.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtName.Text = ""
txtpwd.Text = ""
Else
txtpwd.Text = rst.Fields(1)
End If
rst.Close
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
.Open
End With
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.ActiveConnection = con
End Sub
bluesanke 2003-03-28
那查到编号后，怎样做把和编号在同一表中的数据送到对应的text框中呀！给点代码吧
tmat 2003-03-25
dim Str as string '定义字符串变量
Str=文本框名.text
select from 表名 where 查询的字段名 '" & Str & "'
最后加上 如:
文本框名称.text=对象名称("字段名") '对文本框赋值
Str=文本框名.text
select from 表名 where 查询的字段名 '" & Str & "'
最后加上 如:
文本框名称.text=对象名称("字段名") '对文本框赋值
pcwak 2003-03-25
select * from 表名 where 字段='"& text1 &"'
xml 查询问题 xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml 查询问题 急xml ...
经典全面的SQL语句大全 UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1...
Oracle性能诊断艺术(Oracle数据库优化的里程碑式著作)--详细书签版 我曾与他在一个DBA团队共事，深知他的技术功力。不过相对于图书创作来说，他更倾向于翻译一本质量过硬的作品。家旺慧眼识珠，在饶有兴趣地阅读了Troubleshooting Oracle Performance的部分样章之后，终于按耐不住...
OpenGL函数与范例解析手册.pdf OpenGL函数与范例解析手册请各位买价，不要在收到货后，和店主讨论价格问题。 3、买家拍下商品后，一般情况下，我们会在第二天发出，部分商品会因为库房调货，会造成发货延时，请急需要货的买家，拍前和我们联系，再...
Oracle性能诊断艺术 中文pdf 前3部分共5部分 其次，通过理解他的例子，你不仅能够掌握Chris阐述的内容，还能够举一反三，回答Chris没有讲到的其他好问题，比如在这本书付梓之后下一个版本的Oracle将会有什么特性这样的问题。 此书对我来说是一本技术与理念...
Oracle性能诊断艺术 中文pdf第4-5部分共5部分 其次，通过理解他的例子，你不仅能够掌握Chris阐述的内容，还能够举一反三，回答Chris没有讲到的其他好问题，比如在这本书付梓之后下一个版本的Oracle将会有什么特性这样的问题。 此书对我来说是一本技术与理念...
ASP网络记帐 3、对帐户设置成员关系，可以为每个成员设置一个默认帐户，方便相应用户登录的账户选择； 4、流水帐簿中的支出或收入记录,在确认记帐后,如修改，会显示最后一次修改的时间及修改人，相应记录会反冲红字显示； 5、...
Oracle日常维护故障定位故障排除 16由于存在一个大事务操作，导致数据库性能特别差或产生频繁日志切换 17由于没有COMMIT，导致数据库表被锁住 18索引创建不合理，导致数据库查询特别慢 19 由于BUFFER参数设置不合理导致EXP失败 20由于EXP不向上兼容...
风讯dotNETCMS v1.0 sp5源码 dotNETCMS是一款具有强大功能的基于ASP.NET+MSSQL构架的内容管理软件，国内领先的第一款开源的、 集成web2.0元素的、模块化的ＣＭＳ建站系统。 dotNETCMSv1.0sp5 20110408功能: SQL数据库+内容管理+发布管理+会员...
风讯dotNETCMS v1.0 sp5 20110408.rar dotNETCMS免费版本是一款具有强大功能的基于ASP.NET MSSQL构架的内容管理软件，国内领先的第一款开源的、集成web2.0元素的、模块化的ＣＭＳ建站系统。 dotNETCMS功能: SQL数据库 内容管理 发布管理 会员中心 插件...
风讯dotNETCMS 源码包 1.0 SP5 20110408.rar 风讯dotNETCMS免费版本是一款具有强大功能的基于ASP.NET MSSQL构架的内容管理软件，国内领先的第一款开源的、集成web2.0元素的、模块化的CMS建站系统。风讯dotNETCMS免费版功能: SQL数据库 内容管理 发布管理 会员...
风讯dotNETCMS v1.0 sp5 20110408 源码.rar dotNETCMS免费版本是一款具有强大功能的基于ASP.NET MSSQL构架的内容管理软件，国内领先的第一款开源的、集成web2.0元素的、模块化的ＣＭＳ建站系统。dotNETCMS功能: SQL数据库 内容管理 发布管理 会员中心 插件管理...
风讯dotNETCMS 安装包 1.0 SP5 20110408.rar 风讯dotNETCMS免费版本是一款具有强大功能的基于ASP.NET MSSQL构架的内容管理软件，国内领先的第一款开源的、集成web2.0元素的、模块化的CMS建站系统。风讯dotNETCMS免费版功能: SQL数据库 内容管理 发布管理 会员...
基于JSP物流信息网设计软件程序源码+数据库+WORD毕业设计论文文档.zip 出现问题就要解决，为了解决上面所述的一系列问题，人们就设计出了物流网站来解决这些问题，网站查询快递不仅便利了用户查询快递的相关信息，还方便了快递公司的管理。再者，还改变了人们消费的观念和方式，已经成为...
程序员面试攻略 part1(共2个) 独辟蹊径，角度很好，尤其适合我们要找一个好工作的想法，你为公司做了很多事情，也学了很多技术，可是 面试的题目你不一定能够过关，因为面试考题角度特别。要提高自己的生存能力，还是多研究一下吧。我看了前面的...
程序员面试攻略part 2(共2个) 独辟蹊径，角度很好，尤其适合我们要找一个好工作的想法，你为公司做了很多事情，也学了很多技术，可是 面试的题目你不一定能够过关，因为面试考题角度特别。要提高自己的生存能力，还是多研究一下吧。我看了前面的...
儿童成语故事大全v5.0绿色免费版 成语故事大全是一款适用于少年儿童学习成语的软件，每个成语以精彩的视频动画故事形式呈现，支持查询搜索功能，让小朋友更容易更科学的学习成语，是孩子学习成语的好帮手。软件轻巧，占用资源少，免费使用，绿色免...
