Vb.net 将数据加载到我的主窗体

studentrecords表.，，包含IDNumber、LastName、Course、Firstname

我将使用IDNumber通过我的系统登录，一旦我进入主窗体，我想使用IDNumber作为主键，在主窗体的两个文本框中显示LASTname和course.，。我的代码错误

Dim con作为新的OLEDB连接 Dim cmd作为新的OLEDB命令

  Dim da As New OleDbDataAdapter

  Dim dt As New DataTable

  Dim sSQL As String = String.Empty

  'get connection string declared in the Module1.vb and assing it to conn variable

  con = New OleDbConnection(Get_Constring)

  con.Open()

  cmd.Connection = con

  cmd.CommandType = CommandType.Text
  sSQL = "SELECT  LastName FROM studentsrecords where IDNumber like '%" & studentslogin.[txtIDNumber].Text & "%' order by ID desc"

  cmd.CommandText = sSQL

  da.SelectCommand = cmd

  da.Fill(dt)

  'evalutionrate.[lbllogin].Text = studentslogin.[txtIDNumber].Text

  evalutionrate.[lbllogin].Text = sSQL

  evalutionrate.Show()

---

这里：只需创建一个新标签“label=lbllogin”并在welcome或mainform中“隐藏”它，因为它将是读取数据库的关键

Private Sub Mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 If conn.State = ConnectionState.Closed Then
        conn.Open()
    End If
    lbllogin.Text = Login.studentslogin.Text
    Dim sqlquery As String = "select * from studentsrecords where IDNumber =@ID"
    Dim sqlcommad As New OleDbCommand
    Dim sqlread As OleDbDataReader
    sqlcommad.CommandText = sqlquery
    sqlcommad.Connection = conn
    sqlcommad.Parameters.AddWithValue("@ID", lbllogin.Text)
    sqlcommad.ExecuteNonQuery()
    sqlread = sqlcommad.ExecuteReader
    Try
        If (sqlread.Read()) Then
            textbox1.Text = sqlread("LASTname ")      
            textbox2.Text = sqlread("course ")

        End If
    Catch ex As Exception

    End Try
    conn.Close()
End Sub

---

如果这个答案有用，别忘了投票。

它只加载IDNumber