VB 数据库的小问题,急!!!!!!!高分悬赏!!!!

来源:百度知道 编辑:UC知道 时间:2024/09/27 21:21:24
我想用一个查询,通过数据库里某一条记录的一个值来查询整条内容,并把结果显示在text里。这是我做的一个界面:
http://static4.photo.sina.com.cn/middle/4d652b4bt738ab8ffa593&690
这是我的数据库:
http://static15.photo.sina.com.cn/middle/4d652b4bt738ab8ffbb0e&690
请各位大侠帮我写出代码,必有重谢!

这个就很简单了,根据某一条记录 的一个值,那么这个值必须唯一才能取到这一条记录,sql语句如下:select * from 表名 where 字段=唯一的值
这样就ok了!!

查询:
给你个参考
比如说在form加上1个Textbox,1个commmandbutton和1个Listbox
Textbox=txtfind
CommandButton=cmdsearch
ListBox=List1

'下面两行写在程式最上面(General内)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\daily.mdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Daily", cn, adOpenKeyset, adLockPessimistic (Daily为Access 资料表名)

'以下为取消查询按钮代码,可查询日期,文字和数字.

Private Sub cmdsearch_Click()
Select Case rs.Fields(List1.ListIndex).Name
Case "Items"
SQL = "select * from Table Name where Items=" & "'" & txtfind.Text & "'"
Case "Price"