Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim sqlcmd As New SqlClient.SqlCommand '定义sqlCommand
sqlcmd.Connection = New SqlClient.SqlConnection(GetDBInfo())
sqlcmd.Connection.Open()
Try
Dim sqlrd As SqlClient.SqlDataReader '定义sqldatareader
sqlcmd.CommandText = "Select * From cangk where cangkno=" & CangkglDataSet5.cangk.Rows(cklxDGV.CurrentCell.RowIndex).Item("cangkno")
sqlrd = sqlcmd.ExecuteReader(CommandBehavior.CloseConnection) '生成sqldatareader
sqlrd.Read() '读取数据
While (sqlrd.Read())
TextBox1.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkno").Value.ToString()
TextBox2.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkname").Value.ToString()
TextBox3.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangkadd").Value.ToString()
TextBox4.Text = cklxDGV.Rows(cklxDGV.CurrentRow.Index).Cells("cangktype").Value.ToString()
End While
sqlrd.Close()
sqlcmd.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcmd.Dispose() ' 释放sqlCommand
End Try
End Sub
代码是这样 但是点击按钮以后没有反应 TextBox里也没有显示
请问是哪里错了 应该怎么改 我是新手 麻烦说详细一点 谢谢!