[vb6] inputbox per le date

[krico]

ho la seguente sub:

Public Sub cmdrpdata_Click()
    Dim data
    data = InputBox("inserisci la data per la ricerca", _
                    "PROTOMAGIC - ricerca per data")
    objposta.rs.Close
    objposta.apri_rs_1parDATA "protocolli", "data", data
    Set Adodc1.Recordset = objposta.rs
    DataGrid1.Refresh
End Sub

se premo annulla mi da errore di run-time 13.

in più non funziona con tutte le date come se inserire 12/05/2003 fosse differente di 11/06/2003 in termini di formato.

[DeBe99]

l'errore di run time ti viene daro perche premendo annulla sulla inputbox ti viene ritornato una stringa a lunghezza zero, metti un controllo sul suo valore per verificare se l'operazione è stata annullata o meno.

[krico]

grazie ... il discorso annulla ora è sistemato.

per l'altro curioso prob. nessun consiglio?

[krico]

rettifico: non ho ancora risolto

ho provato a mettere un controllo come per msgbox così:

if date=2 then

ma niente da fare purtroppo

[DeBe99]

Originariamente inviato da krico
rettifico: non ho ancora risolto

ho provato a mettere un controllo come per msgbox così:

if date=2 then

ma niente da fare purtroppo

perchè data=2?

Public Sub cmdrpdata_Click() 
Dim data 
data = InputBox("inserisci la data per la ricerca", "PROTOMAGIC - ricerca per data") 
if data="" then
   'operazione annullata
   msgbox "Operazione annullata dall'utente"
else
   objposta.rs.Close 
   objposta.apri_rs_1parDATA "protocolli", "data", data 
   Set Adodc1.Recordset = objposta.rs 
   DataGrid1.Refresh 
end if
End Sub

Per le date tieni conto che sql tenta di riconoscierle con formato mm/gg/yyyy, poi se non la riconoscie tenta con gli altri formati.

[krico]

avevo scritto 2 perchè quando si usa msgbox e si preme annulla restituisce valore 2.

per l'altro prob. il fatto strano è che funziona con tutte le date tranne 11/06/2003 e 12/06/2003. magia? bo!

[DeBe99]

ti da qualche errore? come la stringa sql?

[krico]

no mi restituisce un recordset vuoto.

all'apertura ho tutti i record, anche quello con data 12/06/2003
mando in esecuzione la proc di cui sopra e non mi restituisce niente.

[DeBe99]

posta un po di codice :quipy:

[krico]

Public Sub apri_rs_1parDATA(ByVal tabella As String, ByVal parametro As String, ByVal valore As Date)
    apriconnessione
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from " & tabella & " where " & parametro & "=#" & valore & "#", cn, adOpenDynamic, adLockBatchOptimistic, adCmdUnknown
    If Err Then
        MsgBox "Unable to open the recordset." & vbCr & Err.Description, vbCritical
        Exit Sub
    End If
End Sub