Question

VB连接数据库的查询代码怎么写？

我在做一个医院管理系统，现在要按照病人姓名查询病人的信息。不知道怎么写代码呢？就是按照输入的姓名在数据库里找，然后返回它的所有信息！
select * from 病人信息表 where 病人信息表.病人姓名
后面怎么写？？
怎么还是不行呢？
是这样么？
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 病人信息表 where 病人姓名='& Text1.Text'"
Adodc1.Refresh
End Sub
怎么查询的时候，表里面没显示出来呢？用查询分析器都可以通过

Answer 1

精确查询可以：
select * from 病人信息表 where 病人姓名 = '"&text1.text&"'"
模糊查询也可以
select * from 病人信息表 where 病人姓名 like '%"&text1.text&"%'"

Answer 2

If rec.State = adStateOpen Then rec.Close
sql = "select * from 病人信息表 where 病人姓名="& text1.text &"" '定义sql查询语句"
rec.Open sql, con, adOpenStatic, adLockOptimistic '打开记录集
Set datagrid1.DataSource = rec '用datagrid控件显示记录集

这个是连接数据表..Datagrid...
下面的是连接数据库..
Public con As New Connection '定义数据连接，公共变量
Public coon, coom As String
Public str As Currency

Sub main()
ChDir App.Path '转换相对路径

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xx.mdb(xx这里是你数据库名);Persist Security Info=False"
'定义数据库连接
con.CursorLocation = adUseClient '以客户端的方式打开

con.Open ' 打开连接
病人信息表.Show
End Sub

Answer 3

精确查询
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 病人信息表 where 病人姓名='" & Text1 & "'"
Adodc1.Refresh
End Sub

模糊查询
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 病人信息表 where 病人姓名like '%" + text1 + "%'"
Adodc1.Refresh
End Sub

Try it.

Answer 4

"select * from 病人信息表 where 病人信息表.病人姓名='"&text1.text&"'"

Answer 5

select
名称
from
产品库
where
名称
=
txtProductName.text