Public Class 成绩查询 Inherits System.Windows.Forms.Form Dim strconn As String = "data source=XIEXIAOYU-PC;database=教务系统;user id=b;password=bbb;" Dim objds As New Data.DataSet Dim objda As SqlClient.SqlDataAdapter Dim bingpage As BindingManagerBase Dim strsql As String Private Sub 成绩查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strsql = "select * from xsb" objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, "xsb") bingpage = Me.BindingContext(objds, " xsb") TextBox1.DataBindings.Add("text", objds, "cjb.课程号") TextBox2.DataBindings.Add("text", objds, "cjb.成绩") TextBox3.DataBindings.Add("text", objds, "cjb.编号") TextBox4.DataBindings.Add("text", objds, "cjb.学号")
End SubEnd Class