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
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
