SoloCodigo

Pues has un ciclo hasta que tu tabla sea EOF  

HOla foristas:

Ahora necesito de vuestra ayuda... Como hago para que los datos que tengo en una grilla los pueda pasar a un ahoja de calculo en excel???

Gracias por su pronta respuets adado que es de suprema importancia hacerlo      

si lo quehace es borralos cuando los ves desde delphi pero no los borra en la base de datos lo que tienes que hacer es un commit, que componentes usas (IBDataset, o que???)

!!Hola Mundo¡¡  

Bueno por lo que entiendo el problema radica en que no puedes guardar lo que tienes en el dblook

por lo que veo no hay mayor complicacion en tu codigo pero lo que yo hago parea guardar es IBTable.applyupdates y IBTransaction.commit.

Me imagino que los dblook guardan en la misma tabla entonces en Datasource va el dataset o el table relacionado a esa tabla y en datafield el dato que va a guardar lo que tenga el dblookup.

espero te sirva de algo  

No olvides escribirnos si pasa algo, Besos chupos y abrazos

Hola redchacos pues no se de que hablas nunca he usado eso ???, asi que para bien de los demas seria bueno que nos mostraras la respuesta que encontraste a tu misma pregunta porfavor  

Pues hombre aqui estamos enko, yo y todos los foristas para ayudarnos todos, ademas aca entre nos llevo solo como 2 meses programando en delphi con decirte que nunca habia programado nada orientado a objetos y menos en bases de datos.

Bueno a lo que vamos, te comente que uso ACL entonces en mi project uso lo siguiente:

begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  DataModule2.IBDatabase1.Params.Values['USER_NAME'] := 'sysdba';
  DataModule2.IBDatabase1.Params.Values['PASSWORD']  := 'masterkey';
  DataModule2.IBDatabase1.open;
  DataModule2.IBTransaction1.Active := True;
  DataModule2.IBDataSet1.Active := True;
  Application.CreateForm(TForm3, Form3);
  if form3.showmodal = mrok then
  begin
    form3.Free;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

si te das cuenta siempre me conectoa la base de datos y despues controlo si el user y password para dejarlos entrar. (Ingenioso, jejeje) y asi me evito cualquier problema con la conexion a la base.

y esto es lo que uso primero antes que nada, te explico lo que hace es que valida el usuario y la contraseña del cliente si esta bien devuelve un mrOK que si te fijas bien lo uso en el dpr de arriba. Este codigo es facil hechate una miradita bien a fondo, no voy a estar conectado el fin de semana (me voy de camping) pero el lunes ya estoy aqui.

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
   IBQuery1.SQL.Clear;
   IBQuery1.Close;
   IBQuery1.Sql.Text := 'select * from usuario where user_name =' + Quotedstr (Edit1.text) + 'and user_pass =' + Quotedstr (Edit2.text);
   IBQuery1.Open;
   IBQuery1.Active:=True;
   if IBQuery1.IsEmpty then
     raise Exception.Create('Usuario o contraseña inválido')
  else begin
     user := edit1.Text;
     MessageDlg ('SU USER O PASSWORD es correcto', mtWarning,[mbyes],0);
     ModalResult := mrOk;
  end;
end;

Mi form1 es un menu que es lo que primero disparo cuando se verifica la veracidad de datos.

Espero te ayude es muy bueno para lo que yo lo uso y me imagino que es muy parecido para con firebird  

Hola muchachos:

1. Nos escriben muy poco al foro hay que hacer algo  
2. este codigo es para crear checkbos dentro de un dbgrid, es muy util por que no esta señido a campo boolean si no para campos integer y varchar, lo unico que hay que hacer de mas es que la grilla no debe tener la opcion dgalwaysdhoweditor en true:

Este codigo es para pintar el check dentro del dbgrid

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Check: Integer;
begin
{ Compruebo antes si la tabla está vacía. }
 if not IBDataset3.IsEmpty then
 begin
{ Campo 1. }
  if CompareText(Column.FieldName, 'nomesp_comp') = 0 then
  begin
    Check := 0;
  if IBDataset3['nomesp_comp'] = '1' then
   Check := DFCS_CHECKED;
   dbGrid1.Canvas.FillRect(Rect);
   DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
   DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

{ Campo 2. }
 if CompareText(Column.FieldName, 'item_subcomp') = 0 then
 begin
 Check := 0;
  if IBDataset3['item_subcomp'] = '1' then
   Check := DFCS_CHECKED;
   dbGrid1.Canvas.FillRect(Rect);
   DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
   DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

{ Campo 3. }
 if CompareText(Column.FieldName, 'flag_subcomp') = 0 then
  begin
  Check := 0;
   if IBDataset3['flag_subcomp'] = '1' then
      Check := DFCS_CHECKED;
      dbGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
     DFC_BUTTON, DFCS_BUTTONCHECK or Check);
   end
 else
   dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 end;
end;

Este codigo es para cambiar el checkbox de checked a unchecked:  

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if Column.FieldName = 'FLAG_SUBCOMP' then
   begin
     IBDataset3.Edit;
     if IBDataset3.FindField('FLAG_SUBCOMP').AsInteger = 1 then
       IBDataset3.FindField('FLAG_SUBCOMP').AsInteger := 0
     else
       IBDataset3.FindField('FLAG_SUBCOMP').AsInteger := 1;
       IBDataset3.Post;
       Dbgrid1.Repaint;
     end;
end;

Espero les sea util   , y recuerden escrbir a este foro cada vez que tengan una duda   , asi las solucionamos todos  

Bueno para los que se pregunten como se hace, lo resolvi con un simple trigger  

Pero si te muestra bien la lista de los 3 dblook es por que lo que esta mal es datasource y el datafield correspondiente a la tabla donde se guardan los datos del dblook, por que reitero si te lo muestra bien es por que la relacion master/detail de tus dblook.

Cuentanos como estan relacionados los dblook tanto en el listsource como para el datasource y el dataset (o el componente que uses, asumiendo que usas los ibx) donde guardas los datos de los dblook

PDT: disculpa la demora no hay moderador aqui ¡¡¡¡ sigue escribiendo para que hagamos de esto un buen foro

para empezar con delphi orientado a abases de datos este manual es buenisimo aprovechalooooo te lo recomiendo por que yo lo probe

http://www.firebird.com.mx/modules/section...article&artid=7

PDT: disculpa la demora, parece que aqui no hay un moderador    y estoy intentando responder dudas que depronto reconozco alguito  

ah por cierto en el database el loginprompt esta en false y connected tambien para que no te pregunte el login y no tengas que colocar sysdba masterkey por que como se los pasas por parametros despues te produce un error  

Hola foro, de los millones de problemas que tengo en mi base ahora me surge uno que me impide trabajar...      Resulta que tengo una tabla que se llama producto y otra que es subproducto el producto maneja codigos de identificacion como 100, 200, 300 pero el subproducto se identifica con el codigo del producto y se le agregaun indicador por ejemplo

CODIGO      ITEM    NOMBRE

100               1      TELEFONO SAMSUNG

100               2      TELEFONO KYOCERA

100               3      TELEFONO SONY



el campo item lo intente generar con un tigger pero ocurre un problema si yo he creado los 3 registros mostrados en el ejemplo anterior y deseo crear un codigo nuevo por decir 200 miren lo que pasa:



CODIGO      ITEM    NOMBRE

200               4      TELEVISOR SAMSUNG

200               5      TELEVISOR KYOCERA



Como podria hacer para que item sea generado automaticamente pero que tome en cuenta el codigo y cuando sea un nuevo codigo empiece desde uno y cuando no sea nuevo entonces tome el ultimo valor y se incremente



UFFF le agradeceria a cualquiera que me pudiera ofrecer una solucion