Vb.net ms access中搜索记录的问题 问题是什么？你注意到出口接头和Else块中的第一行一样吗？耶。。。。我只是错过了复制它…@steve问题是我可以搜索。。。但我看不到任何数据。。。已检索…是否显示MsgBox？如果MsgBox显示其警报，则没有具有该ID

ms access中搜索记录的问题

---

问题是什么？你注意到出口接头和Else块中的第一行一样吗？耶。。。。我只是错过了复制它…@steve问题是我可以搜索。。。但我看不到任何数据。。。已检索…是否显示MsgBox？如果MsgBox显示其警报，则没有具有该ID_no的行，通过将其作为数字传递的方式，因此我假设ID_no存储在access表的数字字段中。对吗？另一种可能是您查询了错误的数据库。你的连接字符串是什么？等一下。。。因此，在这段代码中，“sql=”SELECT*FROM PS_DTS，其中ID_NO=（“&ID_NO&”）PS_DTS是表的名称……而这个“ID_NO”是？@Steve

Dim MAX As Integer
Dim ID_NO, sql As String
Dim da As OleDb.OleDbDataAdapter
Dim dsl As New DataSet



ID_NO = InputBox("Please Enter The ID_NUMBER To Preview a Record")

sql = "SELECT * FROM PS_DTS WHERE ID_NO = (" & ID_NO & ")"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(dsl, "Search")
MAX = dsl.Tables("Search").Rows.Count
If MAX = 0 Then
    MsgBox("The ID_NO Entered is INVALID", MsgBoxStyle.Critical)
Else
    Exit Sub
    TextBox2.Text = dsl.Tables("Search").Rows(0).Item(1)
    TextBox3.Text = dsl.Tables("Search").Rows(0).Item(2)
    TextBox4.Text = dsl.Tables("Search").Rows(0).Item(3)
    TextBox5.Text = dsl.Tables("Search").Rows(0).Item(4)
    TextBox6.Text = dsl.Tables("Search").Rows(0).Item(5)
    TextBox29.Text = dsl.Tables("Search").Rows(0).Item(6)
    TextBox7.Text = dsl.Tables("Search").Rows(0).Item(7)
    TextBox8.Text = dsl.Tables("Search").Rows(0).Item(8)
    TextBox9.Text = dsl.Tables("Search").Rows(0).Item(9)
    DateTimePicker7.Value = dsl.Tables("Search").Rows(0).Item(10)
End If
dsl.Tables("Search").Rows.Clear()