Record non trovato

[jet]

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
         Server.MapPath("My-db.mdb") 

//definisco la stringa sql
sql = "SELECT Scheda_Cliente.nome, Scheda_Cliente.cognome, Scheda_Cliente.natoil FROM Scheda_Cliente WHERE Scheda_Cliente.nome=' " & nome & " ' And Scheda_Cliente.cognome=' " & cognome & " ' And Scheda_Cliente.natoil= " & natoil & ""

rs.Open sql,cn	

If not rs.Eof Then
rs.MoveFirst

[GudFella]

quindi ?

[jet]

non mi controlla se esiste un record con quei valori

[jet]

Dunque: recupero i valori da un form

nome = Request.Form("nome")
cognome = Request.Form("cognome")
natoil = Request.Form("natoil")

poi eseguo un controllo nel db per vedere se i tre valori esistono già.

Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")

cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
         Server.MapPath("My-db.mdb") 

//definisco la stringa sql1
sql1 = "SELECT Scheda_Cliente.nome, Scheda_Cliente.cognome, Scheda_Cliente.natoil FROM Scheda_Cliente WHERE Scheda_Cliente.nome=' " & nome & " ' And Scheda_Cliente.cognome=' " & cognome & " ' And Scheda_Cliente.natoil= " & natoil & ""

rs1.Open sql1,cn1

If not rs1.Eof Then
rs1.MoveFirst

---------
else
response.write "Ok!"
end if

ma il controllo non va, pur essendoci i valori nel db, in quanto appunto la pagina punta su OK!

[jet]

Ecco tutto il codice.

<%
ID = Request.Form("ID")
nome = Request.Form("nome")
cognome = Request.Form("cognome")
natoil = Request.Form("natoil")
........


Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")

cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
         Server.MapPath("My-db.mdb") 


sql1 = "SELECT Scheda_Cliente.nome, Scheda_Cliente.cognome, Scheda_Cliente.natoil FROM Scheda_Cliente WHERE Scheda_Cliente.nome=' " & nome & " ' AND Scheda_Cliente.cognome=' " & cognome & " ' AND Scheda_Cliente.natoil= " & natoil & ""

rs1.Open sql1,cn1

If not rs1.Eof Then
rs1.MoveFirst
%>  
  
  ATTENZIONE! CLIENTE ESISTENTE
<%
rs1.Close
Set rs1 = Nothing
cn1.Close
Set cn1 = Nothing  
%>  

QUESTA E' LA SCHEDA DEL CLIENTE CHE VUOI INSERIRE 

VUOI INSERIRE UGUALMENTE?</p>


Response dei valori

QUESTA E' LA SCHEDA DEL CLIENTE GIA' INSERITO 

<% 
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
         Server.MapPath("My-db.mdb") 

//definisco la stringa sql1
sql = "SELECT * FROM Scheda_Cliente WHERE Scheda_Cliente.nome = '" & nome & "' AND Scheda_Cliente.cognome = '" & cognome & "' AND Scheda_Cliente.natoil = " & natoil & ""

//eseguo la stringa sql
rs.Open sql,cn
If Not rs.Eof Then
rs.MoveFirst
Do While Not rs.Eof
while not rs.eof

ID = rs("ID")
nome = rs("nome")
cognome = rs("cognome")
data = rs("data")
natoa = rs("natoa")
natoil = rs("natoil")
via = rs("via")
n_civ = rs("n_civ")
cap = rs("cap")
citta = rs("citta")
pr_f = rs("pr_f")
c_fis = rs("c_fis")
tel = rs("tel")
fax = rs("fax")
cell = rs("cell")
documento = rs("documento")
ril_doc = rs("ril_doc")
data_doc = rs("data_doc")
amm = rs("amm")
ditta = rs("ditta")
giur = rs("giur")
via_ditta = rs("via_ditta")
n_civ_ditta = rs("n_civ_ditta")
cap_ditta = rs("cap_ditta")
citta_ditta = rs("citta_ditta")
pr_d = rs("pr_d")
settore = rs("settore")
piva = rs("piva")
tel_ditta = rs("tel_ditta")
fax_ditta = rs("fax_ditta")
cell_ditta = rs("cell_ditta")
AD = rs("AD")
FIN = rs("FIN")
LE = rs("LE")
IMM = rs("IMM")
FON = rs("FON")
%>
 response dei valori 
<%
rs.MoveNext
wend
loop
end if

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

else
response.write"OK!"
end if
%>

[jet]

Ho provato così, ma mi punta solo su OK, nel senso che non blocca l'insert quando i valori sono già presenti nel db.

<%
If UserName = "loginvero" And ID="1" Or ID="3" Then
ID = Request.Form("ID")
nome = Request.Form("nome")
cognome = Request.Form("cognome")
data = Request.Form("data")
natoa = Request.Form("natoa")
natoil = Request.Form("natoil")
via = Request.Form("via")
n_civ = Request.Form("n_civ")
cap = Request.Form("cap")
citta = Request.Form("citta")
pr_f = Request.Form("pr_f")
c_fis = Request.Form("c_fis")
tel = Request.Form("tel")
fax = Request.Form("fax")
cell = Request.Form("cell")
documento = Request.Form("documento")
ril_doc = Request.Form("ril_doc")
data_doc = Request.Form("data_doc")
amm = Request.Form("amm")
ditta = Request.Form("ditta")
giur = Request.Form("giur")
via_ditta = Request.Form("via_ditta")
n_civ_ditta = Request.Form("n_civ_ditta")
cap_ditta = Request.Form("cap_ditta")
citta_ditta = Request.Form("citta_ditta")
pr_d = Request.Form("pr_d")
settore = Request.Form("settore")
piva = Request.Form("piva")
tel_ditta = Request.Form("tel_ditta")
fax_ditta = Request.Form("fax_ditta")
cell_ditta = Request.Form("cell_ditta")
AD = Request.Form("AD")
If AD <> "ON" then AD = "No"
FIN = Request.Form("FIN")
If FIN <> "ON" then FIN = "No"
LE = Request.Form("LE")
If LE <> "ON" then LE = "No"
IMM = Request.Form("IMM")
If IMM <> "ON" then IMM = "No"
FON = Request.Form("FON")
If FON <> "ON" then FON = "No"

Set cn1 = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")

cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
         Server.MapPath("/mdb-database/My-db.mdb") 

//definisco la stringa sql1
sql1 = "SELECT Scheda_Cliente.nome, Scheda_Cliente.cognome, Scheda_Cliente.natoil FROM Scheda_Cliente WHERE Scheda_Cliente.nome = ' " & nome & " ' AND Scheda_Cliente.cognome = ' " & cognome & " ' AND Scheda_Cliente.natoil =   " & natoil & ""
response.write sql1

rs1.Open sql1,cn1	
If Not rs1.Eof then
%>  
  
<p align="center">  
  <font face="Verdana" class="text1">
  <span style="background-color: #ECF0F2">ATTENZIONE! CLIENTE ESISTENTE PER NOME =<font color="#FF0000"><%=nome%></font>COGNOME =<font color="#FF0000"><%=cognome%></font>E DATA DI NASCITA =<font color="#FF0000"><%=natoil%></font></span>
  </font> 

<p align="center">
<font face="Verdana" class="text1">
QUESTA E' LA SCHEDA DEL CLIENTE CHE VUOI INSERIRE 
</font>
</p>
<p align="center">

VUOI INSERIRE UGUALMENTE?</p>
</p>  
<%
else
response.write"OK!"
end if
else%>
        <p align="center">
        Login
    </td>
  </tr>
<% End if %>
</body>
</html>

[jet]

salve, se inserisco:

sql1 = "SELECT * FROM Scheda_Cliente WHERE Scheda_Cliente.nome = '" & nome & "'

Cioè senza AND

If Not rs1.EOF) Then

funge;
se invece faccio:

sql1 = "SELECT * FROM Scheda_Cliente WHERE Scheda_Cliente.nome = '" & nome & "' And Scheda_Cliente.cognome = '" & cognome & "'

non trova record uguali!
Come posso risolvere, in quanto a me serve trovare un record che soddisfi tre condizioni AND

[jet]

... la variabile natoil era di tipo data nel db.
Il riposo spesso è necessario.