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

2003-03-25 01:17:01 61 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在线词典查询系统做这个“在线词典查询系统”，起初感觉比较难，一方面是数据库的庞大，另一方面是知识面的广度，几乎用上了所有的知识，要是界面和体验度好的话还必须要用到ajax，但是，在这里为了简化过程，突出后台业务逻辑，数据库数据采用了小部分的模拟数据，没有进行界面优化，所以，在研究起来也就降低了代码的复杂度。所谓的在线词典查询，就是接收到用户的查询数据，由服务器执行去数据库去找到数据并且返回给客户端的过程，虽然阅读详情

我有一个界面中有n个text框，对应着n个数据，现在我只对一个数据进行查询，查询结果是如果找到这个数据，那末界面里的其它数据也和表里的数据相连！
求用sql编写的这段查询代码，最好是能加一些注释

...全文

使用gsoap实现一个简单的 QQ在线状态查询程序 gsoap是一个功能很强大的工具，它可以根据wsdl生成对应的C/CPP程序，从而帮助C/C++程序员更方便简单的访问web serivce.-----------------详细资料以及下载在、http://gsoap2.sourceforge.net/。首先，打开cmd窗口，进入到gsoap/bin/win32里执行第一步，第二步第一步： QQ在线状态查询的WS 阅读详情

bluesanke

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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 &"'

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

相关推荐