#224 - Creare un database Access con ADOX

Lo script di oggi consente, sfruttando ADOX (ADO Extensions), di creare un nuovo database, inserendone all'interno una tabella di nome lista, con campi ID e e-mail.
L'utilizzo di ADOX, tra le altre cose, consente di avere la lista di tutte le tabelle e le colonne contenute in un database, operando anche modifiche.
ADOX è disponibile con ADO 2.1 e successivi.

<!--METADATA TYPE="typelib"
      UUID="00000205-0000-0010-8000-00AA006D2EA4"
      NAME="ADODB Type Library"
-->
<%

  Set objADOXDb = Server.CreateObject("ADOX.Catalog")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0; " &_
          "Data Source=" & Server.MapPath("prova.mdb")

' creo il database
objADOXDb.Create strConn

' creo l'oggetto per manipolare le tabelle
Set objTable = Server.CreateObject("ADOX.Table")

' nome della tabella
objTable.Name = "Lista"

' colonne da creare
objTable.Columns.Append "ID", adInteger
objTable.Columns.Append "E-mail", adVarWChar, 90

' creo una chiave primaria
objTable.Keys.Append "PK_ID", 1, "ID"

' aggiungo effettivamente la tabella
objADOXDb.Tables.Append objTable

' libero risorse
Set objTable = Nothing
Set objADOXDb = Nothing

If err.Number=0 then
  Response.write "<p>Database creato con successo!</p>"
Else
  Response.write "<p>Errore: " & err.description
End if

%>


Approfondimenti

Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

perego1988 scrive:
#224 - Creare un database Access con ADOX

ho provato l'esempio ma non mi accetta il tipo dei campi; posso avere un riepilogo di tutte le possibili definizioni ??
mercoledì 1 agosto 2007 | 1 risposta
roldano scrive:
#224 - Creare un database Access con ADOX

Voglio impostare il campo ID come contatore, ma non mi riesce. Ho tentato con objTable.Columns.Item("ID").Properties("AutoIncrement") = True ma ...
giovedì 17 giugno 2004

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.




IN EVIDENZA
MISC