UC知道VB连接数据库的查询代码怎么写？
来源：百度知道 编辑：UC知道 时间：2024/06/12 16:56:46
我在做一个医院管理系统，现在要按照病人姓名查询病人的信息。不知道怎么写代码呢？就是按照输入的姓名在数据库里找，然后返回它的所有信息！
select * from 病人信息表 where 病人信息表.病人姓名
后面怎么写？？
怎么还是不行呢？
是这样么？
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 病人信息表 where 病人姓名='& Text1.Text'"
Adodc1.Refresh
End Sub
怎么查询的时候，表里面没显示出来呢？用查询分析器都可以通过
select * from 病人信息表 where 病人信息表.病人姓名
后面怎么写？？
怎么还是不行呢？
是这样么？
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 病人信息表 where 病人姓名='& Text1.Text'"
Adodc1.Refresh
End Sub
怎么查询的时候，表里面没显示出来呢？用查询分析器都可以通过
精确查询可以：
select * from 病人信息表 where 病人姓名 = '"&text1.text&"'"
模糊查询也可以
select * from 病人信息表 where 病人姓名 like '%"&text1.text&"%'"
"select * from 病人信息表 where 病人信息表.病人姓名='"&text1.text&"'"
你是不会连接数据库吗?
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 '以客户端的方式打开
<