7 replies to this topic

[razadi]

Que tal amigos, tengo un problema, necesito insertar un registro que contiene campos blob (binarios) a una base de access, pero esto por medio de un query es decir

sql

INSERT INTO tabla (campo1,campo2) VALUES (1,?)

alguien que me pueda ayudar con esto?

saludos y de antemano gracias por su apoyo.

[poliburro]

Que tal amigos, tengo un problema, necesito insertar un registro que contiene campos blob (binarios) a una base de access, pero esto por medio de un query es decir

sql

INSERT INTO tabla (campo1,campo2) VALUES (1,?)

alguien que me pueda ayudar con esto?

saludos y de antemano gracias por su apoyo.

Claro amigo solo una pregunta, que conector usas?

[Wilson]

Coincidencialmente estaba lidiando ayer con algo similar, ya que no me tomaba el valor del campo Blob como lo hace con los otros campos,  finalmente lo resolví pasando el valor del parámetro del Campo Blob mediante un TStream.

El siguiente ejemplo muestra el paso de parámetros desde un TClientDatset (lado cliente) de nombre cl a un TSQlServerMethod de nombre (saa) en el que el campo NOTAS es de tipo Blob.

delphi

procedure TForm1.Button4Click(Sender: TObject);
var
st:Tstream;
begin
st := TMemoryStream.Create;
clNotas.SaveToStream(st);
  with saa do
  begin
    Params[0].Value := clID_AFILIADO.Value;
    Params[1].Value := clDOCUMENTO.Value;
    Params[2].Value := clNOMBRE.Value;
    Params[3].Value := clAPELLIDOS.Value;
    Params[4].Value := clTELEFONOS.Value;
   Params[5].LoadFromStream(st,ftBlob);
    ExecuteMethod
  end;
st.free
end;

Edito: No leí bien y tu problema es en access, el ejemplo que doy es en Firebird con dbExpress, pero depronto te sirve de algo.

Y por favor a los maestros del foro, a pesar de que el código del ejemplo me funciona correctamente, por favor me digan si es correcto lo que estoy haciendo con el TStream.

Gracias

[razadi]

Claro amigo solo una pregunta, que conector usas?

Poli, uso los ADO desde delphi pero el problema es que la base de datos en acces, esta en un servidor web y acceso a él por medio de un webservices, en el cual solo me dajaron disponible un metodo para pasar un query (INSERT. UPDATE ) y este WS ejecuta el query para es base de datos.

Por eso mi pregunta de enviar un blob en una sentencia SQL.

gracias.

en cuanto a lo que comentas Wilson yo lo hago de la siguiente manera

delphi

qryTmp := TzQuery.Create(nil);
  with qryTmp do begin
    try
      Connection:= FBDatos;
      SQL.Clear;
 
      SQL.Add('update tabla set');
      SQL.Add('campoblob= :ValBlob,');
      SQL.Add('where');
      SQL.Add('(clave='+BCliente+')');
      Params[0].DataType := ftBlob;
      Params[0].LoadFromStream(KeyEnCrip,ftBLOB);
      try
        ExecSQL;
      except
        raise exception.create('Los datos Critográficos no se almacenaron');
      end;
    finally
      free;
    end;
  end;

El problema como le comento a Poli es que necesito ejecutar una sentencia SQL donde se vayan los archivos blob.

gracias y saludos

[enecumene]

Tengo entendido que los ADO no manejan muy bien los datos BLOB, si me equivoco, que me corrijan.

Saludos.

[poliburro]

Tengo entendido que los ADO no manejan muy bien los datos BLOB, si me equivoco, que me corrijan.

Saludos.

Pues, en los años que llevo trabajando con ADO nunca he tenido problemas con tipos de dato blob. Tanto como campo de una tabla o parámetro de un procedimiento almacenado me ha funcionado muy bien.

Saludos.

[Wilson]

El siguiente ejemplo  actualiza un tabla de Access con dos campos:  ID de tipo Integer y NOTAS de tipo BLOB (Memo en Access).

Utiliza un TADOConnection, un TADOTable, un TDBEdit y un TDBMemo para visualizar los resultados, el Stream se llena a partir del texto del DBMemo asignado al campo NOTAS, igual podrías utilizar como fuente un archivo.

Funciona correctamente.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TStream;
  Query: TADOQuery;
begin
  Stream := TMemoryStream.Create;
  (ADOTable1.FieldByName('NOTAS') as TBlobField).SaveToStream(Stream);
  Query := TADOQuery.Create(self);
  try
    with Query do
    begin
      Connection := ADOConnection1;
      Sql.Add('UPDATE TABLA SET NOTAS = :CAMPOBLOB WHERE ID = 1');
      Parameters.ParamByName('CAMPOBLOB').LoadFromStream(Stream, ftBLOB);
      ExecSQL
    end;
  finally
    Stream.Free;
    Query.Free;
  end;
end;

[santiago14]

Coincidencialmente estaba lidiando ayer con algo similar, ya que no me tomaba el valor del campo Blob como lo hace con los otros campos,  finalmente lo resolví pasando el valor del parámetro del Campo Blob mediante un TStream.
El siguiente ejemplo muestra el paso de parámetros desde un TClientDatset (lado cliente) de nombre cl a un TSQlServerMethod de nombre (saa) en el que el campo NOTAS es de tipo Blob.

delphi

procedure TForm1.Button4Click(Sender: TObject);
var
st:Tstream;
begin
st := TMemoryStream.Create;
clNotas.SaveToStream(st);
  with saa do
  begin
    Params[0].Value := clID_AFILIADO.Value;
    Params[1].Value := clDOCUMENTO.Value;
    Params[2].Value := clNOMBRE.Value;
    Params[3].Value := clAPELLIDOS.Value;
    Params[4].Value := clTELEFONOS.Value;
    Params[5].LoadFromStream(st,ftBlob);
    ExecuteMethod
  end;
st.free
end;

Esto funciona perfectos, si bien no es para la misma BD ni con los mismos componentes, la idea sigue vigente.
Gracias de nuevo.
Santiago