Estrarre un record da un database

[simona.rei78]

Ciao,
ho un piccolo problema: devo estrarre da un database fatto di due colonne il record che contiene un campo digitato dall'utemte...ma ricevo errori continui!!!
Che cosa sbaglio?

<%
Dim adoCon
Dim Campo
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/indirizzi.mdb")"
'Parametri
Campo = Request.Form("Nick")
strSQL = "Select * From indirizzi Where nick = " & Campo
set rs = Con.Execute(strSQL)
MyData = rs("nick")
rs.close
set rs = nothing
Set adoCon = Nothing
%>

[deivnet]

Posta gli errori che ti da...

[Acaro]

<tr>
<td align="center" bgcolor="<%Response.Write colore%>" align=center width="150"><%Response.Write rs("nome")%></td>
<tr>
io scrivevo questo codice....dentro ad una table..
ok..

[mikynetwork]

forse non ti sei accorto che poni in set= nothing la connessione
senza averla chiusa non credo sia corretto prova così:
anche il lancio della query penso sia meglio come l'ho scritto io
la query era sbagliata

<%
Dim adoCon
Dim Campo
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/indirizzi.mdb")"
'Parametri
Campo = Request.Form("Nick")
strSQL = "Select * From indirizzi Where nick = '"& Campo & "'"
'apro il recordset
rs.open adoCon, strSQL, 3, 3
'questa variabile a che serve?
MyData = rs("nick")
rs.close
set rs = nothing
'eseguo la query
adoCon.Execute(strSQL)
'chiudo la connessione
adoCon.Close
Set adoCon = Nothing
%>

dimmi se funzia

Ciaooo

[simona.rei78]

Anzitutto grazie della paziente risposta!!

Ho subito provato il codice, ma mi esce questo errore...

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/inserimento/interroga.asp, line 12
che corrisponde alla linea

rs.open adoCon, strSQL, 3, 3

Qualche idea?? Grazieissime!!!

[maximum]

Prova a cambiare da così:

rs.open adoCon, strSQL, 3, 3

a così:

rs.open adoCon, strSQL

[mikynetwork]

secondo me la variabile campo non e valorizzata,intendo dire che non contiene nulla, prova a fare cosi col response.write che ti stampa a video la variabile campo.

<%
Dim adoCon
Dim Campo
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/indirizzi.mdb")"
'Parametri
Campo = Request.Form("Nick")
Response.Write(Campo)
response.End()
'ATTENZIONE!!! Ho commentato la riga della SQL perche probabilmente
'ti darebbe cmq l'errore dopo aver provato ricordati di togliere
' il commento
'strSQL = "Select * From indirizzi Where nick = '"& Campo & "'"
'apro il recordset
rs.open adoCon, strSQL, 3, 3
'questa variabile a che serve?
MyData = rs("nick")
rs.close
set rs = nothing
'eseguo la query
adoCon.Execute(strSQL)
'chiudo la connessione
adoCon.Close
Set adoCon = Nothing
%>

[simona.rei78]

Ciao, grazie di cuore a tutti...ma...ricevo sempre lo stesso errore, anche togliendo il , 3, 3
Con l'esempio di mikynetwork sono riuscita a rileggere esattamente quello che scrivo nel campo "nick", ma poi, al solito, l'estrazione dal database non me la fa damdomi sempre quell'errore!

Grazie di cuore se vorrete perderci ancora un pò del vostro tempo...

[simona.rei78]

...dunque...sono ripartita da zero...

ora mi connetto al database e visualizzo la tabella che mi interessa con questo codice (che mi funziona):

<% @ LANGUAGE=VBScript %>
<% option explicit %> 
<%
Dim cnnSimple 
Dim rstSimple 
Dim strDBPath 
strDBPath = Server.MapPath("/mdb-database/indirizzi.mdb")
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Set rstSimple = cnnSimple.Execute("SELECT * FROM indirizzi")
%> 


<font color="#0099FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Database Table Contents</font></p>
<table width="704" border="1">
<%
Do While Not rstSimple.EOF
%>
<tr>
<td width="99"><%= rstSimple.Fields("Nick").Value %> <div align="center"></div>
<div align="center"></div></td>
<td width="174"><%= rstSimple.Fields("Indirizzo").Value %> <div align="center"></div>
<div align="center"></div></td>
</tr>
<%
rstSimple.MoveNext
Loop
%>
</table>


 
<%
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>

Ora, ultimo passo, dovrei, invece di visualizzare tutta la tabella, solo un record nel quale il campo Nick della tabella "indirizzi" sia uguale ad Request.Form("Nick")
La select dovrebbe essere

campo= Request.Form("Nick")
select * from indirizzi where Nick=campo

Mi date una mano ad inserirla nel codice che ho scritto sopra??
grazie!

[mikynetwork]

Puoi provare questa stringa di connessione?

adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/indirizzi.mdb")
%>