Question

vb.net 数据库中一个问题

Imports System.Data.OleDb
Public Class Form1
Public mybind As BindingManagerBase
Private Property mydataset As DataSet
Private Property mybid As BindingManagerBase
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcon As String = "provider=Microsoft.ACE.OLEDB.12.0;" & "data source =F:\student.accdb"
Dim myconn As OleDbConnection = New OleDbConnection()
myconn.ConnectionString = strcon
'
Dim strcom As String = "select 学 * from 表2 WHERE 学号='"& textbox1.text"&'"
Dim mydataset As New DataSet()
myconn.Open()
Dim mycommand As OleDbDataAdapter = New OleDbDataAdapter(strcom, strcon)
mycommand.Fill(mydataset, "表2")
myconn.Close()
mybind = Me.BindingContext(mydataset, "表2")
Me.DataGridView1.DataSource = mydataset.Tables("表2")
End Sub
End Class

我用上面的方法查询当数据库中学号等于 textbox1.text 时，所有成员信息，将他们显示到.DataGridView1中，但是，我现在想让信息显示到 几个textbox中（比如：姓名显示到textbox2，性别显示到textbox3等等，不知道怎么弄，请大神帮帮忙吧！！

Answer 1

Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
    If Me.DataGridView1.SelectedRows.Count > 0 Then
        TextBox1.Text = Me.DataGridView1.SelectedRows(0).Cells("列名").Value.ToString
    End If
End Sub

这是在DataGridView1激发单击事件，在TextBox1中显示选中的那行中的某个单元格的值。

如果有TextBox2、TextBox3等乖，以此类推。

追问

那如果想不单击DataGridView1而直接在textbox中显示，可以做到吗？？？

追答

既然使用datagridview控件，说明数据是一个表，有很多条数据.
textbox只能显示一个单元格的数据，你想怎么让数据直接显示在textbox中？

追问

就是好多条数据显示在好多个textbxo中？？？？？可以不用DATAGRIDVIEW控件，但是必须用TEXTBOX控件 ！！！！！！！！

追答

可以不用DataGridView控件，那将数据读取为表格DataTable，然后写入每个textbox中。

大概是这样的：

'连接数据库
Dim Con As New SqlClient.SqlConnection("数据库连接字符串")
Dim Com As New SqlClient.SqlCommand("查询字符串", Con)
Dim Dap As New SqlClient.SqlDataAdapter
Dap.SelectCommand = Com
Dim TableA As New DataTable
'打开连接并读取数据
Con.Open()
Dap.SelectCommand.ExecuteReader()
Con.Close()
'将读取的数据填充至表格TableA
Dap.Fill(TableA)
'将表格中的数据写入每个textbox
TextBox1.Text = TableA.Rows(0)("列名1").ToString
TextBox2.Text = TableA.Rows(0)("列名2").ToString
TextBox3.Text = TableA.Rows(0)("列名3").ToString
TextBox4.Text = TableA.Rows(1)("列名1").ToString
TextBox5.Text = TableA.Rows(1)("列名2").ToString
TextBox6.Text = TableA.Rows(1)("列名3").ToString