Verifica presenza ID

[mdegiova]

non riesfo a far funzionare il comando SELECT, dove sbaglio :


<% 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")

%>

<%
set sqltext = "SELECT * FROM PRATICA where id='"&id_1&"'"

if not sqltext.EOF then

conn.Execute(SQL)
response.Redirect "2.asp?errore=2&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&tipo_p rt_2="&tipo_prt_1&"&tipo_int_2="&tipo_int_1&"&gior no_2="&giorno_1&"&mese_2="&mese_1&"&anno_3="&anno_ 1&""
conn.close
set conn = nothing
end if
%>

<%
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

SQL = "insert into PRATICA (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)

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

end if
%>

[optime]

che vuol dire "non riesfo a far funzionare il comando SELECT"?

[Roby_72]

Questo:
set sqltext = "SELECT * FROM PRATICA where id='"&id_1&"'"
if not sqltext.EOF then

dovresti trasformarlo in:

sql = "SELECT * FROM PRATICA where id='"&id_1&"'"
set sqltext = conn.Execute(sql)
if not sqltext.EOF then
....
....

Se vuoi vedere gli errori togli la stringa:
On Error Resume Next

Roby

[mdegiova]

Praticamente prima di effettuare le verifiche di complazione dei FORM e quindi successivamente scrivere nel MDB " P_EDILIZIE", dovrebbe verificare se l'ID inserito dall'utente è gia stato usato da qualcun altro e quindi rispondere con un link di errore.

questultimo controllo non riesco a farlo funzionare (qualunque ID io scriva nel FORM si esso presente che non utilizzato ottengo lo stesso risultato il redirect.)

Ecco il codice :


<% LANGUACE="VBSCRIPT" %>
<%

On Error Resume Next

id_1 = Request("id")
anno_2 = Request("anno_2")
......
.....
.......

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

%>

<%
sql = "SELECT * FROM PRATICA where id='"&id_1&"'"
set sqltext = conn.Execute(sql)
if not sqltext.EOF then

conn.Execute(sql)
response.Redirect "2.asp?errore=2&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&tipo_p rt_2="&tipo_prt_1&"&tipo_int_2="&tipo_int_1&"&gior no_2="&giorno_1&"&mese_2="&mese_1&"&anno_3="&anno_ 1&""
conn.close
set conn = nothing
end if
%>

<%
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

.......................
............................
................................
..............................


ho provato a togliere la stringa :

On Error Resume Next

peggio non funziona piu la pagina .

[optime]

mdg, una cosa fondamentale: dire "non funziona" non serve a niente. dicci l'errore

[mdegiova]

sia che l'ID è presente nel MDB che mancante,

il controllo mi risponde sempre con (response.Redirect "2.asp?errore=2....)

invece sto cercando di fargli fare :

- Controllo se ID è gia presente nell' MDB

se la risposta è SI allora (response.Redirect "2.asp?errore=2....)

altrimenti

procedi con le le altre verifiche e scrittura dei dati all'interno dell' MDB

[optime]

facciamo un prova

<%
   sql = "SELECT * FROM PRATICA where id='" & id_1 & "'"
   Response.Write "
MaGGica sql...: " & sql
   set sqltext = conn.Execute(sql)
   Response.Write "
MaGGico eof...: " & sqltext.eof
   Response.End
%> 

la response.end fermerà l'esecuzione, ma adesso serve solo per debug

posta quello che ti viene a video

[mdegiova]

adesso a video appare :

questo id non è presente nel MDB

MaGGica sql...: SELECT * FROM PRATICA where id='2'


questo id è presente nel MDB

MaGGica sql...: SELECT * FROM PRATICA where id='1'

[optime]

1. ID è numerico o stringa?
2. dov'è la seconda response.write (MaGGico eof)?

[mdegiova]

ID è un numero

risposta 1 : MaGGica sql...: SELECT * FROM PRATICA where id='1'

risposta 2 : MaGGica sql...: SELECT * FROM PRATICA where id='2'

risposta 3 : MaGGica sql...: SELECT * FROM PRATICA where id='345678'


risponde sempre in maniera uguale ??