Para criar um bd vc pode usar o ADOX.
Vá no menu "Project/References..." e marque o item Microsoft ADO Ext. X.X for DDL and Security
Onde X.X é a versão.
No código faça assim:
Dim oCat As ADOX.Catalog
Private Sub Form_Load()
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
End Sub
Pronto!! Vc criou o banco de dados. Agora vamos às tabelas.
Vc pode criar pelo ADO ou pelo ADOX:
PELO ADO:
Vá no mesmo menu citado anteriormente e marque a opção Microsoft ActiveX Data Objects X.X Library
Onde X.X é a versão
No código:
Dim cnn As ADODB.Connection
Private Sub Command2_Click()
Dim sSQL As String
On Error GoTo Erro
Set cnn = Nothing
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = oCat.ActiveConnection 'aproveitando o banco criado
cnn.Open
sSQL = "CREATE TABLE Tabela (Nome Text(20), Endereco Text(50))"
cnn.Execute sSQL
Erro:
If Err.Number <> 0 Then MsgBox Err.Description & vbNewLine & Err.Number
End Sub
-------------------------------------------------------------------------
Criando tabela com ADOX
Dim oTbl As ADOX.Table
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
Qualquer dúvida postae
at+
