Creare una funzione di controllo dati

[ndrek]

Ciao, dovrei creare un listino e ad ogni articolo assegnare un codice articolo ( che chiamo Cod nel data base ) e fin qui è OK, il problema è questo, ho la necessità di non duplicare i codici articoli all’interno del database.

Ho cercato di creami una funzione che mi controllasse ciò ma sembra non funzionare, il database “Listini” è così composto:

id
Cod ( codice articolo )
Prezzo
Descrizione

Quando inserisco un nuovo articolo se il records cod è gia presente sul database non deve essere inserito ma riindirizzo la pagina in una di errore ( spero di essermi spiegato )

Mi sono generato questa query

<%
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''
'recupero le informazioni dal form

Cod = Server.htmlencode(Request.Form( "Cod" ))
Prezzo = Server.htmlencode(Request.Form( "Prezzo" ))
Descrizione = Server.htmlencode(Request.Form( " Descrizione" ))


'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''’ ’’’’’’’’’’’’’’’’’’’’’’
'vedo se trovo dei risultati con il cod appena inserito

sql = "SELECT * FROM Listini WHERE Cod='" & Cod & "';"
Set rec = Server.CreateObject("ADODB.Recordset")
Conn.Execute(SQL )

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''’ ’’’’’’’’’’’’’’’
'cerco di gestire il cod per non creare un doppione

if rec<>True then

Session ( "messaggio" )="Errore…"
Response.Redirect "errore.asp"
Response.end

Else

SQL = "INSERT INTO Listini (Cod,Prezzo,Descrizione)"
SQL = SQL&"VALUES(''"&Cod&"','"&Prezzo&"','"&Descrizione &"')"
Conn.Execute(SQL)

end if

%>


Grazie

[Mems]

Prima fai una query per codice articolo.
Se la query non restituisce alcun record allora inserisci quello nuovo, altrimenti no.

[ndrek]

Ho eseguito la query in questo modo, sembra OK, puoi darmi un parere!

sql = "SELECT * FROM Listini WHERE Cod='" & Cod & "';"


if rec<>”” then

Session ( "messaggio" )="Errore…"
Response.Redirect "errore.asp"
Response.end

End if


SQL = "INSERT INTO Listini (gg,Ean,Prezzo,id_Veicoli)"
SQL = SQL&"VALUES('"&GG&"','"&Ean&"','"&Prezzo&"','"&id_ Veicoli&"')"
Conn.Execute(SQL)


Grazie mille

[Mems]

Invece di

sql = "SELECT * FROM Listini WHERE Cod='" & Cod & "';"
Set rec = Server.CreateObject("ADODB.Recordset")
Conn.Execute(SQL )

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''’’’’’’’’’’’’’’’’
'cerco di gestire il cod per non creare un doppione

if rec<>True then

scrivi

sql = "SELECT * FROM Listini WHERE Cod='" & Cod & "';"
set rec = Conn.Execute(SQL )

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''’’’’’’’’’’’’’’’’
'cerco di gestire il cod per non creare un doppione

if not rec.eof then

[ndrek]

Ok, ti ringrazio