ok, ma io uso questo script per creare la tabella, solo che mi crea la tabella in access senza i campi
le istruzioni del link che mi hai dato :codice:<%@ Language=VBScript%> <% 'Impostiamo la dichiarazione obbligatoria delle variabili Option Explicit '::Crea nuova tabella Sub CreateTableX(sActiveConnection, sTableName) 'in caso di errore prosegui lo script On Error Resume Next 'dichiaro due variabili di comodo Dim sError, sDBName 'creo gli oggetti ADOX Catalog e Table Dim objCatalog, objTable Set objCatalog = server.createobject("ADOX.Catalog") Set objTable = server.createobject("ADOX.Table") 'attivo la connessione al db objCatalog.ActiveConnection = sActiveConnection 'imposto il nome della nuova tabella objTable.Name = sTableName 'aggiorno la tabella objCatalog.Tables.Append objTable 'se si è verificato un errore err sarà diverso da zero If err <> 0 Then sError = "Descrizione: " & Err.Description & " " & VbCrLf sError = sError & "Errore numero: " & Err.Number & " " & VbCrLf sError = sError & "Source: " & Err.Source & " " & VbCrLf sError = sError & "SQLState: " & Err.SQLState & " " & VbCrLf sError = sError & "Native Error: " & Err.NativeError & " " & VbCrLf Response.Write sError Else 'ricavo dalla stringa sActiveConnection il nome del db sDBName = Right(sActiveConnection, Len(sActiveConnection) - InStrRev(sActiveConnection, "\")) 'confermo l'avvenuta creazione della tabella Response.Write "La tabella " & sTableName & " è stata creata correttamente nel" Response.Write " database " & sDBName End If 'libero la memoria distruggendo gli oggetto Catalog e Table Set objTable = Nothing Set objCatalog = Nothing End Sub '::Principale Dim sDBPath Dim sConnection 'specifico il percorso esatto ed il nome del db in cui inserire la nuova tabella sDBPath = "c:\inetpub\wwwroot\asp\esempi\adox.mdb" 'imposto la stringa di connessione sConnection = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & sDBPath 'richiamo la SUB che crea la nuova tabella Call CreateTableX(sConnection, "ADOXTable") %>
CREATE TABLE tblCustomers
(CustomerID INTEGER NOT NULL,
[Last Name] TEXT(50) NOT NULL,
[First Name] TEXT(50) NOT NULL,
Phone TEXT(10),
Email TEXT(50))
mi crea sia la tabella che i campi ma come inserirlo nella pagina asp?
grazie...
![]()

Rispondi quotando