在线急等一个查询问题!!!

bluesanke 2003-03-25 01:17:01
我有一个界面中有n个text框,对应着n个数据,现在我只对一个数据进行查询,查询结果是如果找到这个数据,那末界面里的其它数据也和表里的数据相连!
求用sql编写的这段查询代码,最好是能加一些注释
...全文
12 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过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
回复
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
回复
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
回复
bluesanke 2003-03-28
那查到编号后,怎样做把和编号在同一表中的数据送到对应的text框中呀!给点代码吧
回复
tmat 2003-03-25
dim Str as string '定义字符串变量
Str=文本框名.text
select from 表名 where 查询的字段名 '" & Str & "'
最后加上 如:
文本框名称.text=对象名称("字段名") '对文本框赋值


回复
pcwak 2003-03-25
select * from 表名 where 字段='"& text1 &"'
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-25 01:17
社区公告
暂无公告