ok, ma io uso questo script per creare la tabella, solo che mi crea la tabella in access senza i campi
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")
%>
le istruzioni del link che mi hai dato :
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...