none
Como inserir dados em duas tabelas RRS feed

  • Pergunta

  •    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bdcliente.mdb")
            Dim sql As String = "Insert INTO tabcliente (Nome, Telefone, Celular, Endereco, Cidade, Estado) VALUES (@Nome, @Telefone, @Celular, @Endereco, @Cidade, @Estado);"
    
            Dim cmd As New OleDb.OleDbCommand(sql, conn)
    
            cmd.Parameters.AddWithValue("@Nome", TextBox1.Text)
            cmd.Parameters.AddWithValue("@Telefone", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Celular", TextBox3.Text)
            cmd.Parameters.AddWithValue("@Endereco", TextBox4.Text)
            cmd.Parameters.AddWithValue("@Cidade", TextBox5.Text)
            cmd.Parameters.AddWithValue("@Estado", TextBox6.Text)
    
    
            conn.Open()
    
            cmd.ExecuteNonQuery()
    
            cmd.Dispose()
    
    
            conn.Close()
    
            Label1.Text = "Cadastro efetuado com sucesso!"
    
        End Sub
    
    Olá galera sou iniciante, e minha dúvida é o seguinte tenho duas tabelas Tab1 (tabCliente) e a Tab2 (tabOS) gostaria de dar o insert nas duas tabelas, no codigo acima eu so estou inserindo dados na Tab1 e no formulario possui campos da Tab2, alguém pode me ajudar agradeço a atenção e aguardo um retorno!
    quinta-feira, 28 de maio de 2015 23:49

Todas as Respostas

  • não entendi sua duvida.

    Não seria "duplicar" o código só que no lugar do insert ser no tabCliente ser tabOS com seus respectivos campos?


    Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco

    sexta-feira, 29 de maio de 2015 00:43