TRANSFERIR DADOS .... SQL

USUARIO.EXCLUIDOS 11/05/2004 15:07:18
#24124
Olá pessoal,
Preciso da Ajuda Urgente de Vocês....

Tenho um ADODC (onde o RecordSource é uma SQL), a partir desses dados carrego um DataGrid com os dados. O que preciso fazer é pegar 2 campos desse Grid e Gravar numa outra tabela. Os códigos que estou usando usam ADO.
Do jeito que estou fazendo ele puxa apenas a 1Âê linha do DataGrid referente as 2 colunas que preciso usar, só que normalmente, a quantidade de linhas (registros) é bem mais. Preciso de todos os dados referente a essas 2 colunas salvas nessa outra tabela.
Abaixo está o Código que estou tentando usar:


         With Aux1
            .Visible = False
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\controle_nc.mdb"
            .RecordSource = "aux1"
            .EOFAction = adDoMoveLast
            .Mode = adModeReadWrite
            .Refresh
         End With
         
Aux1.Recordset.AddNew
AdoDatRelatorios.Recordset.MoveFirst

If Not AdoDatRelatorios.Recordset.EOF Then
  Aux1.Recordset(0) = AdoGrdRelatorio.Columns(0)
  Aux1.Recordset(1) = AdoGrdRelatorio.Columns(2)
End If

Aux1.Recordset.Update
Aux1.Recordset.MoveLast
Aux1.Refresh

' Aux1 meu adodc,
' aux1 é minha tabela,
'AdoDatRelatórios é meu adodc onde está a consulta SQL,
' AdoGrdRelatorio é meu DataGrid.
USUARIO.EXCLUIDOS 11/05/2004 15:51:01
#24130 Resposta escolhida
tente assim:

AdoDatRelatorios.Recordset.MoveFirst
do until AdoDatRelatorios.Recordset .eof
Aux1.Recordset.AddNew
Aux1.Recordset(0) = AdoDatRelatorios.Recordset (0)
Aux1.Recordset(1) = AdoDatRelatorios.Recordset (2)
Aux1.Recordset.Update
AdoDatRelatorios.Recordset.moveNext
loop
Tópico encerrado , respostas não são mais permitidas
Voltar