Ver Mensaje Individual
  #10  
Antiguo 07-02-2012
jpgonzalez jpgonzalez is offline
Miembro
 
Registrado: feb 2010
Posts: 121
Reputación: 15
jpgonzalez Va por buen camino
Cita:
Empezado por noshy Ver Mensaje
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!!!!
Responder Con Cita