SQLite ftMemo error (SOLVED)
lazarus / 16-Databases

----------------------------------------------------------------------
xinyiman · 2010-12-30 07:16

Code:

.
.
.
if (length(Memo_NotaRiga.Text)>0) then
begin
                            
 Q_Generica.Params.ParamByName('NOTABLOB').AsMemo:=Memo_NotaRiga.Text;

end;
Q_Generica.ExecSQL;



Error:
Project project1.exe raised exception class 'EDatabaseError' with
message:
Parameter type ftMemo not supported


Why? Help me please

----------------------------------------------------------------------
xinyiman · 2010-12-30 07:17

This code function with firebird!

----------------------------------------------------------------------
xinyiman · 2010-12-30 09:37

Solved with:


if (length(Memo_NotaRiga.Text)>0) then
                              begin
                                   if Form1.ConnFB.Connected=TRUE then
//se sono su un database firebird
                                     
Q_Generica.Params.ParamByName('NOTABLOB').AsMemo:=Memo_NotaRiga.Text
                                   else //se sono su un database
sqlite
                                     
 Q_Generica.Params.ParamByName('NOTABLOB').Text:=Memo_NotaRiga.Text;
                              end;
                              Q_Generica.ExecSQL;