Confronto Date e caricamento DAO VB

[sara81it]

ciao Ragazzi
devo leggere su un db tramite dao, delle date e mi deve caricare su textboxes solo un record che ha data > della data di oggi. Il controllo è corretto, ma non carica perchè?

Set db = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\Gruming\Appuntamenti.mdb")
    sql = "select * from Appuntamento where Cliente = ('" & cmbcliente.Text & "')"
Set rs = db.OpenRecordset(sql)
    If (rs!DataApp) <= txtdataoggi.Text Then
    txtid.Text = (rs!ID)
    txtdataApp.Text = (rs!DataApp)
    txtoraapp.Text = (rs!OraApp)
    txtcli.Text = (rs!Cliente)
    txttratt.Text = (rs!trattamento)
    txtoper.Text = (rs!operatore)
    End If

perchè??

grazie Sara

[Markho]

ciao,
estrai già da sql i dati filtrati sulle date, modifica il codice così:

    SQL = "select * from Appuntamento where Cliente = '" & cmbcliente.Text & _
    "' and DataApp <= #" & Date & "#"
    'date è la data di oggi
    Set rs = db.OpenRecordset(SQL)

ciao, il problema di ieri è a posto?

[sara81it]

Ho inserito il codice ncome mi hai detto, ma non mi trova il record sul db nonostante ci sia. Come mai?

Set db = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\Gruming\Appuntamenti.mdb")
    sql = "select * from Appuntamento where Cliente = ('" & cmbcliente.Text & "') And DataApp >= # " & Date & "#"
Set rs = db.OpenRecordset(sql)
    txtid.Text = (rs!ID)
    txtdataApp.Text = (rs!DataApp)
    txtoraapp.Text = (rs!OraApp)
    txtcli.Text = (rs!Cliente)
    txttratt.Text = (rs!trattamento)
    txtoper.Text = (rs!operatore)

il record sul db c'è perchè la data appuntamento è il 15/02/2003.

sai darmiuna spiegazione?

per il problema di ieri ho risolto senza una list box!

avevo molta fretta...oggi devo consegnare il tutto!!

Grazie ancora Sara

[Markho]

non capisco, quindi no esegue la riga:

txtdataApp.Text = (rs!DataApp)

????

[sara81it]

il problema è che non trova alcun record... mi dice nessun record corrente...

lui legge il l'sql e controllando i campi i valori sono corrette (DataApp effettivamente corrisponde e anche Date è corretta), ma non carica.
come mai?

[Markho]

Prova a verificare magari scrivendo msgbox sql, se la query è giusta.

[Markho]

prova a fare anche un controllo sul numero di record estratti effet
etivamente dal recordset:

MsgBox rs.RecordCount

[sara81it]

Funzionaaaaaaaa


grazie mille!!