problema con data gennaio 2010

[mr68]

salve a tutti, ho una pagina che cerca nel db le date di scadenza dei contratti, ora se la scadenza è nel mese di gennaio mi da errore quando cerco di visualizzare i dati . di seguito il codice vb:

Dim dbconn As OleDbConnection, SQL As String 
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("app_data\archivionomi.mdb")) 
dbconn.Open() 
SQL = "SELECT * FROM tblNOMI where dimesso = false and isdate (SCADENZAPS) and month(scadenzaps) = month(now)order by scadenzaps" 
Dim Command As New OleDbCommand(SQL, dbconn) 
Dim RecordCount As String = CType(Command.ExecuteScalar(), String) 
If RecordCount > 0 Then 
Dim idPAG As Integer = CType(Request.QueryString("EMPID"), Integer) 
If idPAG = 0 Then 
If MsgBox(" Scadenze Permessi Soggiorno Imminenti, Vuoi visualizzare ?", MsgBoxStyle.YesNo, "Scadenze PS") = MsgBoxResult.Yes Then 
Response.Redirect("scadenzeps.aspx") 
End If 
End If 
End If 
dbconn.Close()

[djciko]

che errore genera ?

[pietro09]

:master: non vedo che abbia di speciale gennaio 2010 :master:

comunque, scandenzaps è una data, quindi isdate(scadenzaps) mi pare superfluo; poi farei SELECT COUNT(*) FROM TABELLA WHERE CONDIZIONE, e userei ExecuteScalar per recuperare il numero di dati, mentre come scritto, si recupera la prima cella del primo record :master:

[pietro09]

:master: poi, a guardare bene, converti il risultato di executescalar, da object a string, poi lo confronti con un integer :master: : questo non dovrebbe essere possibile :master:

[pietro09]

un'altra osservazione: non è meglio trovare i giorni che mancano da oggi alla data di scadenza? Come è fatto adesso non viene considerato l'anno.

[motogpdesmo16]

Scusate ma, ammesso che venga fornito un errore di sintassi,

month(now)order by scadenzaps

non necessita di uno spazio tra la chiusura della parentesi e la parola order??

[djciko]

Sinceramente io non ho capito.
La query tira fuori --la prima-- di N occorrenze con dimesso=false, e poi la si vuole convertire nel numero di records estratti, per giunta convertendola in String ?

SQL = "SELECT * FROM tblNOMI where dimesso = false and isdate (SCADENZAPS) and month(scadenzaps) = month(now)order by scadenzaps" 

Dim Command As New OleDbCommand(SQL, dbconn) 
Dim RecordCount As String = CType(Command.ExecuteScalar(), String) 

If RecordCount > 0 Then 
 .....
End If