Ver Mensaje Individual
  #9  
Antiguo 16-03-2007
Avatar de Arsenio
Arsenio Arsenio is offline
Miembro
 
Registrado: oct 2006
Posts: 13
Reputación: 0
Arsenio Va por buen camino
Básicamente yo lo solucioné de la misma forma, pero lo hice en una función un poco más general, para usarla de donde tenga ese problema (solo en los campos Memo o Varchar). Si se crean nuevos campos en la base ya los hago que sean Text.

Código Delphi [-]
class function TFuncionesComponentes.TraerCampoGrandeSQLServer(Tabla, Campo, 
FiltroParaUnRegistro, TextoCampo: String): string;
...
//Traigo la longitud del campo
Qry.Sql.Text := 'SELECT LEN('+Campo+') AS LONGITUD FROM '+Tabla;
...
CantidadVeces := TamanioCampo DIV sizeDiv;
if ((TamanioCampo MOD sizeDiv)<>0) then CantidadVeces := CantidadVeces + 1;
...
sizeDiv := 255;
with Qry.SQL do
begin
  Clear;
  Add('SELECT SubString('+Campo+',1,'+IntToStr(sizeDiv)+') AS P1');
  //El inicio lo paro en un caracter más
  i := sizeDiv + 1;
  for j := 2 to CantidadVeces do
  begin
    Add(', SubString('+Campo+','+IntToStr(i)+','+IntToStr(sizeDiv)+') AS P'+IntToStr(j));
    i := (j * sizeDiv) + 1;
  end;
  Add('FROM '+Tabla);
  Add('WHERE '+FiltroParaUnRegistro);
end;
Qry.Open;
//Ahora tengo que unir todos los substrings que obtube
StrTemp := '';
for j := 1 to CantidadVeces do
StrTemp := StrTemp + qry.FieldByName('P'+IntToStr(j)).AsString;
Result := StrTemp;
...
Responder Con Cita