Postada em 09/04/2007 13:54 hs
Gente... Estou quase louco... tentando descobrir o tamanho de um campo dentro de uma tabela em DBF... se alguém souber... por favor me ajude....
Estou tentando a seguinte rotina...
Set Dbfs = OpenDatabase(App.Path, False, False, "DBASE IV")
Set DBFBANCO = Dbfs.OpenRecordset(nArquivo, dbOpenTable)
For I = 0 To DBFBANCO.Fields.Count - 1
Strutura (DBFBANCO.Fields(I).Type)
' (DBFBANCO.FILEDS(I).TAMANHO) = == = Esse é o meu problema... o resto funciona
dLinha = DBFBANCO.Fields(I).Name
dLinha = dLinha & " - " & UCase(nStru(I)) & " - "
List1.AddItem (dLinha)
Next I
Obrigado
|
