* Allow string-parameters of more then 8000 characters, bug #13530

git-svn-id: trunk@13100 -

packages/fcl-db/src/sqldb/odbc/odbcconn.pas

@@ -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