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 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
 


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