Question

在一个VB工程中我有一个窗体，里面有三个文本框和一个按钮，前两个文本框给用户输入查询条件，第三个文本框

在一个VB工程中我有一个窗体，里面有三个文本框和一个按钮，前两个文本框给用户输入查询条件，然后在按下按钮的时候，在第三个文本框里显示对应条件的内容，（该窗体已经连接SQL Server数据库）
这样的语句该怎么写？

若以下回答无法解决问题，邀请你更新回答

Answer 1

你先写一下你是怎么显示数据库内容的

追问

我现在还只是连接上数据库，并根据条件从数据库中查找对应信息，但是就是不知道怎么将他在第三个文本框中显示出来
rname.Source = "select * from student where sno='" + sno_Text + "'"
rname.Open
这是在根据条件查找数据库中的对应信息。

追答

rname怎么定义的？推荐你用adodc控件

追问

Dim rname As ADODB.Recordset
Set rname = New ADODB.Recordset
Set rname.ActiveConnection = name
rname.CursorLocation = adUseClient
rname.CursorType = adOpenStatic
rname.LockType = adLockOptimistic
rname是这样定义的。用Adodc控件，不是很会用啊，我用的时候基本上在界面上会有一个Adodc控件，但是我不希望在界面是有这样的东西

追答

可以把这个控件的Visible属性设为False就看不见了，很好用，VB编数据库基本上都用它。

追问

那怎么设置那个按钮呢？

追答

Dim rname As New ADODB.Recordset
With rname
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from student where sno='" + sno_Text + "'", dbObj, adOpenKeyset, adLockReadOnly
If .RecordCount > 0 Then
.MoveFirst
While Not .EOF
Text3.Text = Text3.Text & .Fields("sno") & VbCrLf '显示sno字段
.MoveNext
i = i + 1
Wend
End If
End With

追问

忘了告诉你了，前两个文本框必须要填写的，分别是学号和课程号，第三个文本框是成绩，而这三个要素都在数据库的SC表中，刚才我也根据具体需要修改了一下你给的代码，但是提示说数据类型不正确或者不再可以接受的范围之内或与其他参数冲突，不知道是为什么啊？

追答

.Open "select * from student where sno='" & sno_Text & "' and 课程号='" & text2.text & "'", dbObj, adOpenKeyset, adLockReadOnly