如何在vb.net中搜索和使用查询填充文本框和组合框中的信息

我有我需要使用urno搜索的VB.net项目，它应该填充所有文本框和组合框中的信息在表单上，它是从哪个数据存储在database.here相同的形式是码如何在vb.net中搜索和使用查询填充文本框和组合框中的信息

Public Class MBAUpdate 
    Dim con As New OleDb.OleDbConnection() 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Try 
      'Dim da As OleDb.OleDbDataAdapter 
      Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;" 
      Me.con = New OleDb.OleDbConnection() 
      con.ConnectionString = dbprovider 
      con.Open() 

      Dim sqlquery As String = "SELECT * FROM MBA WHERE urno=" & CInt(txtb1.Text) & ";" 
      Dim sqlcommand As New OleDb.OleDbCommand(sqlquery, con) 
      Dim ds As DataSet 

      With sqlcommand 
       .CommandText = sqlquery 
       .Connection = con 
       .ExecuteReader() 
      End With 

      ' MsgBox("Record Added") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 

    End Sub 
End Class

任何想法如何实现这一对此颇为谷歌搜索did'nt于事无补....

来源

2013-02-20 CrashOverride

分解。您需要开始用查询结果填充数据集。这是非常可googleable。 – Constanta 2013-02-20 15:02:15

我知道如何填充数据集，只是不知道如何在字段中填充数据.... – CrashOverride 2013-02-20 15:35:50

您需要使用ExecuteReader方法返回的数据读取器来自己读取返回的行，或者您需要创建一个数据适配器，让它为您读取行并填充数据集。你试图用哪种方式去使用它？看起来你现在有两种方法的混合。 – 2013-02-20 15:36:18

找到了一种方法来做到这一点，它的工作就像一个魅力.....

Public Class MBAUpdate 
    Dim con As New OleDb.OleDbConnection 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Try 
      'Dim da As OleDb.OleDbDataAdapter 
      Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;" 
      Me.con = New OleDb.OleDbConnection 
      Dim sqlquery As String = "SELECT * FROM MBA WHERE urno=" & CInt(txtb1.Text) & ";" 
      Dim command As New OleDb.OleDbCommand(sqlquery, con) 
      Dim reader As OleDb.OleDbDataReader 
      con.ConnectionString = dbprovider 
      con.Open() 

      reader = command.ExecuteReader() 
      reader.Read() 

      txtName.Text = reader(1).ToString() 
      txtFname.Text = reader(2).ToString() 
      txtCAdd.Text = reader(3).ToString() 
      txtPAdd.Text = reader(4).ToString() 
      txtEid.Text = reader(5).ToString() 
      cmbGender.Text = reader(6).ToString() 
      txtMno.Text = reader(7).ToString() 




      ' MsgBox("Record Added") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 

    End Sub 
End Class

来源

2013-02-20 17:06:12 CrashOverride

如何在vb.net中搜索和使用查询填充文本框和组合框中的信息

回答

相关问题