'数据更新问题,代码如下：

Question

你的编程习惯非常不好button1_click就是已经postback了的,当然是没有实例化对象了

Answer 1

Dim strSql As String = "select * from 入库任务表"
Dim strCNN As String = "initial catalog=nzdb;user id=sa;password=neary"
Dim myCNN As new SqlClient.SqlConnection()
Dim myDA As new SqlClient.SqlDataAdapter()
Dim myDS As New Data.DataSet()
Dim myDRCmdBuilder As new SqlCommandBuilder()Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     If Not Page.IsPostBack Then
     myCNN = New SqlConnection(strCNN)
     myDA = New SqlClient.SqlDataAdapter(strSql, myCNN)     myDRCmdBuilder = New SqlCommandBuilder(myDA)
     With myDA
          .Fill(myDS, "nz")
      End With
      
      With DBs2
           .DataSource = myDS.Tables("nz")
           .DataBind()
      End With
      end if
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     myDS.Tables("nz").Rows(1)(0) = "A" + myDS.Tables("nz").Rows(0)(0)
     myDA.Update(myDS, "nz")
     With DBs2
          .DataSource = myDS.Tables("nz")
          .DataBind()
     End With
End Sub

Answer 2

Dim strSql As String = "select * from 入库任务表"
Dim strCNN As String = "initial catalog=nzdb;user id=sa;password=neary"
Dim myCNN As new SqlClient.SqlConnection()
Dim myDA As new SqlClient.SqlDataAdapter()
Dim myDS As New Data.DataSet()
Dim myDRCmdBuilder As new SqlCommandBuilder()Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     If Not Page.IsPostBack Then
     myCNN = New SqlConnection(strCNN)
     myDA = New SqlClient.SqlDataAdapter(strSql, myCNN)     myDRCmdBuilder = New SqlCommandBuilder(myDA)
     With myDA
          .Fill(myDS, "nz")
      End With
      
      With DBs2
           .DataSource = myDS.Tables("nz")
           .DataBind()
      End With
      end if
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     myDS.Tables("nz").Rows(1)(0) = "A" + myDS.Tables("nz").Rows(0)(0)
     myDA.Update(myDS, "nz")
     With DBs2
          .DataSource = myDS.Tables("nz")
          .DataBind()
     End With
End Sub

Answer 3

Dim strSql As String = "select * from 入库任务表"
Dim strCNN As String = "initial catalog=nzdb;user id=sa;password=neary"
Dim myCNN As new SqlClient.SqlConnection()
Dim myDA As new SqlClient.SqlDataAdapter()
Dim myDS As New Data.DataSet()
Dim myDRCmdBuilder As new SqlCommandBuilder()Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     If Not Page.IsPostBack Then
     myCNN = New SqlConnection(strCNN)
     myDA = New SqlClient.SqlDataAdapter(strSql, myCNN)     myDRCmdBuilder = New SqlCommandBuilder(myDA)
     With myDA
          .Fill(myDS, "nz")
      End With
      
      With DBs2
           .DataSource = myDS.Tables("nz")
           .DataBind()
      End With
      end if
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     myDS.Tables("nz").Rows(1)(0) = "A" + myDS.Tables("nz").Rows(0)(0)
     myDA.Update(myDS, "nz")
     With DBs2
          .DataSource = myDS.Tables("nz")
          .DataBind()
     End With
End Sub

Answer 4

你首先要确定你在什么情况下要对数据库进行操作
是PostBack还是not postback
然后把对数据库的所有操作写成一个方法,
在需要使用的时候就调用这个方法就成了