Precisando criar um arquivo DBF ?  (Dbase, Clipper, etc.. Lembra ?)  


Não precisa sentir saudades, vamos mostrar como criar um arquivo DBF com ADO...

Código do evento click do botão de comando(command1):

Private Sub Command1_Click()

if text1.text <>""  then

  Dim cat As New ADOX.Catalog
  Dim tabela As New ADOX.Table
  Dim coluna1 As New ADOX.Column
  Dim coluna2 As New ADOX.Column

  cat.ActiveConnection = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\teste\;Extended Properties=Dbase   III;"
  tabela.ParentCatalog = cat

  coluna1.Name = "Nome"
  tabela.Columns.Append coluna1
  coluna2.Name = "Endereco"
  tabela.Columns.Append coluna2
 
  tabela.Name = text1.text0
  cat.Tables.Append tabela

endif

End Sub

Você vai informar o nome do arquivo DBF  na caixa de texto ( text1.text ) e se for informado algo o arquivo será criado no diretório c:\teste.

Moleza...

Referências:


José Carlos Macoratti