Ciao,
il programma che sto facendo e' quasi terminato, quindi non disperate.... tra un po mollo!!! ;D
Ho inserito in una form dei campi tdbedit collegati ad un datasource
Su questi campi sono stati inseriti alcuni valori che vorrei aggiornare sulla tabella del datasource alla pressione di un tbutton (quindi a righe di codice per intenderci), solo che non riesco a leggere il valore modificato.
l'istruzione che eseguo e' questa:
S := 'UPDATE PARAMETRI SET PERCORSO = '''+ DBPERCORSO.FIELD.ASSTRING ''''; SQLTransaction1.commit;
SQLQUERY1.SQL.Text := S;
SQLQUERY1.Execsql;
SQLQUERY1.sql.clear;
SQLTransaction1.commit;
// SQLQUERY1.OPEN;
SQLQUERY1.SQL.Text := 'SELECT * FROM PARAMETRI';
SQLQUERY1.OPEN;
pero' se lancio nuovamente il programma mi ritrovo i valori che avevo impostato la volta precedente, come se l'aggiornamento non fosse avvenuto
Praticamente se controllo la variabile S con il debug mi accorgo che il valore di dbpercorso e' rimasto quello di prima anche se in realta' io lo avevo cambiato subito prima di fare click sul bottone (legge il datasource e non il valore che ho scritto a video sul campo)
Qualche suggerimento?
Firebird 2.5
codice preso dall unit.lfm
object IBConnection1: TIBConnection
Connected = True
LoginPrompt = False
DatabaseName = 'D:\DB.FDB'
KeepConnection = False
Password = 'masterkey'
Transaction = SQLTransaction1
UserName = 'SYSDBA'
HostName = 'localhost'
LogEvents = []
left = 144
top = 136
end
object SQLTransaction1: TSQLTransaction
Active = True
Action = caNone
Database = IBConnection1
left = 176
top = 136
end
object SQLQuery1: TSQLQuery
IndexName = 'DEFAULT_ORDER'
FieldDefs = <
item
Name = 'PERCORSO'
DataType = ftString
Precision = -1
Size = 255
end
Active = True
Database = IBConnection1
Transaction = SQLTransaction1
SQL.Strings = (
'select *'
'from PARAMETRI'
)
Params = <>
left = 208
top = 136
end
object Datasource1: TDatasource
DataSet = SQLQuery1
left = 240
top = 136
end