SCRIPT PARA CRIAR MDB E SUAS TABELAS

FAUZE 21/02/2011 11:43:39
#366110
Olá pessoal,

é possível criar um mdb e suas tabelas e indices via script?
Poderiam postar exemplos?
TECLA 21/02/2011 12:42:50
#366119 Resposta escolhida
Sim, procure na web por ADOX, pois ela é responsável por tal façanha.
Exemplo:

    Dim rsInst As ADODB.Recordset
    Dim cat As New adox.Catalog
    Dim tbl As New adox.Table
    
    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
       .Columns.Append [Ô]campo2[Ô], adVarWChar
       .Columns.Append [Ô]campo3[Ô], adVarWChar, 3
       .Columns.Append [Ô]campo4[Ô], adDate
       .Columns.Append [Ô]campo5[Ô], adVarWChar
       .Columns([Ô]campo2[Ô]).Attributes = adColNullable
       .Columns([Ô]campo5[Ô]).Attributes = adColNullable
       
    End With
    cat.Tables.Append tbl
    
    Set cat = Nothing
    Set tbl = Nothing
Tópico encerrado , respostas não são mais permitidas
Voltar