* Disabled TestParametersAndDates-test for Mysql

 * Fixed ftMemo-type parameters

git-svn-id: trunk@9061 -

packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

@@ -241,7 +241,7 @@ var esc_str : pchar;
 
 begin
   if (not assigned(param)) or param.IsNull then Result := 'Null'
-  else if param.DataType in [ftString,ftBlob] then
+  else if param.DataType in [ftString,ftBlob,ftMemo] then
     begin
     Getmem(esc_str,length(param.asstring)*2+1);
     mysql_real_escape_string(FMySQL,esc_str,pchar(param.asstring),length(param.asstring));

packages/fcl-db/tests/testsqlfieldtypes.pas

@@ -1159,7 +1159,7 @@ procedure TTestFieldTypes.TestParametersAndDates;
 // See bug 7205
 var ADateStr : String;
 begin
-  if SQLDbType=interbase then Ignore('This test does not apply to Interbase/Firebird, since it doesn''t use semicolons for casts');
+  if SQLDbType in [interbase,mysql40,mysql41,mysql50] then Ignore('This test does not apply to this sqldb-connection type, since it doesn''t use semicolons for casts');
 
   with TSQLDBConnector(DBConnector).Query do
     begin