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

发布网友 发布时间：2023-03-16 02:22

我来回答

共3个回答

热心网友 时间：2023-10-27 16:24

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

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

热心网友 时间：2023-10-27 16:24

注意一下数据表中的字段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语句怎么写？ 查询结果两个，在不同文本框里显示应该怎么写？哪些地方需要修改？

热心网友 时间：2023-10-27 16:25

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 & "'"