Ver Mensaje Individual
  #23  
Antiguo 21-12-2007
Avatar de thelibmx
thelibmx thelibmx is offline
Miembro
 
Registrado: mar 2007
Posts: 515
Reputación: 18
thelibmx Va por buen camino
Question

ya agregue el tupdatesql, modifique un poco el codigo puse entonces mi codigo es asi
Código:
 
procedure TFrmenuu.BitBtn1Click(Sender: TObject);
begin
if OpenDialog.Execute then
begin
Olecontainer1.CreateObjectFromFile(PChar(OpenDialog.FileName),false);
vertbar.max:= Olecontainer1.Height;
horzbar.max:= Olecontainer1.Height;
Panelcontenedor.Visible:=true;
showmessage(OpenDialog.FileName);
Querygestion.Active:=true;
Querygestion.Insert;
QuerygestionLlave.Value :=strtoint(Edit1.Text);
QuerygestionNOMBRE.Value :=tdEditAsunto.Text;
QuerygestionARCHIVOBLOB.loadFromFile(OpenDialog.FileName);
Querygestion.Post;
showmessage('agregado');
//fin del boton de carga de documento
end;
end;
sorry por usar esas etiquetas pero no habia etiquetas de delphi
ese codigo genera este error:
general sql error. Error while executing the query; ERROR: no existe el tipo <<lo>>.
si alguien tiene una pista se los agradecere
__________________
En movimiento...
Responder Con Cita