Tamanho Em Bytes

[resopi]

Ola pessoal,

estou fazendo uma busca em um banco de dados, gostaria de saber como posso calcular em Bytes ou Kbytes um campo ou um registro do RS tem...

como posso fazer isso??

t+

[Graymalkin]

Você pode fazer assim:

    Dim campo As ADODB.Field
    Dim tamanho As Long
    
    For Each campo In rs.Fields
        tamanho = tamanho + campo.DefinedSize
    Next campo
    MsgBox tamanho

Onde "rs" é o ADODB.Recordset em questão. Você vai ter o tamanho em bytes.

Abraços,

Graymalkin

[resopi]

Ola,

Cara não tem um metodo um poyuco mais rapido??? pois são 4 mil registros cdas uma tem ums 50 campos... que torna essa execulção muito demorada!

T+

[Graymalkin]

Aquele método ali está retornando o *mesmo* tamanho para todos os registros, não??? Se não me engano, o DefinedSize ali vai ser sempre o mesmo para todos (acho que existe um ActualSize que retorna somente o quanto está ocupado). Se for o mesmo tamanho, pra quê varrer a tabela toda? Basta multiplicar a quantidade de registros pelo tamanho de um registro, não?

Abraços,

Graymalkin