|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: criar um arquivo DBF (Dbase, Clipper, etc.. Lembra ?)
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
Não precisa sentir saudades, vamos mostrar como criar um arquivo DBF com ADO...
Faça uma referência no seu projeto a "Microsoft ADO Ext. 2.X for DDL and Security"
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
|
|
|
|
|
