|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Criar um Banco de Dados (MDB) com ADO (ADOX)
|
 |
|
|
|
Postada em 21/10/2002 por C4du
Sub CrtDB(sNameFl As String) 'Use o nome do banco como parametro
Dim rsInst As ADODB.Recordset
Dim cat As New adox.Catalog
Dim tbl As New adox.Table
'Verifica se o arquivo já existe e caso sim, apaga
If fileexists(App.Path & "\" & sNameFl & ".mdb") Then FileSystem.Kill App.Path & "\" & sNameFl & ".mdb"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & sNameFl & ".mdb"
With tbl
.Name = "ret"
.Columns.Append "campo1", adVarWChar 'CVis
.Columns.Append "campo2", adVarWChar 'Equ
.Columns.Append "campo3, adVarWChar, 3"
.Columns.Append "campo4, adDate"
.Columns.Append "campo5, adVarWChar 'Nome Bebida"
.Columns("campo2").Attributes = adColNullable 'Pode ser NULL
.Columns("campo5").Attributes = adColNullable
End With
cat.Tables.Append tbl
Set cat = Nothing
Set tbl = Nothing
End Sub
' Existe uma postila de ADO no Apostilas/Banco de dados aqui deste site. chama-se DAP para ADO, vai ajudara ir mais a fundo.
' OBS: Para usar o ADOX, você tem que referenciar Microsoft ADO Ext. FOR DLL and Security, além do ADO.
|
|
|
|
|
