Problemas con pasos de parametros de Delphi a un SP
 

Saludos,

Primero describamos con qué estoy trabajando.

SO: Win2000
Delphi 5
IBDatabase
IBQuery
IBDataSet
IBTransaction
Firebird 1.5

Ahora lo que debería de hacer en teoria:

Desde delphi mando llamar a un SP que realiza una inserción de datos en la BD. Éste obtiene los parametros de entrada, los procesa y en base a una serie de operaciones actualiza las tablas correspondientes, sencillo ¿no?.

El problema:

El problema es que cuando envío datos tipo varchar, char o blob que contengan caracteres como ú, ó, é, entre otros, me marca un error de inserción. Cabe aclarar que a veces lo hace y otras no, además, en ocasiones al enviarme el error de todas formas ingresa los datos en la BD.

Alguien tiene alguna idea de por que me pasa esto.

Lo he probado en WIN NT 4.0 y no me ha marcado problema alguno hasta el momento pero pienso implantarlo en una maquina con Win XP. Todavía no lo he probado XP y no se si pudiesen venirse más problemas con ello.

Checa Esto....
 

En Primero lugar Revisa si tu Base de datos esta creada con el Charset ISO8859_1 y revisa que en tus campos de tipo Char y Varchar contengan lo mismo agregando el Collate a ES_ES.

Espero te haya ayudado.

Saludos....

PArece ser que el formato de la tabla es WIN1251 y el de los campos también, ¿podrían recomendarme algúna url en la que pueda consultar la diferencia entre estos formatos?

Gracias, lo revisaré.

Saludos.

He realizado el cambio de formato de la BD, y los campos de las tablas al Formato ISO_8851_1 y me sigue apareciendo el mismo error

Alguien me puede decir por qué me manda esto, se que es algo relacionado a la conversión entre los caracteres cuando son recibidos en la BD, ésta no los puede interpretar, ¿alguno de ustedes les ha sucedido algo así?. Apelo a su experiencia para tratar de resolver esto.

Como les comentaba, cuando terminé de realizar la conversión me funcionó perfectamente la primera vez, pero al volver a ejecutarlo me mandó el error que les mencioné anteriormente. El procedimiento es el siguiente.

y esta es la función que utilizo para enviar los datos al procedimiento.

Código Delphi [-]
function Tfrm_Paciente.AltaDePaciente(): Boolean;
Var
  QryAltaPac: TIBQuery;
begin
  QryAltaPac := TIBQuery.Create(nil);
  try
    with QryAltaPac do
    begin
      try
        if VerificaFmtoDato('I',EdadPac.Text) then
        begin
          //Conexión a la BD
          Barra_Estado.SimpleText := 'Consultando la Base de datos...';
          Close;
            //Asignación de la BD y transacción
            Database := DMBaseDeDatos.BDConexion;
            Transaction := DMBaseDeDatos.BDTransaccion;

            //Armado de Consulta para la llamada al procedimiento en la BD.
            SQL.Clear;
            SQL.Add('SELECT * FROM alta_pacientes(' +
                    //Datos de la tabla PACIENTES.
                    ':Fecha, :Nombre, :Apellidos, :Edad, :Sexo, :Dir, :Tel, :Fax, :Correo, ' +
                    //Datos de la tabla EXPEDIENTES.
                    ':FechaAlta, :Diagnostico, :AntecedenteEmb, :AntecedentePar, :Alergias, :Motivo, ' +
                    //Datos de la tabla REFERENCIAS.
                    ':NombreRef, :ApellidosRef, :SexoRef, :DirRef, :CorreoRef, :TelRef, :FaxRef)');

            //Datos de la tabla PACIENTES.
            ParamByName('Fecha').AsString := FormatDateTime('MM"/"DD"/"YYYY', Fech_NacPac.Date);
            ParamByName('Nombre').AsString := NombrePac.Text;
            ParamByName('Apellidos').AsString := ApellidosPac.Text;
            if EdadPac.Text <> EmptyStr then
              ParamByName('Edad').AsInteger := StrToInt(EdadPac.Text)
            else
              ParamByName('Edad').AsInteger := 0;
            ParamByName('Sexo').AsString := SexoPac.Text;
            ParamByName('Dir').AsString := DirPac.Text;
            ParamByName('Tel').AsString := TelPac.Text;
            ParamByName('Fax').AsString := FaxPac.Text;
            ParamByName('Correo').AsString := MailPac.Text;

            //Datos de la tabla EXPEDIENTES.
            ParamByName('FechaAlta').AsString := FormatDateTime('MM"/"DD"/"YYYY', Fech_AltaPac.Date);
            ParamByName('Diagnostico').AsString := DiagPac.Text;
            ParamByName('AntecedenteEmb').AsString := AntEmbPac.Text;
            ParamByName('AntecedentePar').AsString := AntParPac.Text;
            ParamByName('Alergias').AsString := AlergiasPac.Text;
            ParamByName('Motivo').AsBlob := MotivoPac.Text;

            //Datos de la tabla REFERENCIAS.
            ParamByName('NombreRef').AsString := NombreRef.Text;
            ParamByName('ApellidosRef').AsString := ApellidosRef.Text;
            ParamByName('SexoRef').AsString := SexoRef.Text;
            ParamByName('DirRef').AsString := DirRef.Text;
            ParamByName('TelRef').AsString := TelRef.Text;
            ParamByName('FaxRef').AsString := FaxRef.Text;
            ParamByName('CorreoRef').AsString := MailRef.Text;

          Open;
          Barra_Estado.SimpleText := 'Datos del paciente ingresados...';
          Result := True;
        end;
      except
        on E: Exception do
        begin
          //Muestra un mensaje error de inserción
          Barra_Estado.SimpleText := 'Error de inserción de información...';
          MessageBox(Handle,
                     PChar('Error de inserción de información' + #13 +
                     '"' + E.Message + '"'),
                     'ERROR',
                     MB_OK + MB_ICONERROR);
        Result := False;
        end;
      end;
    end;
  finally
    QryAltaPac.Free;
    //Desconexión de la BD
    DMBaseDeDatos.DesconectarBD();
  end;
end;

Ya le he dado vuelas a esto una y otra vez y no encuentro el error, confio en que alguno de ustedes se percate de mi error y me lo haga saber.

De antemano gracias.