VB.NET数据库查询结果显示在TextBox中

Question

Private Sub Worktime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim username = TextBox2.Text
Dim myconn As New SqlConnection("Initial Catalog=job;Data Source=.;" & "Integrated Security=SSPI;")
Dim sql As String = "SELECT WorkTime,ManagerCode FROM T_Manager WHERE UserName ='" & username & "'"
Dim mycmd As New SqlCommand
mycmd.Connection = myconn
mycmd.CommandText = sql
Dim myadapter As New SqlDataAdapter(mycmd)
Dim mydataset As New DataSet
myadapter.Fill(mydataset, "WorkTime")
myconn.Open()
TextBox1.DataBindings.Add("Text", mydataset, "WorkTime")
myconn.Close()
End Sub
代码没有提示错误，可以运行，但是文本框内是空，将查询语句放到数据库中的查询分析器是有结果的，求大神帮忙看看哪里出了问题？？？！！！

Answer 1

你这个程序两个问题

不显示数据的原因，TextBox1.DataBindings.Add("Text", mydataset, "WorkTime")，第二个参数不能是dataset应该是datatable，所以应该写成TextBox1.DataBindings.Add("Text", mydataset.Tables("WorkTime"), "WorkTime")

myconn.Open()的打开与关闭没必要再写了