none
Alterar uma tabela

    Pergunta

  • Queria alterar o campo nome, sexo e endereço.

    abs
    Umbelino


    #Region "Alterar"

        Private Sub Btn_alterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_alterar.Click

            Dim cons As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Projetos VB\banco_combo_2\banco_combo_2\cadastro.mdb;Persist Security Info=False"


            Dim dbcon2 As New OleDb.OleDbConnection(cons)
            dbcon2.Open()
            Dim sql As String = "update funcionário set (nome,sexo,endereço) ('" & Txt_nome.Text & " ','" & Txt_Sexo.Text & " ','" & Txt_Endereco.Text & "' )"

            Dim dbco


            Dim comando As New OleDb.OleDbCommand(sql, dbcon2)
            comando.CommandType = CommandType.Text
            comando.ExecuteNonQuery()
            dbcon2.Close()
            limpar()


        End Sub
    #End Region
    domingo, 21 de junho de 2009 14:58

Respostas

Todas as Respostas