Query: Annunci di oggi [era:Aiuto]

[sspintux]

Originariamente inviato da vegra
.....
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}
..................
sql="SELECT * FROM Annunci where Data=#"& date () &"#"
.................................................. .
response.write "Annunci "& ann_oggi

Ciao,
prova così :

ARI-EDIT .. orca put.. mi sa che format non c'è in ASP... 
sql="SELECT * FROM Annunci where [Data]=#"&  format(date(),"mm/dd/yyyy") &"#"

e così

sql="SELECT * FROM Annunci where [Data] = "
sql =sql & "#" & Month(date()) & "/" & day(date()) & "/" & year(date()) & "#"

EDIT sostituita Data con [Data]... non miricordo se è una parola
riservata di access e nel dubbio...

[vegra]

mmmmmmmm

[sspintux]

Originariamente inviato da vegra
mmmmmmmm

... hai ragione... ma hai visto l'ora del post!!! (grazie wallrider per la dritta)
...le 22:00... cioè dopo cena...
... e non dirmi che tu con le salsicce piccanti bevi l'acqua

comunque a parte il casino del post precedente
su questa sono moderatamente ottimista

 

sql="SELECT * FROM Annunci where [Data] = "
sql =sql & "#" & Month(date()) & "/" & day(date()) & "/" & year(date()) & "#"

[santino83_11_04]

sql="select * from annunci where [data]=date()"

[sspintux]

Originariamente inviato da santino83_11_04
sql="select * from annunci where [data]=date()"

Sì..decisamente 'più meglio'
...comunque vegra aveva detto di averci provato anche così

[vegra]

Le ho provate tutte... o mi da 0 o errore

<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & Server.MapPath("MDB-DATABASE\Annunci.mdb")
OBJConn.open

set RS=server.CreateObject("ADODB.Recordset")


'''sql="SELECT * FROM Annunci where [Data]=#"& format(date(),"mm/dd/yyyy") &"#"
'''sql="SELECT * FROM Annunci where [Data] = "
'''sql =sql & "#" & Month(date()) & "/" & day(date()) & "/" & year(date()) & "#"
'''sql="SELECT * FROM Annunci where [Data] = "
sql="select * from annunci where [data]=date()"
'''sql="SELECT * FROM Annunci where [Data]=#"& date () &"#"

RS.Open sql,objconn,3,3
'''ann_oggi= rs.recordcount
Data= rs.recordcount
rs.close
'''set rs = nothing

'''response.write "Annunci "& ann_oggi
%>

Annunci oggi <%=Data%>

[sspintux]

Originariamente inviato da vegra
Le ho provate tutte... o mi da 0 o errore

<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & Server.MapPath("MDB-DATABASE\Annunci.mdb")
OBJConn.open

set RS=server.CreateObject("ADODB.Recordset")


'''sql="SELECT * FROM Annunci where [Data]=#"& format(date(),"mm/dd/yyyy") &"#"
'''sql="SELECT * FROM Annunci where [Data] = "
'''sql =sql & "#" & Month(date()) & "/" & day(date()) & "/" & year(date()) & "#"
'''sql="SELECT * FROM Annunci where [Data] = "
sql="select * from annunci where [data]=date()"
'''sql="SELECT * FROM Annunci where [Data]=#"& date () &"#"

RS.Open sql,objconn,3,3
'''ann_oggi= rs.recordcount
Data= rs.recordcount
rs.close
'''set rs = nothing

'''response.write "Annunci "& ann_oggi
%>

Annunci oggi <%=Data%>

:master: ...sembra il mistero della fogna otturata...

se fai così che dice ?

<%
response.Expires=0
dim MaxData, NumTot
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=c:\temp\db1.mdb"
OBJConn.open

set RS=server.CreateObject("ADODB.Recordset")


sql="select Max(Data) as MaxData, Count(*)  as NumTot from Annunci"

RS.Open sql,objconn,3,3
MaxData= rs("MaxData")
response.write "MaxData=" & MaxData 
NumTot=rs("NumTot")
response.write "NumTot=" & NumTot
rs.close
set rs = nothing
response.end
%>

[sspintux]

EDIT scusate il post doppio ma non riesco a cancellarne uno;
nel precedente va corretta la stringa di connessione

:master: ...sembra il mistero della fogna otturata...

se fai così che dice ?

<%
response.Expires=0
dim MaxData, NumTot
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & Server.MapPath("MDB-DATABASE\Annunci.mdb")
OBJConn.open

set RS=server.CreateObject("ADODB.Recordset")


sql="select Max(Data) as MaxData, Count(*)  as NumTot from Annunci"

RS.Open sql,objconn,3,3
MaxData= rs("MaxData")
response.write "MaxData=" & MaxData 
NumTot=rs("NumTot")
response.write "NumTot=" & NumTot
rs.close
set rs = nothing
response.end
%>

[sspintux]

Originariamente inviato da sspintux
...................................
:master: ...sembra il mistero della fogna otturata...
..................................

Azz!!! ...non è che nella data ci sono anche ore-minuti-sec ?

prova così :

<%
response.Expires=0
dim MaxData, NumTot
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & Server.MapPath("MDB-DATABASE\Annunci.mdb")
OBJConn.open

set RS=server.CreateObject("ADODB.Recordset")


sql="select * from Annunci  "
sql=sql & "where Day(Data)=Day(date()) and Month(Data)=Month(date()) and Year(data)=Year(date())"


RS.Open sql,objconn,3,3

response.write "Messagi giorno=" & rs.RecordCount
rs.close
set rs = nothing
%>

[vegra]

no...si presenta cosi 20060926