USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Manipulação de registros - Linha x Coluna
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 17/07/2004 15:04 hs            
Tenho uma tabela (tblDadosBrutos) com dois campos:
|Campo1.....||Campo2....|
|Competencia||10/2001...|
|Nome.......||Maria.....|
|Cidade.....||Palmas....|
|Estado.....||TO........|
|Valor Devid||R$5.300,00|
|Competencia||11/2001...|
|Nome.......||João......|
|Cidade.....||Bauru.....|
|Estado.....||SP........|
|Valor Devid||R$1.300,00|
|Competencia||05/2001...|
|Nome.......||Ana.......|
|Cidade.....||Brasília..|
|Estado.....||DF........|
|Valor Devid||R$3.300,00|
|Competencia||03/2001...|
|Nome.......||Cilas.....|
|Cidade.....||Palmas....|
|Estado.....||TO........|
|Valor Devid||R$1.300,00|
 
Preciso varrer esta tabela (tblDadosBrutos) e inserir
os registros do Campo2 em outra tabela (tblDadosOrdenados)
da seguinte forma:
 
|Competencia||Nome......||Cidade....||Estado....||ValorDevido|
|10/2001....||Maria.....||Palmas....||TO........||R$5.300,00.|
|11/2001....||João......||Bauru.....||SP........||R$1.300,00.|
|05/2001....||Ana.......||Brasília..||DF........||R$3.300,00.|
|03/2001....||Cilas.....||Palmas....||TO........||R$1.300,00.|
 
Em suma, preciso inserir os valores que estão em cada linha (campo2)
em suas respectivas colunas na tabela tblDadosOrdenados..
Estou tentando um loop na tabela, mas tá dando erro.
Se alguém puder ajudar, desde já agradeço..

MarconeEmoções

 

     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 17/07/2004 15:28 hs            
MARCONE
coloque o codigo que voce esta fazendo e descreva o erro para dar uma ideia do problema.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 17/07/2004 18:49 hs            

Private Sub Transferencia()

 

Dim strOrigem As String

Dim strDestino As String

 

strOrigem = "SELECT * FROM tblOrigem"

strDestino = "SELECT * FROM tblDestino"

 

rst.Open strOrigem, cnBd, adOpenKeyset, adLockOptimistic

rst2.Open strDestino, cnBd, adOpenKeyset, adLockOptimistic

 

rst.MoveNext

Do While Not rst.EOF

 

SSelecao=rst!Campo

      

If  sSelecao = "Competência" Then

            sCompetencia = rst!Campo2

           ElseIf sSelecao = "Valor Devido....." Then

            sTotalDevidoInss = rst!Campo2

            ElseIf sSelecao = "Contrib.Segurados" Then

            sDevidoSegurados = rst!Campo2

           End if

 

rst2.AddNew

            rst2!Competencia = sCompetencia

            rst2!TotalDevidoInss = sTotalDevidoInss

             rst2!DescontoSegurados = sDevidoSegurados

rst2.Update

rst.MoveNext

Loop

Exit Sub

End Sub

 

‘NO PRIMEIRO REGISTRO TRANSFERIDO, A SEGUNDA COLUNA ESTÁ SENDO INSERIDA EM BRANCO E ALGUNS DOS DEMAIS REGISTROS ESTÃO SE REPETINDO ..


MarconeEmoções

 

TÓPICO EDITADO
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 17/07/2004 20:35 hs            
Se eu entendi, Voce esta criando um registro (na nova tabela) para cada registro lido na antiga. So que na tabela antiga voce tem os campos de COMPETENCIA,NOME..., VALOR para fazer um unico registro no novo. Tente isso
 
Dim cont as byte
........ codigo anterios
 

Do While Not rst.EOF

' Com esse loop voce le 5 registro assim os campos SCOMPETENCIA,SNOME e etc serao ' preenchidos. Quando terminar ele sai do loop e grava na nova tabela.

cont = 1

Do  while cont < 6 and not rst.EOF

 SSelecao=rst!Campo

      

 Select case  sSelecao

 Case  "Competência"

            sCompetencia = rst!Campo2

 Case "Valor Devido....."

            sTotalDevidoInss = rst!Campo2

 Case "Contrib.Segurados"

            sDevidoSegurados = rst!Campo2

 End select

 rst.MoveNext

 cont = cont + 1

Loop

 

rst2.AddNew

            rst2!Competencia = sCompetencia

            rst2!TotalDevidoInss = sTotalDevidoInss

             rst2!DescontoSegurados = sDevidoSegurados

rst2.Update

Loop

...... codigo final
 
Obs escrevi o codigo direto na web, verifique algum erro. Qualquer coisa estamos ai

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 18/07/2004 00:14 hs            
Valeu Rocha,
 
Vou testar, qualquer coisa, posto aqui..
 
 
Muito obrigado.

MarconeEmoções

 

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página