Hola Amigos,
Tengo un problema y acudo a ustedes para ver si pueden orientarme, estoy pasando registros de una base de datos de Firebird .GDB a una copia de esta misma hecha en PostgreSQL, para lo cual desarrolle una herramienta de traspaso de todos los registros, hasta aquí todo va muy bien, pero resulta que algunas cadenas se insertan en la base de datos de PostgreSQL con espacios en blanco al final, lo cual provoca que al consultar los datos no todos los registros buscados coincidan por esos espacios al final.
Cabe Mencionar que en la base de datos de Firebird no estan esos espacios en blanco al final y aquí las búsquedas en los registros funcionan perfectamente podrían ayudarme a como quitarle a los valores del query esos espacios en blanco al final?
Aquí pongo mí código:
Código Delphi
[-]
Fmodulo05.qry_AbrirCalificacionesU.First;
while not Fmodulo05.qry_AbrirCalificacionesU.Eof do
begin
FProgresTransf.LTransferencia.Caption:= 'Transfiriendo tabla Calificaciones';
FProgresTransf.Update;
with FProgresTransf.PBProgreso do
begin
Min := 1;
Max := Fmodulo05.qry_AbrirCalificacionesU.RecordCount;
for posicion := Min to Max do
begin
Position := posicion;
Fmodulo05.qry_InsertCalificacionesU.Close;
Fmodulo05.qry_InsertCalificacionesU.Prepare;
Fmodulo05.qry_InsertCalificacionesU.ParamByName('ciclo').AsInteger:=(Fmodulo05.qry_AbrirCalificacion esUCiclo.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('subciclo').AsInteger:=(Fmodulo05.qry_AbrirCalificac ionesUSubCiclo.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('departamento').AsString:=(Fmodulo05.qry_AbrirCalifi cacionesUDepartamento.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('matricula').AsString:=(Fmodulo05.qry_AbrirCalificac ionesUMatricula.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('asignatura').AsString:=(Fmodulo05.qry_AbrirCalifica cionesUAsignatura.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('aspecto').AsInteger:=(Fmodulo05.qry_AbrirCalificaci onesUAspecto.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('evaluacion').AsString:=(Fmodulo05.qry_AbrirCalifica cionesUEvaluacion.Value);
Fmodulo05.qry_InsertCalificacionesU.ParamByName('valor').AsFloat:=(Fmodulo05.qry_AbrirCalificaciones UValor.Value);
Fmodulo05.qry_InsertCalificacionesU.ExecSQL;
contador:=contador+1;
FProgresTransf.LContador.Caption:=IntToStr(contador);
FProgresTransf.Update;
Fmodulo05.qry_AbrirCalificacionesU.Next;
end;
end;
end;
De antemano agradezco sus atenciones
Saludos