如何使用选择查询从数据库检索数据

问题描述

| 我必须在两个TextBox中检索数据，但数据应属于我从第一个文本框中获取的ѭ0。我总共有三个TextBoxes和一个按钮。在名为“ 1”的数据库中，我有一个名为“ 2”的表和两个字段“ 3”作为序列号，“ 0”表示令牌编号，“ 5”表示员工姓名。

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New OleDb.OleDbConnection
        Dim dbProvider As String
        Dim dbSource As String
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        Dim a As Integer



        dbProvider = \"PROVIDER=Microsoft.Jet.OLEDB.4.0;\"
        dbSource = \"Data Source = C:\\Documents and Settings\\trainee-ng-it\\Desktop\\Subhedar Sir\\New Folder (2)\\db1.mdb\"

        con.ConnectionString = dbProvider & dbSource

        con.open()
        a = Val(TextBox1.Text)
        sql = \"SELECT Table1.ser FROM Table1 where Table1.token num=a\"
        da = New OleDb.OleDbDataAdapter(sql,con)
        da = New OleDb.OleDbDataAdapter(sql,con)
        da.Fill(ds,\"db1\")
        MsgBox(\"Database is Now open\")

        con.Close()
        MsgBox(\"Database is Now Closed\")



    End Sub
End Class

@dhruva先生：感谢您的指导，我更正了该问题，但是现在该如何进行？如何在相应的文本框中获取相应的数据？     

解决方法

        您的SQL查询错误

    sql = \"SELECT Table1.ser FROM Table1 where Table1.token num=a\"

应该是这样的：

    sql = \"SELECT Table1.ser FROM Table1 where Table1.tokennum=\" & a

尽管\'Table1.token num \'是错误的，但列名中不能有空格，但我希望这只是一个错字，并且已在第二个查询中更正了该错误。     ,        

\"SELECT Table1.ser FROM Table1 where Table1.tokennum= \" + a

这是一个开始，但是您的问题不是很清楚