esecuzione query

[semolino]

Io passo 4 variabili da un form:
url = Request.Form("url") [ad es. localhost]
user = Request.Form("user")
pass = Request.Form("pass")
nome = Request.Form("nome") [del database]
Ora vorrei realizzare un codice che mi controlli se esiste la tabella
tblst_admin che, se esiste, la cancella.
Dopo la ricrea e inserisce i seguenti campi all'interno della tabella:
id_user (che è anche chiave)
username
password

Alla fine della procedura, sarà mostrato, in base alla corretta operazione, se l'operazione è stata eseguita correttamente.
Io avevo lo stesso codice realizzato da me in PHP e mysql, mi aiutate a convertirlo, se si può?

//recupero i valori
conn = mysql_connect($url,$user,$pass);
	mysql_select_db($nome);
	
	$sql = "DROP TABLE IF EXISTS `impedil_users`";
     $consulta = mysql_query($sql,$conn);	
	$sql = "CREATE TABLE `impedil_users` (
   `id_user` int(11) NOT NULL auto_increment,
    `username` varchar(30) NOT NULL default '',
    `password` varchar(35) NOT NULL default '',
	`type` tinyint(2) NOT NULL default '',
	 PRIMARY KEY  (`id_user`)
     ) TYPE=MyISAM COMMENT='Tabella utente';";
      $consulta = mysql_query($sql,$conn);

if ($consulta == 1) {
	echo "Tabella creata correttamente nel database.

";
} else {
	echo "C'è un errore di username/password o Url per eseguire l' SQL. Riprova.

";
}
mysql_close($conn);

[semolino]

Scusate avevo inserito male il post, ora l'ho corretto

[semolino]

Allora ho iniziato a scrivere un po' di codice:

Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&_
	Server.Mappath("./"&url&"/"&nome&".mdb")&";UID="&user&"; PWD="&pass

	
	Install_Sql = "DROP TABLE IF EXISTS tblst_Admin_User"
    Conn.Execute(Install_Sql) 
		Install_Sql = "CREATE TABLE tblst_Admin_User ( 
	    id_user int(11) NOT NULL auto_increment, 
		username varchar(30) NOT NULL default '',
		password varchar(35) NOT NULL default '',
		type tinyint(2) NOT NULL default '',
		PRIMARY KEY  (id_user)
		)"
		Conn.Execute(Install_Sql)

Che ne dite? Sto sbagliando nell'istruzione dell'sql dove creo i campi, dove sto sbagliando?

[semolino]

Sono riuscito a scrivere l'sql per access, ora ho un codice di questo tipo:

<%
	url = Request.Form("url")
	user = Request.Form("user")
	pass = Request.Form("pass")
	nome = Request.Form("nome")
	
	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&_
	Server.Mappath(""&url&"/"&nome&".mdb")&";UID="&user&"; PWD="&pass

	
	Install_Sql = "DROP TABLE IF EXISTS tblst_Admin_User"
    Conn.Execute(Install_Sql) 
		Install_Sql = "CREATE TABLE tblst_Admin_User (id_user AUTOINCREMENT NOT NULL, username VARCHAR(30) NOT NULL, password VARCHAR(35), PRIMARY KEY (id_user))"
		Conn.Execute(Install_Sql)
		 
	If (Conn = 1) Then
		Response.Write "Tabella creata correttamente nel database.

"
	Else 
		Response.Write "C'è un errore di username/password o Url per eseguire l' SQL. Riprova.

"
	End If

Conn.Close
%>

Se eseguo il codice mi dice:
Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0xfa0 Thread 0xec DBC 0x1350064 Jet' del Registro di sistema.

Da cosa dipende?

[Gioba66]

dovrebbe essere un problema di permessi sulla cartella che contiene il database

[semolino]

nelle proprietà della cartella, in locale, ho tutti i permessi attivi...
La riga incriminata è la seguente:
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&_
Server.Mappath("./"&url&"/"&nome&".mdb")&";UID="&user&"; PWD="&pass

[semolino]

OK il problema è stato risolto... ce l'ho fatta! Ho messo i permessi e poi ho controllato un attimo il codice del percorso del db e tutto è andato bene. La tabella viene creata.

Ora ho due questioni:
- Per quanto riguarda

Install_Sql = "DROP TABLE tblst_Admin_User"

Vorrei scrivere una strina che controlli se il tabella esiste già e nel caso la elimina, oppure prosegue senza problemi.
- Seconda questione:
Voelvo un controllo sulla creazione della tabella; ho inserito un codice cosi:

 If (Conn = 1) Then
		Response.Write "Tabella creata correttamente nel database.

"
	Else 
		Response.Write "C'è un errore di username/password o Url per eseguire l' SQL. Riprova.

"
	End If

Ma mi da errore in Conn = 1
Vorrei dirgli che se l'sql è andata a buon fine vuol dire che va tutto bene...
:master:

[semolino]

Per quanto riguarda il DROP TABLE ho guardato un vecchio post e ho modificato cosi:
Install_Sql = "DROP TABLE tblst_Admin_User [IF EXISTS] "
Conn.Execute(Install_Sql)

QUindi me la elimina se esiste, ma se non c'è mi scrive che la tabella è mancante.
Io dovrei fare in modo che se manca procede con il passo successivo