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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Me ajudem!!! URGENTE
Juliana T.
SÃO PAULO
SP - BRASIL
Postada em 07/11/2008 17:19 hs         
Oiii, é o seguinte!!! Eu tenho um loop onde eu verifico se b é igual a rs(2)......
Enquanto ele for igual...Ele executa o procedimento............
 
   Do While b = rs(2)
     
                    Call LimpaTela2
               
                    Text22.Text = rs(10)
                    Text23.Text = rs(11)
                    Text24.Text = Format(rs(12), "##,##0.00")
                    Text26.Text = rs(13)
                    Text27.Text = rs(14)
                    Call VerificaZeros2
                    b = rs(2)
                    rs.MoveNext
                    A = "06" + Text22.Text + Text23.Text + Text24.Text + Text25.Text + Text26.Text + Text27.Text
                    Print #Arq, A
                    A = ""
                  
    Loop
 
O problema é que uma hora nesse loop da erro, pq diz que rs(2) = null...
Eu preciso de algo que me faça dizer que enquanto rs.eof = true continue executando o loop corretamente...
O problema é que saio desse loop e entro em outro que volta pra ele... Não da pra simplesmente colocar rs.eof....
 
alguem pode me ajudar?????/ Eh urgente!!!
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 08/11/2008 10:53 hs            
  Text22.Text =  "" & rs(10)       ' se for String
   If Not Isnull(rs(12) Then
             Text24.Text = Format(rs(12), "##,##0.00")  ' numero ou data
   End If
 
 
vlu//
   
Dev@
não registrado
ENUNCIADA !
Postada em 10/11/2008 01:18 hs   
Do While  rs.eof
      
                    Call LimpaTela2
                 b = rs(2)
                 If  b = rs(2) then

                    Text22.Text = rs(10)
                    Text23.Text = rs(11)
                    Text24.Text = Format(rs(12), "##,##0.00")
                    Text26.Text = rs(13)
                    Text27.Text = rs(14)
                    Call VerificaZeros2
                    b = rs(2)
                end if
                    rs.MoveNext
                    A = "06" + Text22.Text + Text23.Text + Text24.Text + Text25.Text + Text26.Text + Text27.Text
                    Print #Arq, A
                    A = ""
                  
    Loop

   
Guaitoli
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 10/11/2008 08:51 hs            
Para encaixar no seu código tenta isso, mas o correto seria vc declarar outro recordset e utilizar o EOF

Do While b = Format(rs(2))

[]'s
Eder Guaitoli
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 10/11/2008 11:22 hs         
Pessoal, vou postar meu código aqui pra ver se vcs entendem tah???
 
  Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
  
    cn.Open "Provider=MSDAORA.1;Password=gemco;User ID=gemco;Data Source=gemco;Persist Security Info=True"
    Me.MousePointer = vbHourglass
   
    Sql = Sql & "Select a.codfil, d.cgccpf CNPJ, a.numnota NFISCAL, a.serie SERIE, a.dtemissao DT_EMISSAO, a.vltotal VALOR, "
    Sql = Sql & "a.vldesconto VLDESCONTO, a.vlicm VLICMS, a.vlicmret ICM_RETIDO, c.vldescitem DESC_ITEM, Max(e.codbarra) CODBARRA, "
    Sql = Sql & "c.qtcomp QNTPROD, c.precoorig PRECO_LIQ, c.aliqicm ALIQ_ICM, c.porcipi ALIQ_IPI, b.numpedcomp PED_COMPRA, a.tpnota, "
    Sql = Sql & "a.codcli, a.dtnota, c.coditprod||'-'||f.digitprod Item, a.numpedcli "
    Sql = Sql & "From mov_saida a , com_pedido b, mov_itsaida c, cad_cliente d, cad_codbarra e, cad_itprod f "
    Sql = Sql & "Where a.codfil = c.codfil and "
    Sql = Sql & "a.codcli = c.codcli and "
    Sql = Sql & "a.codcli = d.codcli and "
    Sql = Sql & "c.coditprod = f.coditprod and "
    Sql = Sql & "c.coditprod = e.coditprod and "
    Sql = Sql & "a.numnota = c.numnota and "
    Sql = Sql & "a.numpedcli = b.numpedcomp and "
    Sql = Sql & "a.dtnota ='" & Text1.Text & "' and "
    Sql = Sql & "a.serie = c.serie and "
    Sql = Sql & "a.codfil = 133 and "
    Sql = Sql & "b.codforne = 100422 and a.numnota=39199 "
    Sql = Sql & "Group by a.codfil, d.cgccpf, a.numnota, a.serie, a.dtemissao, a.vltotal, a.vldesconto, a.vlicm, a.vlicmret, "
    Sql = Sql & "c.vldescitem, c.qtcomp, c.precoorig, c.aliqicm, c.porcipi, a.tpnota, a.codcli, a.dtnota, c.coditprod, "
    Sql = Sql & "f.digitprod , a.numpedcli, b.numpedcomp "
    Sql = Sql & "order by 3,20 "
    rs.Open Sql, cn, adOpenDynamic, adLockOptimistic
    If rs.EOF = False Then
    Do
    Arq = FreeFile
    Call LimpaTela
    Text2.Text = rs(1)
    Text3.Text = rs(2)
    Text4.Text = rs(3)
    Text5.Text = Format(rs(4), "yyyymmdd")
    Text6.Text = Format(rs(5), "####0.00")
    Text11.Text = Format(rs(6), "##,##0.00")
    Text14.Text = Format(rs(7), "##,##0.00")
    Text15.Text = Format(rs(8), "##,##0.00")
    Text18.Text = rs(13)
    Text19.Text = Format(rs(9), "##,##0.00")
   
    Call VerificaZeros
   
    D = "01" + Text2.Text + Text3.Text + Text4.Text
    E = "02" + Text5.Text + Text6.Text + Text7.Text
    F = "03" + Text10.Text + Text11.Text + Text12.Text
    G = "04" + Text14.Text + Text15.Text + Text16.Text
    H = "05" + Text18.Text + Text19.Text + Text20.Text
   
    Open "c:" & rs(17) & ".not" For Output As Arq  ' determina o arquivo
   
    Print #Arq, D ' enviar o texto da text box"
    Print #Arq, E
    Print #Arq, F
    Print #Arq, G
    Print #Arq, H
   

    Do
     
                    Call LimpaTela2
               
                    Text22.Text = rs(10)
                    Text23.Text = rs(11)
                    Text24.Text = Format(rs(12), "##,##0.00")
                    Text26.Text = rs(13)
                    Text27.Text = rs(14)
                    Call VerificaZeros2
                    b = rs(2)
                    rs.MoveNext
                   
                    A = "06" + Text22.Text + Text23.Text + Text24.Text + Text25.Text + Text26.Text + Text27.Text
                    Print #Arq, A
                   
                    If rs.EOF = True Then
                    Exit Do
                    End If
                  
    Loop Until b <> rs(2)
   
    Text28.Text = ""
    Text29.Text = ""
    Text28.Text = rs(15)
   
        Do Until Len(Text28.Text) = 12 'enquanto o campo não tiver 14 caracteres
            Text28.Text = "0" + Text28.Text  'insira zeros a esquerda até ficar com 14 caracteres
        Loop
   
        Do Until Len(Text29.Text) = 14 'enquanto o campo não tiver 14 caracteres
            Text29.Text = "0" + Text29.Text  'insira zeros a esquerda até ficar com 14 caracteres
        Loop
       
   
    C = "07" + Text28.Text + Text29.Text
   
    Print #Arq, C
   
    Close Arq  ' Fecha o arquivo
   
    rs.MoveNext
    Loop Until rs.EOF = True
    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "EDI"
    MsgBox "ARQUIVO SALVO EM C:", vbInformation, "AVISO"
    Else
                MsgBox "Dados não encontrados", vbInformation, "Aviso"
   
    End If
   
    Me.MousePointer = vbArrow
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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