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.![]()

Rispondi quotando