Hola amigos foreros, mi pregunta es porque quiesiera saber cómo le hago para almacenar datos en un campo de tipo blob sin tener que utilizar esta instrucción:
Código Delphi
[-]with fDatos do
begin
qContratos.Open;
qContratos.Append;
qContratosCONNUMERO.AsString:= connumero.Text;
try
qContratosCONSIGUE.AsInteger := consigue.ItemIndex;
qContratosCONEPSCODIGO.AsString := conepscodigo.Text;
qContratosCONAFILIADOS.AsString := conafiliados.Text;
qContratosCONUPC.AsString := conupc.Text;
qContratosCONFORMAPAGO.AsString := conformapago.Text;
qContratosCONINICIO.AsDateTime := coninicio.Date;
qContratosCONFIN.AsDateTime := confin.Date;
qContratosCONOBJETO.AsString:= conobjeto.Lines.Text;
TBlobField(qContratosCONARCHIVO).LoadFromFile(conarchivo.FileName);
qContratosCONEXTENSION.AsString:= ExtractFileExt(conarchivo.FileName);
qContratos.Post;
except
MessageDlg('Informex Archivador','Por favor cambie el nombre del '
+'archivo quite las TILDES y las EÑES.', mtError, [mbOK], 0);
Exit;
end;
end;
fDatos.Confirmar()
sino una del tipo
Código Delphi
[-]fDatos.EjecutarSQL('update or insert into medtable values('''+medusuario.Text
+''','''+medclave.Text+''','''+mednombre.Text+''','''+medrm.Text+''','''
+meddireccion.Text+''','''+medtelefonos.Text+''','''+medcedula.Text
+''','''+medprofesion.Text+''') matching(medusuario)')
Estoy utilizando Firebird 2.1
de antemano mil gracias por vuestro tiempo
Gustavo Cruz