Question

VB查询数据库中的数值

请问高手一下,VB连接数据库已经连接上了,就是怎样用SQL来查询数据库中的数据,一定要精确查找.比如说:数据库中有【个人基本资料】这一张表，表中有【姓名】这一列,这一列里面有一个叫张三的。在VB中的TEXT1中输入姓名后,如果输入的姓名不在数据库中则提示不存在,如果数据库中有叫张三的则显示在另一个TEXT2中.注意:如果输入姓氏后,则不显示.
比如说，数据库中有一个名为个人基本资料这么一张表,里面有一个名为姓名这个字段,在VB中查询姓名,比如说,数据库中的姓名字段中有一个叫张三的人,在VB中查询后,把张三的信息显示在VB中的TEXT2中.

Answer 1

你的题写的我不是很明白

情况一：
是根据指定两个字段的值查询，可以用下面的代码。

'将两个combo控件的style属性设置为2，下面将生成SQL查询语句。
'我是直接在这写的，没有在VB下面试，不过应该是不会有错的吧

dim sql
sql="select * from gearka"
if combo1.ListIndex <>-1 or combo2.ListIndex<>-1 then
sql=sql & " where"
end if
if combo1.ListIndex<>-1 then
sql =sql & " 字段名1='"& combo1.text &"'"
if combo2.ListIndex<>-1 then
sql=sql & " and"
end if
end if
if combo2.ListIndex<>-1 then
sql =sql & " 字段名2='"& combo2.text &"'"
end if

情况二：
情况比较复杂（要打好多字^_^）

数据库 例

名称 | 00年价格 | 01年价格 | 02年价格
手机 | 1000元 | 1200元 | 1300元
电脑 | 3000元 | 2800元 | 5000元
大饼 | 5000元 | 6000元 | 7000元

combo1 | combo2
手 机 | 00年价格
电 脑 | 01年价格
大 饼 | 02年价格

如果是这样用下面SQL语句就可以
sql="select " & combo2.text & " from where 产品名称='"& combo1.text &"'"

情况三：
我也不会了^_^

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

Answer 2

我简单的试试:
rs.Open "select 姓名 from 个人基本资料 WHERE 姓名 = 'TEXT1.TEXT'"
if rs.EOF then
TEXT2.TEXT = "不存在"
else
TEXT2.TEXT = rs
end if

Answer 3

mi.do"select river from river where river=" & acute.text1.text 应该是则样写的 呵呵 sql语句是这样 你只用这句select就行了

Answer 4

sql="select *From table where name="%this.text1.text;
rs.open sql,con,1,3
if rs not is eof then
this.text2.text=rs(name)
end if