Errore nella lettura nel database

[Madry]

Buona sera Ragazzi , vi rompo ancora un po
Sto cercando di stampare il risultato della query, la quale legge il Nome dello studente inerente al numero di matricola.
Questo è l'errore che visualizzo:
Numero errato di argomenti o assegnazione di proprietà non valida: 'Response.Write'
/prova.asp, line 10

QUesto è il codice della pagina:

<%@Language=VBScript %>
<% Option Explicit %>
<% Dim objconndb, query, strconn, Studente
Set objconndb=Server.CreateObject("ADODB.Connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath ("tesina.mdb")
objconndb.Open strconn
query="Select Studente.Nome From Studente Where Studente.Matricola='1002';"
objconndb.Execute(query)
Response.Write '"& query("Nome") &"'
objconndb.Close: set objconndb=nothing
%>

Grazie ancora a tutti!!!

[Roby_72]

La matricola è un campo di testo?

if not Query.EOF then
Response.Write query("Nome")
end if

Roby

[Madry]

Si Roby è di tipo testo, ho inserito il codice che mi hai proposto, ora visualizzo un altro tipo di errore:

Necessario oggetto: 'Select Studente.Nome'
/prova.asp, line 9

Il codice:

<%@Language=VBScript %> <% Option Explicit %> <% Dim objconndb, query, strconn, Studente, rstabella Set objconndb=Server.CreateObject("ADODB.Connection") strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath ("tesina.mdb") objconndb.Open strconn query="Select Studente.Nome From Studente Where Studente.Matricola='1002';" objconndb.Execute(query) if not Query.EOF then Response.Write query("Nome") end if objconndb.Close: set objconndb=nothing %>

Grazie Mille per la risposta!!!

[cavicchiandrea]

query="Select Studente.Nome,Studente.Matricola From Studente Where Studente.Matricola='1002';"

[Roby_72]

A me pare giusto, magari se metti il codice in modo che si possa leggere qualcosa e non tutto attaccato...

Roby

[Madry]

Scusatemi sono un Co*****zzo!!

<%@Language=VBScript %>
<% Option Explicit %> 
<% Dim objconndb, query, strconn, Studente, rstabella 
Set objconndb=Server.CreateObject("ADODB.Connection") strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath ("tesina.mdb") objconndb.Open strconn 
query="Select Studente.Nome From Studente Where Studente.Matricola='1002';" objconndb.Execute(query)
if not Query.EOF then 
Response.Write query("Nome")
end if 
objconndb.Close: set objconndb=nothing 
%>

Scusa ancora e grazie!!!

[cavicchiandrea]

Originariamente inviato da cavicchiandrea
query="Select Studente.Nome,Studente.Matricola From Studente Where Studente.Matricola='1002';"

Se nella select non inserisci anche matricola darà sempre errore

[supermac]

@cavicchiandrea: perchè? Non mi risulta che sia obbligatorio includere negli elementi selezionati quelli presenti nella condizione di where...

[Madry]

cavicchiandrea ho provato come hai detto tu, ma da sempre il solito errore
"Necessario oggetto:'Select Studente.Nome'

codice:

<%@Language=VBScript %>
<% Option Explicit %>
<% Dim objconndb, query, strconn, Studente, rstabella
Set objconndb=Server.CreateObject("ADODB.Connection") strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath ("tesina.mdb") objconndb.Open strconn
query="Select Studente.Nome From Studente Where Studente.Matricola='1002';" objconndb.Execute(query)
if not Query.EOF then
Response.Write query("Nome")
end if
objconndb.Close: set objconndb=nothing
%>

Grazie ancora a tutti

[supermac]

prova così

set conn= server.CreateObject("ADODB.Connection")
conn.connectionstring="Provider=Microsoft.Jet.OLED B.4.0;Data Source="&Server.MapPath ("tesina.mdb")
SQL = "Select Nome From Studente Where Matricola='1002'"
conn.open
set rs = conn.execute(SQL)
if not rs.EOF then
Response.Write rs.fields.item("Nome").value
end if
set rs = nothing
conn.close
set conn=nothing