Precisando criar um arquivo DBF ? (Dbase,
Clipper, etc.. Lembra ?) 
Não precisa sentir saudades , vamos mostrar como criar um arquivo DBF
com ADO...
- Inicie um novo Projeto no VB, e , no formulário padrão insira um botão
de comando
- Faça uma referência no seu projeto a "Microsoft
ADO Ext. 2.X for DDL and Security"
- Agora é só inserir o código abaixo no evento click do botão de comando
( command1 )
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... 