|
|
|
|
|
|
|
|
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! :)
|
|
|
|
|
