Problema al insertar String en MySql

[[duilioisola]]

¿Tienes algun trigger en la base destino que pueda estar truncando el nombre?

[jpgonzalez]

Empezado por duilioisola

¿Tienes algun trigger en la base destino que pueda estar truncando el nombre?

No tengo ningun Trigger... pero evidentemente es problema del Delphi 2010.
Cree una nueva aplicacion en Delphi 2010, le puse una TQuery que hacia el insert, y seguia insertando solo la primer letra.
Copie exactamente lo mismo en Delphi 5, e inserto el String completo.

La verdad que estoy desorientado, si habrá algo de configuracion o quiza la version que baje tiene algun bug.

Desde ya muchas gracias a todos los que le dedicaron unos minutos a este hilo, y si se les ocurre algo, será bienvenido!!
Saludos y Feliz 2012 para todos!!!!

[jpgonzalez]

Y agrego una cosa mas...
Recien probe en Delphi 2010, hacer una insercion usando una TTable, de la siguiente forma:

Código Delphi [-]
   TableLocalidades.Open;
   TableLocalidades.InsertRecord([1, 1, 'La Plata']);       //idLocalidad, idProvincia, nombreLocalidad

Y me inserto el String completo...
O sea que el problemita esta con el insert de la TQuery, o con la manera en que toma el parámetro.
En el parametro elijo ftString, como lo hice siempre en Delphi 5.

Bueno, solo quería dejar este comentario como para agregar mas info al problemita este, y para que queden mas datos acerca de todas las pruebas que hice por si a alguien más le sucede algo parecido...

Abrazo para todos, y gracias nuevamente!!!

[jpgonzalez]

Bueno, tanto insistir con esto encontre una posible solucion... En lugar de pones el parametro de la TQuery como ftString, lo puse como ftMemo, quedando el codigo de la siguiente manera:

Código Delphi [-]
   QryInsertarLocalidad.Close;
   QryInsertarLocalidad.ParamByName('prov').AsInteger:= 1;
   QryInsertarLocalidad.ParamByName('loc').AsMemo:= 'La Plata';
   QryInsertarLocalidad.ExecSQL;

De esta manera inserta en la BBDD el String completo, en lugar de solo insertar el primer caracter...
Ahora ya me puedo ir a dormir relativamente tranquilo...
Como dije anteriormente, si le encuentran la vuelta al parametro ftString, se agradecera!!!

Abrazo!!!

[noshy]

Hola, como estas, a mi tambien me hace el mismo error y ya no se como solucionarlo, es mas, estaba buscando algun SP para D2010 ya que creo que es un bugs, porque lo haces con ADO y funciona perfectamente pero con el TQuery de la paleta BDE y te inserta el primer caracter unicamente.

si aguien sabe algo, o sabe de algun SP para D2010 les agradezco que me avisen.

voy a probar mientras tanto con AsMemo.

Saludos a todos

[jpgonzalez]

Empezado por noshy

Hola, como estas, a mi tambien me hace el mismo error y ya no se como solucionarlo, es mas, estaba buscando algun SP para D2010 ya que creo que es un bugs, porque lo haces con ADO y funciona perfectamente pero con el TQuery de la paleta BDE y te inserta el primer caracter unicamente.

si aguien sabe algo, o sabe de algun SP para D2010 les agradezco que me avisen.

voy a probar mientras tanto con AsMemo.

Saludos a todos

El AsMemo trae problemas tambien... una lastima, evidentemente es un bug de Delphi 2010 que no permite insertar String con MySQL usando el TQuery.

Si insertas varios parametros String con el AsMemo, inserta todo mezclado y repite campos (inserta el email en el nombre, apellido, email, etc)... por ejemplo:

Código Delphi [-]
            QryInsertarSocio.close;
            QryInsertarSocio.ParamByName('nroSocio').AsInteger:= nroSocio;
            QryInsertarSocio.ParamByName('idPlan').AsInteger:= idPlan;
            QryInsertarSocio.ParamByName('idZona').AsInteger:= idZona;
            QryInsertarSocio.ParamByName('apellido').AsMemo:= apellido;
            QryInsertarSocio.ParamByName('nombre').AsMemo:= nombre;
            QryInsertarSocio.ParamByName('sexo').AsMemo:= sexo;
            QryInsertarSocio.ParamByName('fechaNac').AsDate:= fechaNac;
            QryInsertarSocio.ParamByName('tipoDoc').AsInteger:= idTipoDoc;
            QryInsertarSocio.ParamByName('nroDoc').AsMemo:= nroDocumento;
            QryInsertarSocio.ParamByName('direccion').AsMemo:= direccion;
            QryInsertarSocio.ParamByName('codPostal').AsMemo:= codPostal;
            QryInsertarSocio.ParamByName('idProvincia').AsInteger:= idProvincia;
            QryInsertarSocio.ParamByName('idLocalidad').AsInteger:= idLocalidad;
            QryInsertarSocio.ParamByName('telefono').AsMemo:= telefono;
            QryInsertarSocio.ParamByName('celular').AsMemo:= celular;
            QryInsertarSocio.ParamByName('email').AsMemo:= email;
            QryInsertarSocio.ParamByName('activo').AsInteger:= 1;
            QryInsertarSocio.ExecSQL;

Y si usas el AsString, inserta solo la primer letra...

Código Delphi [-]
  
            QryInsertarSocio.close;
            QryInsertarSocio.ParamByName('nroSocio').AsInteger:= nroSocio;
            QryInsertarSocio.ParamByName('idPlan').AsInteger:= idPlan;
            QryInsertarSocio.ParamByName('idZona').AsInteger:= idZona;
            QryInsertarSocio.ParamByName('apellido').AsString:= apellido;
            QryInsertarSocio.ParamByName('nombre').AsString:= nombre;
            QryInsertarSocio.ParamByName('sexo').AsString:= sexo;
            QryInsertarSocio.ParamByName('fechaNac').AsDate:= fechaNac;
            QryInsertarSocio.ParamByName('tipoDoc').AsInteger:= idTipoDoc;
            QryInsertarSocio.ParamByName('nroDoc').AsString:= nroDocumento;
            QryInsertarSocio.ParamByName('direccion').AsString:= direccion;
            QryInsertarSocio.ParamByName('codPostal').AsString:= codPostal;
            QryInsertarSocio.ParamByName('idProvincia').AsInteger:= idProvincia;
            QryInsertarSocio.ParamByName('idLocalidad').AsInteger:= idLocalidad;
            QryInsertarSocio.ParamByName('telefono').AsString:= telefono;
            QryInsertarSocio.ParamByName('celular').AsString:= celular;
            QryInsertarSocio.ParamByName('email').AsWideString:= email;
            QryInsertarSocio.ParamByName('activo').AsInteger:= 1;
            QryInsertarSocio.ExecSQL;

La verdad, que no se que es lo que pasa... si alguien encuentra algo de esto, por favor comenten.
Abrazo para todos!!!!