questa è la pagina aspx
codice:
<HTML>
<BODY>
<TABLE><TR>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim cmdPartenza as OleDbCommand
Dim cmdArrivo as OleDbCommand
Dim rdr As OleDbDataReader
Dim rdrPartenza As OleDbDataReader
Dim rdrArrivo As OleDbDataReader
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source="&Server.MapPath("db.mdb")
cn = New OleDbConnection(ConnString)
cn.Open()
Dim sql As String = "SELECT * FROM TblTimeTable ORDER BY OraPartenza"
cmd = New OleDbCommand(sql, cn)
rdr = cmd.ExecuteReader()
While (rdr.Read())
Dim sqlPartenza As String = "SELECT * FROM TblAeroporti where Aeroporto=" & rdr("Partenza")
cmdPartenza = New OleDbCommand(sqlPartenza, cn)
rdrPartenza = cmdPartenza.ExecuteReader()
' qui mi da errore perchè c'è già rdr aperto!!
response.write (rdr("Partenza") & "
")
response.write (rdrPartenza("PosizioneX") & ",<TD>" & (rdrPartenza("PosizioneY"))
Dim sqlArrivo As String = "SELECT * FROM TblAeroporti where Aeroporto=" & rdr("Arrivo")
cmdArrivo = New OleDbCommand(sqlArrivo, cn)
rdrArrivo = cmdArrivo.ExecuteReader()
response.write (rdr("Arrivo") & "
")
response.write (rdrArrivo("PosizioneX") & ",<TD>" & (rdrArrivo("PosizioneY"))
End While
rdr.Close()
cn.Close()
%>
</TABLE>
</BODY>
</HTML>
per quanto riguarda la query di DeBe99, jet mi restituisce un errore
"Il modulo di gestione di database Microsoft Jet non riconosce 'TblTimetable.*' come nome di campo o espressione valida."
NB: immagino che dopo questo campo dovessi inserire una virgola, altrimenti mi dava errore di sintassi
In ogni modo
A.PosizioneX as InizioX, A.PosizioneY as InizioY, B.PosizioneX as FineX, B.PosizioneY as FineY
A e B da dove vengono? non devono essere definite prima?
Grazie per ancora per l'aiuto che riuscirete a darmi!