Question

怎样用vb调用sql server的查询语句然后将查询结果显示到文本框中？

假设我要查询数据库student中表stu_info中的stu_id为vb界面上文本框txt1中输入的内容所对应的信息
连接数据库成功后，我将查询语句赋值给字符串str
dim str as string
str="select * from stu_info where stu_id='"txt1.text"'"
这个写法对么？
再就是赋值给str以后，我想在txt2文本框中显示查询的结果（只需要查询到一个值，假设对应表中的stu_name这一列，我就只需要一个姓名）
怎么在vb的文本框txt2中显示这一条信息?
运行通过我会加分的~~谢谢~~~
str="select * from stu_info where stu_id='"&txt1.text&"'"

Answer 1

SQL SERVER的数据库你应该会吧，这里就不说了。
dim db as new adodb.connection
dim rs as new adodb.recordset
dim str1 as string

db.open "数据库链接串"
str1="select * from stu_info where stu_id='"& txt1.text & " '
rs.open str1,db,1
if rs.recordcount<=0 then
msgbox "没有记录!"
rs.close
exit sub
endif
txt2.text=rs.fields("stu_name").value
rs.close
db.close

试试吧，里面的一些可能要修改一下，但大致的代码就是这样了。

追问

如果where以后好几个条件，想用str1="stu_name='" &txt1.text& "' and stu_id= '" & txt2.text & "'",select语句怎么写？
查询结果两个，在不同文本框里显示应该怎么写？哪些地方需要修改？

追答

str1="select * from stu_info where stu_name=' " & txt1.text & " ' and stu_id= ' " & txt2.text & " ' "
rs.open str1,db,1
if rs.recordcount<=0 then
msgbox "没有记录!"
rs.close
exit sub
endif
txt3.text=rs.fields("stu_name").value
txt4.text=rs.fields("stu_id").value
rs.close
db.close

追问

我是要在四个表中查四个条件相同的参数，好像记录集还是什么地方有问题。如果用连接查询是不是能好一些？

追答

我的估计你是是从四个表中有关联的字段来查询，如表1，表2，表3，表4，他们的关联字段为：ID。那么查询语句就可以写为

select * from 如表1 t1，表2 t2 ，表3 t3，表4 t4 where t1.id=t2.id and t2.id=t3.id and t3.id=t4.id
查询出结果后就选择需要的字段就可以了。方法同上。。。

Answer 2

注意一下数据表中的字段stu_id的数据类型
str="select * from stu_info where stu_id='"&txt1.text&"'" 写法是正确的

要想在txt2中显示查询的结果，首先要打开记录集
假设数据库连接对象为conn,记录集对象为rs则打开记录集语句为
rs.open str,conn,adopenkeyset,adlockoptimistic
if rs.RecordCount>0 then
txt2.Text=rs.Fields("stu_name").Value
end if

追问

如果where以后好几个条件，想用str1="stu_name='" &txt1.text& "' and stu_id= '" & txt2.text & "'",select语句怎么写？ 查询结果两个，在不同文本框里显示应该怎么写？哪些地方需要修改？

Answer 3

str="select * from stu_info where stu_id='"& txt1.text & "'" '连接符不能省略

txt2文本框是现实字段stu_id的查询值，还是stu_name的查询值？
如果是stu_id的
txt2.text=str 'txt2文本框中显示查询的结果
如果是stu_name的查询值
txt2.text="select * from stu_info where stu_id='"& txt1.text & "'"