Insertar archivo en base de datos!!!!!

[DB-ADO]

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:


Archivo:= TStringList.Create
Archivo.LoadFromFile ('C:\Fordward.html');
CampoDeLaTabla := Archivo.Text;


Luego

INSERT INTO TBAttach (Attachment) Values (#39+CampoDeLaTabla+#39)

#39 es la comilla simple (')

Espero que me puedan ayudar

Saludos...

[maeyanes]

Te da algún error? Cual?

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

Por lo pronto, intenta algo como esto:


MyQuery.SQL.Add('INSERT INTO TBAttach (Attachment) Values (' + QuotedStr(CampoDeLaTabla) + ')');

[jachguate]

En tu query poné:


Insert into tbAttach (attachment) values (:attachment);


y luego:


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.

;)