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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  AbsolutePosition em um Recordset DAO
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 24/01/2006 11:28 hs            
Pessoal,
Faz bastante tempo que eu nao lido mais com DAO... acho q esqueci algumas coisas...
Estou abrindo uma tabela com o seguinte codigo:
db.OpenRecordset("Usuarios", dbOpenTable)
mas quando tento pegar o AbsolutePosition do Recordset, da um erro e diz que "Operation is not suppoted for this type of object"...
Como devo abrir o recordset para poder usar o AbsolutePosition???
 
Agradeço a ajuda...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 24/01/2006 11:50 hs            
Segue exemplo que em que eu uso o AbsolutePosition:
....
    Set rs1 = Base_NotasF.OpenRecordset(T_Sql)
    If rs1.RecordCount = 0 Then
        MsgBox ("Favor verificar as datas de referencia")
        DtIni.SetFocus
        Exit Sub
    End If
    posicao = 0: posicao1 = 0
    Open "c:SAIDA.TXT" For Append As #1
    Open "c:ITEM_SAI.TXT" For Append As #2
    ProgressBar1.Min = 0
    ProgressBar1.Max = rs1.RecordCount
    rs1.MoveMin
    Do Until rs1.EOF
        ProgressBar1.Value = rs1.AbsolutePosition
      ......
    loop
 

dsmn
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 24/01/2006 12:35 hs            
Daniel, nao entendi...
Se o seu funciona, entao o q tinha de errado no meu??? parece igual pra mim...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 24/01/2006 13:02 hs            
pra mim tb parece, enviei pra ver se vc consegue achar a diferença, está funcionando normal uso essa rotina diáriamente, ela envia as notas fiscais p/contabilidade
 

dsmn
     
Rinaldo
SÃO PAULO
SP - BRASIL
Postada em 24/01/2006 13:02 hs            
Ai Elieser
 
Se eu não me engano, vc deve usar dbOpenDynaset ao invés de dbOpenTable...
 
T+
Rinaldo
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 24/01/2006 13:38 hs            
Rinaldo, funcionou...
Valeu...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

TÓPICO EDITADO
   
Página(s): 1/1    

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