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


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