Insertar archivo en base de datos!!!!!
 

Hola amigos.

Estoy trabajando en Delphi 5 y necesito insertar en un campo de la tabla que tengo un archivo de cualquier tipo.
El campo de esta tabla es del tipo LongVarBinari y supongo que es una base de datos SYBASE.
A esta tabla tengo acceso por OBDC
Necesito insertar los archivos dentro de ese campo de la tabla.

Lo que hice es un metodo con TStringList que abre el archivo y por medio INSERT INTO lo inserta.

:confused: Esto es un ejemplo de lo que hice y solo funciona para texto plano:

Código Delphi [-]
           Archivo:= TStringList.Create
           Archivo.LoadFromFile ('C:\Fordward.html');
           CampoDeLaTabla := Archivo.Text;

Luego

Código Delphi [-]
INSERT INTO TBAttach (Attachment) Values (#39+CampoDeLaTabla+#39)

#39 es la comilla simple (')

Espero que me puedan ayudar

Saludos...

Te da algún error? Cual?

Sin esa información no te podemos ayudar mucho...

Por lo pronto, intenta algo como esto:

Código Delphi [-]
MyQuery.SQL.Add('INSERT INTO TBAttach (Attachment) Values (' + QuotedStr(CampoDeLaTabla) + ')');

En tu query poné:

Código SQL [-]
  Insert into tbAttach (attachment) values (:attachment);

y luego:

Código Delphi [-]
Var
  f1 : TStringList;

Begin
  f1 := TStringList.Create;
  try
    f1.LoadFromFile('archivo.txt');
    query1.ParamByName('attachment').assign(f1);
    query1.Execute;
  finally
    f1.Free;
  end;
end;

No he podido comprobar si funciona el assign... pero creo que debiera en todos los conjuntos de componentes de acceso a datos.

Hasta luego.

;)