query su campo data access 2000

[ToccoMagico]

BUON GIORNO A TUTTI , HO UN PROBLEMA CON LA CREAZIONE E LA LETTURA DI UNA QUERY IN ASP.NET, IL PROBLEMA E SU UN CAMPO DATA (NEANCHE A DIRLO) IL DATA BASE E' ACCESS 2000

CI EDVO METTRE GLI APICI SI O NO ??

DEVO UTILIZZARE LA CDATE(TEXTBOX1.TEXT) ?

POSTO IL CODICE MAGARI QUALCUNO MI PUO AIUTARE

Dim str_path as string
Dim SQLSelect As String
Dim Con_Str as String
str_path = Server.MapPath("db/statistiche.mdb")
Con_Str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & str_path & ";"
Dim Con As New OleDb.OleDbConnection(Con_Str)
SQLSelect = "Select * from COMUNICAZIONI where "
SQLSelect = SQLSelect & "oggetto = '" & Textbox2.text & "' AND "
SQLSelect = SQLSelect & "data_sped = " & Textbox1.text & ""
Dim Reader As OleDb.OleDbDataReader
Dim cmd As New OleDb.OleDbCommand(SQLSelect, Con)
Con.open()
dim pippo as string
Reader = cmd.ExecuteReader()
Reader.Read()
pippo = Reader("oggetto") ***** qui mi da errore
response.write(pippo):response.end

NB .. non esiste la possibilita di fare un controllo di fine file sull'oggetto Reader ???

[Kalman]

Dovrebbe essere

While Reader.Read()
pippo = Reader("oggetto")
End While


Ciao
Kalman

[ToccoMagico]

mi rispondo da solo !!! e per conoscenza giro la risposta


la query esatta è :

SQLSelect = "Select * from COMUNICAZIONI where "
SQLSelect = SQLSelect & "oggetto = '" & Textbox2.text & "' AND "
SQLSelect = SQLSelect & "CDATE(data_sped) = '" & Textbox1.text & "' AND "
SQLSelect = SQLSelect & "CDATE(data_valid) = '" & Textbox3.text & "' "


ciao Paolo

[Kalman]

CDate è un comando visual basic e non sql. Penso che la query corretta sia:


SQLSelect = "Select * from COMUNICAZIONI where "
SQLSelect = SQLSelect & "oggetto = '" & Textbox2.text & "' AND "
SQLSelect = SQLSelect & "data_sped = '" & CDATE(Textbox1.text) & "' AND "
SQLSelect = SQLSelect & "data_valid = '" & CDATE(Textbox3.text) & "' "

Ciao
Kalman

[pietro09]

Originariamente inviato da ToccoMagico
mi rispondo da solo !!! e per conoscenza giro la risposta


la query esatta è :

SQLSelect = "Select * from COMUNICAZIONI where "
SQLSelect = SQLSelect & "oggetto = '" & Textbox2.text & "' AND "
SQLSelect = SQLSelect & "CDATE(data_sped) = '" & Textbox1.text & "' AND "
SQLSelect = SQLSelect & "CDATE(data_valid) = '" & Textbox3.text & "' "


ciao Paolo

:master: mi sembra una sql un poco poco solida

ho guardato un vecchio filtro fatto tempo fa. Più o meno era:
...& "#" & ScambiaMeseGiorno(ValoreCampo1) & "#" & ...

dove la funzione ScambiaMeseGiorno prende la stringa sicuramente già data valida e la trasforma nel formato voluto da Access

    Private Function ScambiaMeseGiorno$(ByVal d$)
        Dim x As DateTime = DateTime.Parse(d)
        Return x.Month & "/" & x.Day & "/" & x.Year
    End Function

Anche se c'è il modo di farlo diverso (e forse meglio) ho utilizzato questo metodo, scritto originariamente in vbscript nel client, e l'ho utilizzato in una classe server per fare un filtro, ed ha sempre funzionato.

[Kalman]

Puoi fare così:
- all'inizio della pagina aggiungi
Imports System.Globalization

-dove hai la routine di sql

Dim dtfi As New DateTimeFormatInfo
dtfi.ShortDatePattern = "dd/MM/yyyy"

SQLSelect = "Select * from COMUNICAZIONI where "
SQLSelect = SQLSelect & "oggetto = '" & Textbox2.text & "' AND "
SQLSelect = SQLSelect & "data_sped = '" & DateTime.Parse(Textbox1.text,dtfi) & "' AND "
SQLSelect = SQLSelect & "data_valid = '" & DateTime.Parse(Textbox3.text,dtfi) & "' "


spero di essere stato chiaro
Ciao
Kalman