overflow e programa travando

[Alex Mauricio]

Pessoal, tenho o seguinte código:

Option Explicit

Private Sub conectarBanco()
    Set BancoDeDadosAntigo = OpenDatabase("I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\TELEMARKETING.MDB")
    'Set BancoDeDados = OpenDatabase("I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\BD_TELEMARKETING.MDB")
End Sub

Private Sub cmdSair_Click()
    BancoDeDadosAntigo.Close
    'BancoDeDados.Close
    End
End Sub

Private Sub cmdTableSituacao_Click(Index As Integer)
    migrarTableSituacao
End Sub

Private Sub Form_Load()
    conectarBanco
End Sub
Private Function migrarTableSituacao()
    Dim ssql As String
    Dim contador As Double
        
    contador = 0
    
    ssql = "select * from tabela1"
    Set TableAntiga = BancoDeDadosAntigo.OpenRecordset(ssql)
    
        While Not TableAntiga.EOF
            contador = contador + 1
            'MsgBox contador
        Wend
    
    TableAntiga.Close
    'MsgBox contador
End Function

O objetivo deste código é ver se o programa está percorrendo toda a tabela, porq após isso vou migrar dados dessa tabela para outro BD.

Gostaria que o programa corresse a tabela e após isso mostrasse a quantidade de registros.

Porém o sistema trava... se eu deixar ele rodar poucos segundos ( 2 a 3 ) e der um break e pedir para ver o valor da variável contador, ele está mostrando 11891061.... E o BD tem 115.000 registros...

Ou seja... tem algo errado...

Agora se eu pedir que para cada registro lido o sistema mostra um msgbox contador... ele vai fazendo da maneira correta...

O que pode está acontecendo?

Obrigado

Editado Setembro 22, 2009 por kuroi
Adicionar tag CODE

[Xistyle]

Muda o contador para Long ao invés de Double e tenta novamente ;D

[Alex Mauricio]

mesmo problema

travou e com 2 segundos a variável contador está com o valor 26484921.

acredito mesmo q ele estivesse contando campo por campo nos registros não daria esse valor

[kuroi]

ele esta o tempo todo o primero registro. você tem q dar um movenext dentro do loop pra ir pro proximo registro.

mas na verdade pra saber qtos registros tem não precisa fazer isso, é so pegar a propriedade RecordCount do RecordSet (so não sei se no DAO tb tem ela com esse nome, e se o modo como você ta abrindo te da permissao pra acessa-la).

[Alex Mauricio]

entendi...

agora... para migrar esta aplicação para ADO ficaria como?

obrigado

[kuroi]

declare BancoDeDadosAntigo como ADODB.Connection e TableAntiga como New ADODB.RecordSet.

para abrir a conexao, faca assim:

Set BancoDeDadosAntigo = New ADODB.Connection
    BancoDeDadosAntigo.Provider = "Microsoft.Jet.OLEDB.4.0"
    BancoDeDadosAntigo.ConnectionString = "I:\Sistema de Gerenciamento de Cupons Cadastro\Versao_1.0.01\prjSGCC\BD\TELEMARKETING.MDB"

    BancoDeDadosAntigo.CursorLocation = adUseClient
    BancoDeDadosAntigo.Open[/code]

pra acessar a tabela, faca:
[code]ssql = "select * from tabela1"
    Set TableAntiga = BancoDeDadosAntigo.Execute(ssql)

e pra pegar o total de registro, faca:

MsgBox TableAntiga.RecordCount