Ciao a tutti...
Sarò una rottura di scatole con i miei messaggi,ma non so proprio dove andare a sbattere la testa.
Sostanzialmente sono sempre nello stesso punto da un pezzo. Il programma compila correttamente
ma in prossimita dell'append mi da errore ovvero:
-- Errore in prossimità della Clausula where
Potete analizzare questa sequenza di codice e mi dite che cosa nn va!!!!
Senza peli sulla lingua.
************************************************** *****
codice:
//Verifico che sono nel campo della cxGrid che mi interessa
if (DMDomini->tScadenze->FieldByName("Pagato")->AsBoolean==false)
{
//DialogBox
int Conferma=MessageDlg("Vuoi aggiornare data scadenza e durata?!",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0);
if (Conferma==mrYes)
{
//Abilito l'editing del dataset che è nel DataModule(DMDomini)
DMDomini->tScadenze->Edit();
DMDomini->tScadenze->FieldByName("Pagato")->AsBoolean=true;
//Dubbi...
aggiorna=DMDomini->tScadenze->FieldByName("DataScadenza")->AsString;
aggiorna_data=IncMonth(aggiorna,12);
}
}
else
{
DMDomini->tScadenze->Edit();
DMDomini->tScadenze->FieldByName("Pagato")->AsBoolean=false;
DMDomini->Comando->CommandText="INSERT INTO ScadenzaDomini (DataScadenza)
VALUES " +aggiorna_data+"
WHERE IDDominio="+DMDomini->tDomini->FieldByName("IDDominio")->AsString;
DMDomini->Comando->Execute();
//Non Mi esegue l'inserimento nel dataset, ma da errori sul Where
DMDomini->tScadenze->Append();
delete DMDomini->Comando;
}
************************************************** *******
Sicuramente ci sono una barca di errori e sicuramente stanno sopravvalutando
le mie capacità di programmazione...
Comunque spero che qualcuno trovi una soluzione per aiutarmi.
Grazie a chiunque risponda.