|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Criando um banco de dados em ADO com índice
|
 |
|
|
|
Postada em 9/12/2002 por Spidey
Option Explicit
Private Sub Form_Load()
Dim Catalogo As New ADOX.Catalog, Tabela As New ADOX.Table
Catalogo.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
With Tabela
.Name = "Dados"
.Columns.Append "Nome", adVarWChar, 30
.Columns.Append "Nasc", adDate
.Columns("Nome").Attributes = adColNullable
.Columns("Nasc").Attributes = adColNullable
.Indexes.Append "iNome", .Columns("Nome")
End With
Catalogo.Tables.Append Tabela
Set Catalogo = Nothing
Set Tabela = Nothing
End Sub
É necessário utilizar a referência Microsoft ADO Ext. 2.7 for DLL and Security
|
|
|
|
|
