[DELPHI] Costruire data per inserimento in Access

[VaLvOnAuTa]

Ho un database Access con un campo data (formato dd/mm/yyyy HH.ii.ss)

Come posso costruire una data in modo da inserire la data odierna nel campo?
Non so se esistono funzioni di Access che lo facciano in automatico.

[alka]

Le possibilità sono molteplici: dipende dalla libreria o dalla piattaforma che usi per accedere al database...

Usi BDE o ADO?

Ciao!

[VaLvOnAuTa]

Uso BDE.

Avevo temporaneamente risolto mettendo un valore di default nel database.
Adesso però mi ritrovo con la necessità di costruire una query utilizzando la data. E non so come fare:

QCalls.SQL.Add('SELECT * FROM list WHERE called='''+ MyBackup +''' AND date>='''+ datetimetostr(today) +''' ORDER BY date');
QCalls.Open;

Mi da errore di incompatibilità tra dati

[alka]

Quando è necessario inserire valori parametri all'interno delle query, è indicato (e più sicuro) l'uso di...parametri.

Prendendo il tuo esempio:

QCalls.SQL.Text := 'SELECT * FROM list WHERE date = :REFDATE';
QCalls.ParamByName('REFDATE').AsDateTime := Now;
QCalls.Open;

Ciao!

[VaLvOnAuTa]

Ok, girovagando per il forum ho trovato la soluzione, più banale di quanto credessi

QCalls.SQL.Add('SELECT * FROM list WHERE called='''+ MyBackup +''' AND date>= :DATAODIERNA ORDER BY date');
QCalls.ParamByName('DATAODIERNA').AsDateTime := Today;
QCalls.Open;

[VaLvOnAuTa]

Originariamente inviato da alka
Quando è necessario inserire valori parametri all'interno delle query, è indicato (e più sicuro) l'uso di...parametri.

Prendendo il tuo esempio:

QCalls.SQL.Text := 'SELECT * FROM list WHERE date = :REFDATE';
QCalls.ParamByName('REFDATE').AsDateTime := Now;
QCalls.Open;

Ciao!

Sei stato più veloce di me

Grazie mille comunque

[VaLvOnAuTa]

Chiedo scusa per la domanda banale ma... è possibile effettuare questa operazione anche sulle query di inserimento?

QCalls.SQL.Text := 'INSERT INTO list (caller,called,date) VALUES ('''+ Call.CallerID.Address +''','''+ Call.CalledID.Address +''',:DATAODIERNA)';
QCalls.ParamByName('DATAODIERNA').AsDateTime := Now;
QCalls.ExecSQL;

mi genera un errore.

[alka]

Originariamente inviato da VaLvOnAuTa
Chiedo scusa per la domanda banale ma... è possibile effettuare questa operazione anche sulle query di inserimento?

Certo!

Originariamente inviato da VaLvOnAuTa
mi genera un errore.

Quale? Non è un'informazione di secondaria importanza... :master:

[VaLvOnAuTa]

Originariamente inviato da alka
Certo!


Quale? Non è un'informazione di secondaria importanza... :master:

Hai ragione, scusa.
Ho risolto.
L'errore non riguardava il parametro: avevo leggermente modificato la struttura della tabella e avevo dimenticato di cambiare la stringa SQL.

Grazie mille per la disponibilità