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:  Criando um banco (mdb) com tabela pelo ADOX
Postada em 14/12/2007 por ghost_jlp            
Primeiro vá no menu "Project/References..." e marque o item "Microsoft ADO Ext. X.X for DDL and Security"

Onde X.X é a versão que você possui no VB.
Agora vamos ao código:


Dim oCat As ADOX.Catalog
Dim oTbl As ADOX.Table

Private Sub Form_Click()

On Error GoTo Erro
Set oCat = New ADOX.Catalog

sCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\novoBd.mdb"

oCat.Create sCnn


Erro:

If Err.Number = -2147217897 Then oCat.ActiveConnection = sCnn: Resume Next 'banco já existe
If Err.Number <> 0 Then MsgBox Err.Description & vbNewLine & Err.Number
End Sub


Agora que criamos o banco vamos criar a tabela!

Private Sub Command1_Click()
On Error GoTo Erro

Set oTbl = New ADOX.Table

With oTbl
   .Name = "Nova_tabela"
   oCat.Tables.Append oTbl

   'cria campos e os anexa a coleção columns
   With .Columns
       .Append "Nome", adVarWChar
       .Append "Endereco", adVarWChar
       .Append "Telefone", adVarWChar
       .Append "Observacao", adLongVarWChar
   End With
End With

Erro:
If Err.Number = -2147217857 Then Resume Next 'tabela já existe
End Sub

Fácil não?? Até a próxima! :)
 


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