BANCO DE DADOS - INSERIR TABELAS
Pessoal, tenho um banco de dados ACCESS com duas tabelas, uma coloquei o nome de matriz a outra de dados, estou precisando inserir todos os dados da tabela matriz dentro da tabela dados utilizando Visual Basic, não estou conseguindo, quem puder me ajudar fico muito grato.
Olá
veja se isto o ajuda:
té +
veja se isto o ajuda:
myCon.Execute [Ô]INSERT INTO dados SELECT * FROM matriz[Ô]té +
GANDA NICK, Olá
Obrigado pela dica, ja estou melhorando, porém ainda não consegui,
Segue a linha que fiz, está faltando alguma coisa.
Public Class FrmCADASTRO
Private Sub FrmCADASTRO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DadosTableAdapter.Fill(Me.Tabela01DataSet.dados)
Me.MatrizTableAdapter.Fill(Me.Tabela01DataSet.matriz)
myCon.Execute([Ô]INSERT INTO Tabela01DataSet.dados SELECT * FROM Tabela01DataSet.matriz[Ô])
End Sub
End Class
Obrigado!
Obrigado pela dica, ja estou melhorando, porém ainda não consegui,
Segue a linha que fiz, está faltando alguma coisa.
Public Class FrmCADASTRO
Private Sub FrmCADASTRO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DadosTableAdapter.Fill(Me.Tabela01DataSet.dados)
Me.MatrizTableAdapter.Fill(Me.Tabela01DataSet.matriz)
myCon.Execute([Ô]INSERT INTO Tabela01DataSet.dados SELECT * FROM Tabela01DataSet.matriz[Ô])
End Sub
End Class
Obrigado!
Uma jeito de fazer.
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\SeuBanco.MDB[Ô])
Dim StrSQL As String = Nothing
StrSQL = [Ô]INSERT INTO dados SELECT * FROM matriz[Ô]
Dim cmd As New OleDbCommand(StrSQL, con1)
If con1.State = ConnectionState.Closed Then
con1.Open()
End If
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros transportado com sucesso![Ô])
End Sub
Qualquer dúvida post novamente.
Valeu.
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\SeuBanco.MDB[Ô])
Dim StrSQL As String = Nothing
StrSQL = [Ô]INSERT INTO dados SELECT * FROM matriz[Ô]
Dim cmd As New OleDbCommand(StrSQL, con1)
If con1.State = ConnectionState.Closed Then
con1.Open()
End If
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros transportado com sucesso![Ô])
End Sub
Qualquer dúvida post novamente.
Valeu.
OMAR2011, Obrigado pela ajuda,
Estou estudando sua sugestão:
Apresentou um erro na linha a seguir:
con1.Open()
End If
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros transportado com sucesso![Ô])
Ainda não consegui identificar o motivo
Segue em anexo um print do erro.
Grato,
Mário.
Estou estudando sua sugestão:
Apresentou um erro na linha a seguir:
con1.Open()
End If
cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros transportado com sucesso![Ô])
Ainda não consegui identificar o motivo
Segue em anexo um print do erro.
Grato,
Mário.
Um projeto para ver como faz
O Banco de dados está TesteInsert\WindowsApplication1\WindowsApplication1\bin\Debug
Verifica as duas tabelas.Para fazer o teste varias vezes apaga o registros da tabela DADOS.
Valeu
O Banco de dados está TesteInsert\WindowsApplication1\WindowsApplication1\bin\Debug
Verifica as duas tabelas.Para fazer o teste varias vezes apaga o registros da tabela DADOS.
Valeu
OMAR, ficou perfeito, acho que o meu banco de dados estava com algum problema. Mas agora ficou ótimo, vou encerrar o tópico.
Muito obrigado pela ajuda!
Muito obrigado pela ajuda!
Tópico encerrado , respostas não são mais permitidas