creare un file mdb al volo con tabella

[Yuppies]

salve a tutti.
spero nel vostro aiuto.
ciò che dovrei realizzare è questo:

in automatico dovrei creare un file di database (access) e creare una tabella al suo interno.

qualcuno sa aiutarmi?

premetto che fino a questo momento riesco a creare il file mdb ma non riesco a creare la tabella che dovrà poi contenere i dati.

se ritenete vi posso allegare lo script che mi funziona parzialmente

grazie a tutti

[agenti]

MA NON SAREBBE IL CASO DI CREARE UN DB MODELLO...
contenete la tabella e fare un copia rinominado il db ?

successivamente fai un insert into per popolare la tabella.
scusa l'uppercase

[yro]

http://www.imente.org/index.php/deve...asses/aspdbox/

[Yuppies]

vi ringrazio per i suggerimenti ma il progetto è già ad uno stato avanzato di laavorazione.

avrei proprio necessità di capire io dove sbaglio.

[agenti]

ma che risposta è ??

[yro]

Originariamente inviato da Yuppies
vi ringrazio per i suggerimenti ma il progetto è già ad uno stato avanzato di laavorazione.

avrei proprio necessità di capire io dove sbaglio.

sbagli nel pensare che ci hai detto il problema!

[Yuppies]

il processo è un po complesso da spiegare.

comunque ci provo.

1 - l'amministratore alla pressione di un pulsante creerà un utente.
2 - nello stesso momento (in automatico) viene creata una cartella che ha per nome l'id dell'utente creato (all'interno della cartella mdb-database).
3 - subito dopo in questa cartella (sempre in automatico) deve essere creato un db.mdb con nome uguale a quello dell'id utente creato.
4 - in questo db occorrerà creare una tabella inizzializzata con dei valori.

questo è quello che dovrei fare

[agenti]

evitamdo di incasinarti con uan classe la soluzione più semplice è quella che ti ho dato:



crei una database modello.mdb

nel punto (1)
usi fso per creare la cartella e copiare il db modello.mdb con user_1.mdb
che contiene già la struttura della tabella.

controlli se la cartella e il db esistono e popoli la tabella aprendo una connessione con
user_1.mdb

più facile di così ???
si potrebbe fare direttamente in una funzione.

[Yuppies]

Questo è lo script con cui mi sto incasinando.

Te ne sarei veramente grato se mi accennassi meglio alla funzione di cui tu parli.



<%
ind = "\mdb-database\upload_progetti"
var = request(trim(Nome_Tabella))
SET FSO = Server.CreateObject("Scripting.FileSystemObject")

' VERIFICA L'ESISTENZA DI UNA CARTELLA
if (FSO.FolderExists(Server.MapPath("\mdb-database\upload_progetti\")&var)) then
Response.Write("La cartella esiste.")
else
'Response.Write("La cartella non esiste.")


'creazione istanza del File Scripting Object
SET FSO = Server.CreateObject("Scripting.FileSystemObject")

'creazione della cartella
FSO.CreateFolder(Server.MapPath(ind & "\" & var))

'chiusura e annullamento dell'istanza
SET FSO = NOTHING


namefile = (Server.MapPath(ind & "\" & var & "\" & var))

'----------------------------------------------------------------
'creo il database
'----------------------------------------------------------------

Const dbVersion10 = 1
Const dbVersion11 = 8
Const dbVersion20 = 16
Const dbVersion30 = 32
Const dbVersion40 = 64
Sub CreateNewMDB(FileName, Format)
Dim Engine
Set Engine = CreateObject("DAO.DBEngine.36")
Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format
End Sub

'Creo il db Access2000
CreateNewMDB namefile, dbVersion40

On Error Resume Next
' apro connessione al db
Set adoCon = Server.CreateObject("ADODB.Connection")
' Access
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("md b-database\upload_progetti\" & var &"\"& var &".mdb")
adoCon.Open strCon
strSql = "SELECT COUNT(*) FROM "&var
adoCon.Execute(strSql)

If Err.Number <> 0 Then
' Response.Write "la tabella non esiste"
' response.Write(var)
conn2.execute "Create Table "&var&" (titleShort TEXT(50),titleLong TEXT(200),contenuto_pagina MEMO,mainPage INTEGER default '0',data_inserimento DATETIME,);"
response.End()
Set rs2Save = Server.CreateObject("ADODB.RecordSet")
rs2Save.open var, conn2, adOpenDynamic, adLockOptimistic, adCmdTable
rs2Save.addnew
End if
end if
%>

[agenti]

come si dice arrivederci in cirillico ?



la tabella crei..
bho non so..