controllo presenza di in nel MDB durante la registrazione.

[mdegiova]

Ho un problema gravissimo, non riesco a far controllare alla pagina asp, collegata alla pagina coi form se un dato inserito nel form (nel mio caso ID) è gia stato utilizzato nel database MDB, e procedere di conseguenza.

ecco di seguito il codice che ho scritto per il CECK della registrazione.

<% LANGUACE="VBSCRIPT" %>
<%

On Error Resume Next

id_1 = Request("id")
anno_2 = Request("anno_2")
giorno_1 = Request("giorno")
mese_1 = Request("mese")
anno_1 = Request("anno")
protocollo_1 = Request("protocollo")
tipo_prt_1 = Request("tipo_prt")
num_prt_1 = Request("num_prt")
oggetto_1 = Request("oggetto")
tipo_int_1 = Request("tipo_int")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("P_EDILIZIE.mdb")

SQL = "insert into MS1 (id, anno, data_prt, protocollo, tipo_prt, num_prt, oggetto, tipo_int) values ('"&id_1&"', '"&anno_2&"', '"&giorno_1&" "&mese_1&" "&anno_1&"', '"&protocollo_1&"', '"&tipo_prt_1&"', '"&num_prt_1&"', '"&oggetto_1&"', '"&tipo_int_1&"')"
Set RS = Conn.Execute(SQL)


If protocollo_1 = "" or id_1 = "" or tipo_prt_1 = "" or num_prt_1 = "" or tipo_int_1 = "" or giorno_1 = "" or mese_1 = "" or anno_1 = ""then

conn.Execute(SQL)
response.Redirect "2.asp?errore=1&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&id_2=" &id_1&"&tipo_prt_2="&tipo_prt_1&"&tipo_int_2="&tip o_int_1&"&giorno_2="&giorno_1&"&mese_2="&mese_1&"& anno_3="&anno_1&""
conn.close
set conn = nothing

else

conn.Execute(SQL)
response.Redirect "2A.asp"
conn.close
set conn = nothing

end if

%>

potete aiutarmi???

GRAZIE

[optime]

prima della INSERT dovrai fare una SELECT, per vedere se il record c'è già...

[cavicchiandrea]

Originariamente inviato da mdegiova
Ho un problema gravissimo, non riesco a far controllare alla pagina asp, collegata alla pagina coi form se un dato inserito nel form (nel mio caso ID) è gia stato utilizzato nel database MDB, e procedere di conseguenza.
...
potete aiutarmi???

GRAZIE

Oppure imposti il campo ID della tabella MS1 contatore cosi non avrai problemi di ID doppi

[mdegiova]

Come si imposta il campo CONTATORE, pui farmi un esempi con codica.

grazie

[optime]

direttamente da Access.

[cavicchiandrea]

giova se hai problemi per impostare un campo id del database la vedo dura, comunque apri il database > apri tabella in modalità "Visualizzazione struttura" da li imposti "contatore"

[mdegiova]

no, pensavo intendessi ID automatico nel FORM non nel database, quello ok, ma mi interessa che l'utente lo inserisca lui il NUMERO, poichè viene ripreso successivamente da altri database anche in un secondo momento, e se gli ID non combaciano con la medesima registrazione è un casino.

Lunica soluzione è verificare che quel NUMERO non sia gia presente nel campo ID del database.

mi pui abbozzare il codice che va in verifica di lettura nel campo ID prima di procedere alla scrittura come nel codice citato precedentemente.


Grazie

[optime]

come ti ho già detto, CERCA il numero con una banale SELECT. Non credo ci sia bisogno di esempi...

[mdegiova]

<% LANGUACE="VBSCRIPT" %>
<%

On Error Resume Next

id_1 = Request("id")
anno_2 = Request("anno_2")
giorno_1 = Request("giorno")
mese_1 = Request("mese")
anno_1 = Request("anno")
protocollo_1 = Request("protocollo")
tipo_prt_1 = Request("tipo_prt")
num_prt_1 = Request("num_prt")
oggetto_1 = Request("oggetto")
tipo_int_1 = Request("tipo_int")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("P_EDILIZIE.mdb")

Squery="select id From MS1 Where id = '"&id_1&"'"
Set SR = Conn.Execute(Squery)

If Not SR.EOF Then
Session("okeydokey") = True
Set SR = Nothing
Conn.Close

response.Redirect "2.asp?errore=1&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&id_2=" &id_1&"&tipo_prt_2="&tipo_prt_1&"&tipo_int_2="&tip o_int_1&"&giorno_2="&giorno_1&"&mese_2="&mese_1&"& anno_3="&anno_1&""

else
Response.Write "Mi dispiace ID gia usato..."
End If


SQL = "insert into MS1 (id, anno, data_prt, protocollo, tipo_prt, num_prt, oggetto, tipo_int) values ('"&id_1&"', '"&anno_2&"', '"&giorno_1&" "&mese_1&" "&anno_1&"', '"&protocollo_1&"', '"&tipo_prt_1&"', '"&num_prt_1&"', '"&oggetto_1&"', '"&tipo_int_1&"')"
Set RS = Conn.Execute(SQL)


If protocollo_1 = "" or id_1 = "" or tipo_prt_1 = "" or num_prt_1 = "" or tipo_int_1 = "" or giorno_1 = "" or mese_1 = "" or anno_1 = ""then

conn.Execute(SQL)
response.Redirect "2.asp?errore=1&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&id_2=" &id_1&"&tipo_prt_2="&tipo_prt_1&"&tipo_int_2="&tip o_int_1&"&giorno_2="&giorno_1&"&mese_2="&mese_1&"& anno_3="&anno_1&""
conn.close
set conn = nothing

else

conn.Execute(SQL)
response.Redirect "2A.asp"
conn.close
set conn = nothing

end if

%>

[Roby_72]

La INSERT devi farla DENTRO questa IF....

If Not SR.EOF Then

prima del redirect.

Roby