Dim objConnection As New SqlConnection(strConnection)
Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
Dim objCommand As New SqlCommand(strSQL, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()

解决方案 »

  1.   

    Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    objCommand.ExecuteNonQuery()objConnection.Close()
      

  2.   

    Dim objConnection As New SqlConnection(strConnection)
    Dim strSQL As String = "SELECT * FROM 学生档案表;"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    objCommand.ExecuteNonQuery()
      

  3.   

    objCommand.ExecuteNonQuery()
    objCommand.Dispose()
      

  4.   

    Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    try
       objCommand.ExecuteNonQuery()
    catch  end try
    objConnection.Close()
      

  5.   

    Dim objConnection As New SqlConnection(strConnection)
    Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    objCommand.ExecuteNonQuery()
      

  6.   

    Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    try
       objCommand.ExecuteNonQuery()
    catch  end try
    objConnection.Close()
    1,用try catch 可以捕获并处理错误
    2,别忘记关闭连接  objConnection.Close()
      

  7.   

    String insertCmd = "insert into Authors (au_id, au_lname, au_fname, phone, address, city, state, zip, contract) values (@Id, @LName, @FName, @Phone, @Address, @City, @State, @Zip, @Contract)";            SqlCommand myCommand = new SqlCommand(insertCmd, myConnection);            myCommand.Parameters.Add(new SqlParameter("@Id", SqlDbType.NVarChar, 11));
                myCommand.Parameters["@Id"].Value = Server.HtmlEncode(au_id.Value);            myCommand.Parameters.Add(new SqlParameter("@LName", SqlDbType.NVarChar, 40));
                myCommand.Parameters["@LName"].Value = Server.HtmlEncode(au_lname.Value);            myCommand.Parameters.Add(new SqlParameter("@FName", SqlDbType.NVarChar, 20));
                myCommand.Parameters["@FName"].Value = Server.HtmlEncode(au_fname.Value);            myCommand.Parameters.Add(new SqlParameter("@Phone", SqlDbType.NChar, 12));
                myCommand.Parameters["@Phone"].Value = Server.HtmlEncode(phone.Value);            myCommand.Parameters.Add(new SqlParameter("@Address", SqlDbType.NVarChar, 40));
                myCommand.Parameters["@Address"].Value = Server.HtmlEncode(address.Value);            myCommand.Parameters.Add(new SqlParameter("@City", SqlDbType.NVarChar, 20));
                myCommand.Parameters["@City"].Value = Server.HtmlEncode(city.Value);            myCommand.Parameters.Add(new SqlParameter("@State", SqlDbType.NChar, 2));
                myCommand.Parameters["@State"].Value = state.Value;            myCommand.Parameters.Add(new SqlParameter("@Zip", SqlDbType.NChar, 5));
                myCommand.Parameters["@Zip"].Value = Server.HtmlEncode(zip.Value);            myCommand.Parameters.Add(new SqlParameter("@Contract", SqlDbType.NVarChar,1));
                myCommand.Parameters["@Contract"].Value = contract.Value;            myCommand.Connection.Open();插入数据
      

  8.   

    seehttp://www.tongyi.net/article/20020121/200201213033.shtml
      

  9.   

    Dim objConnection As New SqlConnection(strConnection)
    Dim strSQL As String = "Update 学生档案表 set 是否注册='是' WHERE 学号='800000'"
    Dim objCommand As New SqlCommand(strSQL, objConnection)
    objConnection.Open()
    objCommand.ExecuteNonQuery()