ALTERAR VARIAVEL

MARIOBOARI 16/02/2013 21:44:41
#419232
Caros amigos, mais uma vez estou precisando de ajuda. Tenho um banco de dados com duas tabelas, a primeiro com 4 colunas, com números de 1 a 4, estou querendo inserir em uma segunda tabela os números 1, 2 e 3, em uma segunda linha os números 1, 2 e 4, estou criando variáveis mas a segunda linha também esta inserindo os números 1, 2 e 3. Segue os códigos que estou usando quem puder me dar uma sugestão de como resolver!

Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Banco de dados.MDB[Ô])
con.Open()

Dim sql As String = [Ô] select coluna1,Coluna2,Coluna3,Coluna4 FROM TABELA1[Ô]
Dim CD As New OleDbCommand()
CD.Connection = con
CD.CommandText = sql
Dim DR As OleDbDataReader = CD.ExecuteReader
If DR.Read Then
Dim VAR1 As String = CStr(DR([Ô]Coluna1[Ô]))
Dim VAR2 As String = CStr(DR([Ô]Coluna2[Ô]))
Dim VAR3 As String = CStr(DR([Ô]Coluna3[Ô]))
Dim VAR4 As String = CStr(DR([Ô]Coluna4[Ô]))
Dim Inserir As String
Inserir = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2, COLUNA3) VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô],[Ô] & VAR3 & [Ô])[Ô]
Dim CMD As New OleDbCommand(Inserir, con)
CMD.ExecuteNonQuery()
Inserir = Nothing
Inserir = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2, COLUNA3) VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô],[Ô] & VAR4 & [Ô])[Ô]
CMD.ExecuteNonQuery()

MessageBox.Show([Ô]Registros Inseridos com sucesso![Ô])

End If
con.Close()
End Sub


Obrigado!
Mário.
JABA 16/02/2013 23:56:38
#419234 Resposta escolhida
Pelo que eu estou vendo, você vai ter que atribuir novamente a segunda sql no cmd. Tente assim:

Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Banco de dados.MDB[Ô])
con.Open()

Dim sql As String = [Ô] select coluna1,Coluna2,Coluna3,Coluna4 FROM TABELA1[Ô]
Dim CD As New OleDbCommand()
CD.Connection = con
CD.CommandText = sql
Dim DR As OleDbDataReader = CD.ExecuteReader
If DR.Read Then
Dim VAR1 As String = CStr(DR([Ô]Coluna1[Ô]))
Dim VAR2 As String = CStr(DR([Ô]Coluna2[Ô]))
Dim VAR3 As String = CStr(DR([Ô]Coluna3[Ô]))
Dim VAR4 As String = CStr(DR([Ô]Coluna4[Ô]))
Dim Inserir As String
Inserir = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2, COLUNA3) VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô],[Ô] & VAR3 & [Ô])[Ô]
Dim CMD As New OleDbCommand(Inserir, con)
CMD.ExecuteNonQuery()
Inserir = Nothing
Inserir = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2, COLUNA3) VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô],[Ô] & VAR4 & [Ô])[Ô]

CMD.CommandText = Inserir

CMD.ExecuteNonQuery()

MessageBox.Show([Ô]Registros Inseridos com sucesso![Ô])

End If
con.Close()
End Sub
MARIOBOARI 17/02/2013 08:35:28
#419235
JABA, Funcionou perfeitamente.
Obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar