CRIAR DBF PELO VB6

USUARIO.EXCLUIDOS 27/04/2007 17:42:03
#214125

Olá,

Estou precisando criar um arquivo no formato DBF pelo VB6. Até que cria o arquivo mas não cria os campos, vejam o código abaixo :

[txt-color=#3333ff]Dim db As Database
Dim tb As TableDef

Set db = CreateDatabase("C:\Program Files\SISE\TESTE.DBF", dbLangGeneral)

Set tb = db.CreateTableDef("TESTE", , , "FoxPro 3.0;")

With tb
.Fields.Append .CreateField("Codigo", dbInteger)
.Fields.Append .CreateField("Nome", dbText, 30)
End With

db.TableDefs.Append tb
db.Close[/txt-color]

Obrigado.