Question

我正在尝试使用VB6在文本框中搜索并显示数据库，但是我不太确定问题出在哪里，搜索后如何在文本框中显示数据库？

我已经尝试使用不同的代码集，但是似乎都没有用。我也尝试过输入框。

Dim search As String

search = Text5.Text
Adodc1.Recordset.Find "Studno = " & search

If Adodc1.Recordset.EOF Then
MsgBox "NO record"
Else
Adodc1.Recordset.Fields("Studno") = Text1.Text
Adodc1.Recordset.Fields("Studname") = Text2.Text
Adodc1.Recordset.Fields("Age") = Text3.Text
Adodc1.Recordset.Fields("Address") = Text4.Text
End If

我想在搜索完studno后在文本框中显示所有字段。

Answer 1

您正在尝试将文本框的内容添加到记录集字段，而不是相反。试试：

Text1.Text = Adodc1.Recordset.Fields("Studno")
Text2.Text = Adodc1.Recordset.Fields("Studname")
Text3.Text = Adodc1.Recordset.Fields("Age")
Text4.Text = Adodc1.Recordset.Fields("Address")

Answer 2

好的。更新的答案。试试：

Adodc1.Recordset.Find "Studno = '" & search & "'"

，并在Else语句之后的第一行上放置一个断点，以确保它能走得那么远。（请注意，搜索字符串前后都有一个单引号。）您仍然需要我最初发布的更改才能真正看到结果。

我如何添加VB6 Adodc.recordset.find

2 个答案: