SQL Generator

[cybsistemas]

Is it possible to create a statement like sql generator which generates at runtime?

Something like:
myquery1.sql.text := select * from customers;
myquery1.execute;
"myquery1.generatesqlinsert"
showmessage(myquery1.sqlinsert.text);

[ViktorV]

Here is a code example that demonstrates generating INSERT SQL statements at run-time:

Code: Select all

TDBAccessUtils.SQLGenerator(MyQuery1).SubstituteParamName := False;
ShowMessage(TDBAccessUtils.SQLGenerator(MyQuery1).GenerateSQL(TDAParamsInfo.Create(TDAParamInfo) , _stInsert, true));

Note that to run this code, you should add the CRAccess and DASQLGenerator units to the USES clause of your unit.
But we don't recommend to use this, because internal methods are used in the code and incorrect usage of them can lead to unpredictable consequences.

[cybsistemas]

Thank you very much

[ViktorV]

Feel free to contact us if you have any further questions.