Question

VB.NET 2003

未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。

其他信息: 系统错误。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As New SqlConnection("Initial Catalog=school;Data Source=(Local);" & "Integrated Security=SSPI;")
Dim sql As String = "Select * From T_Student Where BookCode='" & TextBox3.Text & "'"
Dim mycmd As New SqlCommand(sql, myconn)
Dim myread As SqlDataReader
myconn.Open()
myread = mycmd.ExecuteReader
myread.Read()
TextBox2.Text = myread.Item(0)

TextBox1.Text = myread.Item(1)
求帮助 VB.NET 2003

Answer 1

顺序不对吧，先查询再打开数据库？
Dim myconn As New SqlConnection("Initial Catalog=school;Data Source=(Local);" & "Integrated Security=SSPI;")
myconn.Open() '先打开数据库

Dim sql As String = "Select * From T_Student Where BookCode='" & TextBox3.Text & "'"
Dim mycmd As New SqlCommand(sql, myconn) '再查询
Dim myread As SqlDataReader

Answer 2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As New SqlConnection("Initial Catalog=school;Data Source=(Local);" & "Integrated Security=SSPI;")
myconn.Open()

Dim sql As String = "Select * From T_Student Where BookCode='" & TextBox3.Text & "'"
Dim mycmd As New SqlCommand(sql, myconn)
Dim myread As SqlDataReader
myread = mycmd.ExecuteReader

myread.Read()
TextBox2.Text = myread.Item(0)
TextBox1.Text = myread.Item(1)

Answer 3

建议你用TRY抓一下SQL报错的详细信息就知道了

Answer 4

不太清楚