USAR VARIAVEIS PARA MOVIMENTAR INFORMACOES

MARIOBOARI 11/02/2013 12:32:39
#419124
Prezados, estou precisando de ajuda novamente.
Tenho um banco de dados: BANCO.MDB
nele tenho duas tabelas: TABELA1 e TABELA2
nas tabelas tenho dois campos: COLUNA1 e COLUNA2
Estou criando 2 variáveis, VAR1 e VAR2, nas variáveis vou colocar as informações da TABELA1 -> COLUNA1 e COLUNA2, depois quero inserir os valores contidos em VAR1 e VAR2 na TABELA2 -> COLUNA1 E COLUNA2, conforme segue:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Banco.MDB[Ô])
con.Open()
Dim VAR1 As String = TABELA1([Ô]COLUNA1[Ô])
Dim VAR2 As String = TABELA1([Ô]COLUNA2[Ô])
INSERIR = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2)[Ô]
[Ô]VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô])[Ô]
Dim CMD As New OleDbCommand(INSERIR, con)
CMD.ExecuteNonQuery()


End Sub

Do jeito que estou fazendo não esta funcionando.

Quem puder me ajudar, fico agradecido.
TECLA 11/02/2013 20:26:19
#419137
Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Banco.MDB[Ô])
con.Open()
Dim VAR1 As String = [txt-color=#e80000]TABELA1[/txt-color]([Ô]COLUNA1[Ô])
...

Qual é o tipo do objeto TABELA1 e onde ele foi declarado?
Como ele está sendo alimentado?
MARIOBOARI 11/02/2013 23:50:56
#419145
TECLA, é exatamente esta parte que não estou conseguindo fazer.
Vlw.
ELOI 12/02/2013 00:57:26
#419148 Resposta escolhida
tenta assim:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

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

Dim sql as String= [Ô] select coluna1,Coluna2 FROM TABELA1[Ô]
Dim CD as oleDBcommand ()
cd.connection = con
cd.commandtex t= 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[Ô]))

INSERIR = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2)[Ô]
[Ô]VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô])[Ô]
Dim CMD As New OleDbCommand(INSERIR, con)
CMD.ExecuteNonQuery()
end if
con.close()
End Sub
MARIOBOARI 12/02/2013 18:31:23
#419171
ELOI, obrigado pela ajuda!

apresentou alguns erros como segue:


cd.connection = con --> [ô]connection[ô] is not a member of [ô]System.Array[ô].
cd.commandtex t= sql --> [ô]commandtex[ô] is not a member of [ô]System.Array[ô] -->[ô]t[ô] is not declared
Dim DR as oleDBdatareader = CD.ExecuteReader --> [ô]ExecuteReader[ô] is not a member of [ô]System.Array[ô].
if DR.Read then
Dim VAR1 As String = Cstr(DR([Ô]Coluna1[Ô]))
Dim VAR2 As String =Cstr(DR([Ô]Coluna2[Ô]))

INSERIR = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2)[Ô] --> [ô]INSERIR[ô] is not declared. It may be inaccessible due to its protection level.
[Ô]VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô])[Ô] --> Syntax error
Dim CMD As New OleDbCommand(INSERIR, con) --> [ô]INSERIR[ô] is not declared. It may be inaccessible due to its protection level.
CMD.ExecuteNonQuery()
end if
con.close()
End Sub

Obrigado mais uma vez pela ajuda!
ELOI 13/02/2013 10:19:32
#419186
ve se funciona agora não se esqueça de usar os dois imports abaixo.

Imports System.Data
Imports System.Data.OleDb

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

Dim sql As String = [Ô] select coluna1,Coluna2 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 Inserir As String
Inserir = [Ô]INSERT INTO TABELA2(COLUNA1, COLUNA2) VALUES([Ô] & VAR1 & [Ô],[Ô] & VAR2 & [Ô])[Ô]
Dim CMD As New OleDbCommand(INSERIR, con)
CMD.ExecuteNonQuery()
End If
con.close()
End Sub
MARIOBOARI 13/02/2013 11:42:01
#419191
ELOI, Funcionou certinho.

Obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar