USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página