[AJUDA] INSERIR DADOS EM 2 TABELAS DIFRENTES

[Guest --Diego --]

Bom Dia,

VB.NET

Gostaria de saber como faço para inserir dados em 2 tabelas ACCESS ao mesmo tempo

usei 2 insert into um seguido do outro mais fala q falta ; eu coloco o ; e fala Caracteres encontrados apos o final da instrução SQL

TA DIFICIL

o codigo esta assim:

Dim cmdsql As New StringBuilder

Dim Cn As New OleDbConnection(conexao)

Try

Cn.Open()

If modificar = 0 Then

cmdsql.Append("INSERT INTO Clientes(Codigo, Nome, RG, CPF_CNPJ, ")

cmdsql.Append("Logadouro, Numero, Complemento, Bairro, ")

cmdsql.Append("Cidade, Estado, CEP)")

cmdsql.Append(" VALUES( '")

cmdsql.Append(CInt(boxCodigo.Text) & "',")

cmdsql.Append("'" & boxNome.Text & "',")

cmdsql.Append("'" & boxRg.Text & "',")

If radioCpf.Checked = True Then

cmdsql.Append("'" & boxCpf.Text & "',")

Else

cmdsql.Append("'" & BoxCnpj.Text & "',")

End If

cmdsql.Append("'" & boxRua.Text & "',")

cmdsql.Append("'" & boxNume.Text & "',")

cmdsql.Append("'" & boxComple.Text & "',")

cmdsql.Append("'" & boxBairro.Text & "',")

cmdsql.Append("'" & boxCidade.Text & "',")

cmdsql.Append("'" & comboUf.Text & "',")

cmdsql.Append("'" & boxCep.Text & "')")

cmdsql.Append("INSERT INTO TelefoneClientes(CodigoCliente, Telefone)")

cmdsql.Append(" VALUES( '")

cmdsql.Append(CInt(boxCodigo.Text) & "',")

cmdsql.Append("'" & boxTel.Text & "')")

Dim cmd As New OleDbCommand(cmdsql.ToString, Cn)

cmd.ExecuteNonQuery()

Catch ex As Exception

MessageBox.Show("Mensagem de Erro: " + ex.ToString + " - " + ex.Message)

Finally

Cn.Close()

End Try

[quintelab]

Antes do seu segundo insert você deve instanciar novamente sua variável.

cmdsql = New StringBuilder

Abraços...

[Diegohfma]

Owwwwww mannnn

valeu Cara tava me matando aki

deu certo

----------------------------------------------------------

OpSSS Ver outro Coment

Editado Outubro 13, 2008 por Diegohfma

[quintelab]

^_^

[Diegohfma]

Po cara foi mal mais n deu certo não ele só inserio dado na tabela TelefoneClientes........

[quintelab]

Você deve executar sua query antes de instanciar a nova variável:

Dim cmdsql As New StringBuilder
Dim Cn As New OleDbConnection(conexao)

Try

Cn.Open()

If modificar = 0 Then

cmdsql.Append("INSERT INTO Clientes(Codigo, Nome, RG, CPF_CNPJ, ")
cmdsql.Append("Logadouro, Numero, Complemento, Bairro, ")
cmdsql.Append("Cidade, Estado, CEP)")
cmdsql.Append(" VALUES( '")
cmdsql.Append(CInt(boxCodigo.Text) & "',")
cmdsql.Append("'" & boxNome.Text & "',")
cmdsql.Append("'" & boxRg.Text & "',")
If radioCpf.Checked = True Then
cmdsql.Append("'" & boxCpf.Text & "',")
Else
cmdsql.Append("'" & BoxCnpj.Text & "',")
End If
cmdsql.Append("'" & boxRua.Text & "',")
cmdsql.Append("'" & boxNume.Text & "',")
cmdsql.Append("'" & boxComple.Text & "',")
cmdsql.Append("'" & boxBairro.Text & "',")
cmdsql.Append("'" & boxCidade.Text & "',")
cmdsql.Append("'" & comboUf.Text & "',")
cmdsql.Append("'" & boxCep.Text & "')")

Dim cmd As New OleDbCommand(cmdsql.ToString, Cn)
cmd.ExecuteNonQuery()

cmdsql = New StringBuilder
cmdsql.Append("INSERT INTO TelefoneClientes(CodigoCliente, Telefone)")
cmdsql.Append(" VALUES( '")
cmdsql.Append(CInt(boxCodigo.Text) & "',")
cmdsql.Append("'" & boxTel.Text & "')")

cmd = New OleDbCommand(cmdsql.ToString, Cn)
cmd.ExecuteNonQuery()




Catch ex As Exception
MessageBox.Show("Mensagem de Erro: " + ex.ToString + " - " + ex.Message)

Finally


Cn.Close()

End Try

Abraços...

[Diegohfma]

Agora Foi =)

valeu