mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-07 05:47:32 +01:00
* Allow string-parameters of more then 8000 characters, bug #13530
git-svn-id: trunk@13100 -
This commit is contained in:
parent
16e19aaef3
commit
67dcd3be0b
@ -365,7 +365,7 @@ begin
|
||||
if AParams[ParamIndex].DataType = ftString then
|
||||
begin
|
||||
CType:=SQL_C_CHAR;
|
||||
SqlType:=SQL_CHAR;
|
||||
SqlType:=SQL_LONGVARCHAR;
|
||||
end
|
||||
else // ftBlob, ftMemo
|
||||
begin
|
||||
|
||||
Loading…
Reference in New Issue
Block a user