Problemi con connessione a DB ACCESS 2003

**Sypher** · 17-07-2006, 18:17

stampa la query e vediamo che succede

codice:

<%
 On Error resume next
 dim conn,strConn,rs,ora,disp,data,arrData
 data=Request.QueryString("data")
 arrData=split(data,"/",-1,1)
 gg=arrData(0)
 mm=arrData(1)
 aa=arrData(2)
 Set conn=Server.CreateObject("ADODB.Connection")
 strConn="Provider=Microsoft.Jet.OLEDB.4.0;"
 strConn=strConn & " Data Source=c:\inetpub\wwwroot\Calendario\DB.mdb"
 conn.Open strConn
sql="SELECT Disp,Ora FROM Posti where Giorno='"& arrData(0) & "' and Mese='"& arrData(1) & "' and Anno='" & arrData(2) & "'"
Response.write sql
Response.End 
  set rs=Server.CreateObject("ADODB.Recordset")
 rs.open sql,conn
 rs.movefirst
 Do while not rs.EOF
   response.write "ORARIO = " & rs("Ora") & "
"
   response.write "DISP = " & rs("Disp") & "
"
   rs.MoveNext
 loop
  
 rs.Close
 set rs=Nothing
 conn.Close
 set conn=Nothing
 
 %>

**pot79** · 17-07-2006, 18:17

ops...non avevo visto!
Un attimo che controllo

**pot79** · 17-07-2006, 18:20

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/Calendario/query.asp, line 29

response.write "ORARIO = " & rs("Ora") & "
"

**Sypher** · 17-07-2006, 18:21

Originariamente inviato da pot79
Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/Calendario/query.asp, line 29

response.write "ORARIO = " & rs("Ora") & "
"

metti la query che ho scritto io

**pot79** · 17-07-2006, 18:23

Sypher scusa ma non sto dando i numeri...
avevo provato a stampare la query e mi dava questo output :
SELECT Disponibilita FROM Posti where Giorno='1' and Mese='8' and Anno='2006'

togliendo il codice per stampare mi viene l'errore che ho scritto sopra...rifletto

**Sypher** · 17-07-2006, 18:24

Originariamente inviato da pot79
Sypher scusa ma non sto dando i numeri...
avevo provato a stampare la query e mi dava questo output :
SELECT Disponibilita FROM Posti where Giorno='1' and Mese='8' and Anno='2006'

togliendo il codice per stampare mi viene l'errore che ho scritto sopra...rifletto

SELECT Disponibilita,Ora FROM Posti where Giorno='1' and Mese='8' and Anno='2006'

**pot79** · 17-07-2006, 18:26

Sypher sei un grande...ora mi dà i risultati che volevo...(SCUSA ANCORA PER LA DISTRAZIONE MA SONO 10 ORE CHE SONO SUL PC SENZA PAUSE...)

**Sypher** · 17-07-2006, 18:31

Originariamente inviato da pot79
Sypher sei un grande...ora mi dà i risultati che volevo...(SCUSA ANCORA PER LA DISTRAZIONE MA SONO 10 ORE CHE SONO SUL PC SENZA PAUSE...)

**pot79** · 17-07-2006, 18:41

Già che ci sono vi chiedo parere anche su sta cosa

default.asp(il codice è tutto esatto per ora)
<%@ Language=VBSCRIPT%>
<%Option Explicit%>
<%
Function GetMonthName(Mesi)
Select Case Mesi
Case 1: GetMonthName="Gennaio"
Case 2: GetMonthName="Febbraio"
Case 3: GetMonthName="Marzo"
Case 4: GetMonthName="Aprile"
Case 5: GetMonthName="Maggio"
Case 6: GetMonthName="Giugno"
Case 7: GetMonthName="Luglio"
Case 8: GetMonthName="Agosto"
Case 9: GetMonthName="Settembre"
Case 10: GetMonthName="Ottobre"
Case 11: GetMonthName="Novembre"
Case 12: GetMonthName="Dicembre"
Case Else:
GetMonthName="**Mese Errato**"
End Select
End Function

Dim dataCorrente
dataCorrente = Request("Date")

If Len(dataCorrente) = 0 then
dataCorrente = Date()
end if

Dim aCalendarDays(42)
Dim iFirstWeekday
iFirstWeekday = DatePart("w" ,DateSerial(Year(dataCorrente), Month(dataCorrente),1-1))

Dim iDaysInMonth
iDaysInMonth = DatePart("d" ,DateSerial(Year(dataCorrente), Month(dataCorrente)+ 1, 1-1))

Dim iLoop
For iLoop = 1 to iDaysInMonth
aCalendarDays(iLoop + iFirstWeekday - 1) = iLoop
Next
Dim iColumns , iRows
iColumns = 7
iRows = 6 - Int((42 -(iFirstWeekDay + iDaysInMonth)) / 7)

Dim strPrevMonth, strNextMonth
strPrevMonth = Server.URLEncode(DateAdd("m", - 1, dataCorrente))
strNextMonth = Server.URLEncode(DateAdd("m", 1, dataCorrente))
%>
<html>
<head>
<title></title>
<style>
a:link {font-family:verdana; font-size:10px;color:#333399;text-decoration:none;}
a:visited {font-family:verdana; font-size:10px;color:#550000;text-decoration:none;}
a:hover {font-family:verdana; font-size:10px;color:#ff0000;}
</style>
</head>
<body bgcolor="#FFFFFF">
<table align="center" border="1" cellspacing="0" width="30%" height="30%" cellpadding="0">
<tr>

<th colspan="7">
<font face="Verdana" size="4">
<%
response.write GetMonthName(Month(dataCorrente))
response.write " " & Year(dataCorrente)
%>
</font>
</th>

</tr>
<tr>
<th>Lun</th>
<th>Mar</th>
<th>Mer</th>
<th>Gio</th>
<th>Ven</th>
<th>Sab</th>
<th>Dom</th>
</tr>
<%
Dim iRowsLoop, iColumnsLoop
for iRowsLoop = 1 to iRows
response.write "<tr>"
for iColumnsLoop = 1 to iColumns
if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop) > 0 then
response.write "<td valign=""center"" align=""center"" width=""10%"">"

if aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)> day(date()) or Month(dataCorrente)>Month(date()) or Year(dataCorrente)>Year(date()) then
response.write "<a href=""query.asp?data=" & aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop) & "/" & Month(dataCorrente) & "/" & Year(dataCorrente) & """>"
response.write "<font face=""Verdana"" size=""2"">"&aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop)&"</font>"
response.write "</a>"
else
response.write "<font face=""Verdana"" size=""2"">"&aCalendarDays((iRowsLoop-1)* 7 + iColumnsLoop)&"</font>"
end if
response.write "</td>"
else
response.write "<td bgcolor=""blue"" valign=""center"" align=""center"" width=""10%""><font face=""Verdana"" size=""2""></font></td>"
end if
next
response.write "</tr>"
next
%>
</table>
<table align="center" border="0" cellspacing="0" width="30%" height="5%" cellpadding="0">
<tr>
<th width="50%" align="left">
<a href="default.asp?Date=<%=strPrevMonth%>">
<%
if Month(dataCorrente)> Month(date()) or Year(dataCorrente)>Year(date()) then
response.write "PREC"
else
response.write ""
end if
%>
</a>

</th>
<th width="50%" align="right">
SUCC
</th>
</tr>
</table>
<table align="center" border="1" cellspacing="0" width="30%" cellpadding="0">
<tr>
<td width="50%">
<font size="2" color="red">ORARIO</font>
</td>
<td>
<font size="2" color="red">POSTI DISPONIBILI</font>
</td>
</tr>
</table>
</body>
</html>

query.asp
<%
'On Error resume next
dim conn,strConn,rs,ora,disp,data,arrData
data=Request.QueryString("data")
arrData=split(data,"/",-1,1)
response.write arrData(0) & "
"
response.write arrData(1) & "
"
response.write arrData(2) & "

"
gg=arrData(0)
mm=arrData(1)
aa=arrData(2)
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;"
strConn=strConn & " Data Source=c:\Inetpub\wwwroot\Calendario\DB.mdb"
Conn.Open strConn
sql="SELECT Disponibilita,Ora FROM Posti where Giorno='"& arrData(0) & "' and Mese='"& arrData(1) & "' and Anno='" & arrData(2) & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn
rs.movefirst
Do while not rs.EOF
response.write "ORARIO = " & rs("Ora") & ".00 -"
response.write "DISP = " & rs("Disponibilita") & "
"
ora= rs.fields("Ora") & ".00"
disp= rs.fields("Disponibilita") & ""
response.redirect("default.asp?disponibilita='"&di sp&"';orario='"&ora&"'")
rs.MoveNext
loop
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>

1-vi sembra esatto il modo per passare dati da query.asp a default.asp?
2-in default.asp come faccio a fargli creare dinamicamente una tabella con tutti i dati che arrivano???

**Sypher** · 17-07-2006, 18:45

response.redirect("default.asp?disponibilita=" & disp & "&orario=" & ora)

poi li recuperi in default.asp con Request.QueryString("disponibilita") e Request.QueryString("ora")

Discussione: Problemi con connessione a DB ACCESS 2003

Strumenti discussione

Ricerca discussione

Visualizza

Re: Problemi con connessione a DB ACCESS 2003

Permessi di invio