Dall'archivio script > Classic ASP

Creare un database Access con ADOX

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Database, Coding,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

I più letti di oggi