tdbgrid como tabla de referencia

[Casimiro Noteví]

Te veo bastante perdido, lo que necesitas es el mejor libro que puedes encontrar sobre delphi y bases de datos, es este y es gratis.

[jrla]

hola gracias por tu respuesta no estoy tan perdido como dije anterior mente tengo un dbgrid1 con datos filtrados atreves de un query que me muestra todo los trabajadores que están en un departamento... ahora que cuando el usuario seleccione en el dbrid1 los que se van de vacaciones y al presionar el button me pase dicha selección a dbgrid2 ............. en el dbgrid1 tengo las opciones activas row select y multi select

Código Delphi [-]
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.CreateDataSet;
  ClientDataSet1.Open;
end;

procedure TForm1.btnPasarRegistroClick(Sender: TObject);
var
  i: Integer;
begin
  ClientDataSet1.Append;
  with DBGrid1.DataSource.DataSet do         // de aquí es que me pierdo por el do sin el while 
   for i:= 0 to FieldCount-1 do
     ClientDataSet1.Fields[i].Value := Fields[i].Value; // asta aquí
  ClientDataSet1.Post;
end;

[ecfisa]

Hola jrla.


Sería de mucha ayuda que nos dijeras con que gestor de base de datos estas trabajando (Firebird, MySQL, Paradox, Access, MS SQLServer,) y con que componentes te conectas a ella ? (BDE, ADO, IBX, DBExpres, ...)

Saludos

[aguml]

hasta donde yo se, el with...do es algo especifico de delphi y simplemente es para evitar tener que hacer referencia al objeto que indique el with..do. En tu caso elimina la linea del with...do y en el for cambias la linea que se encuentra en su interior por esta: ClientDataSet1.Fields[i].Value*:=*DBGrid1.DataSource.DataSet.Fields[i].Value; En este caso no le veo mucho sentido ya que es una sola linea pero imagina que tuvieses que usar muchas referencias al mismo objeto, ahi si es mas util aunque se puede prescindir de ello. En builder podrias usar un puntero a objeto para acortar.


Quedaria asi:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ClientDataSet1->CreateDataSet;
  ClientDataSet1->Open;
}

void __fastcall TForm1::btnPasarRegistroClick(TObject *Sender)
{
  ClientDataSet1->Append;
  
  for(int i=0; i <= FieldCount-1; i++)
     ClientDataSet1->Fields[i]->Value = DBGrid1->DataSource->DataSet->Fields[i]->Value;
  ClientDataSet1->Post;
} 


[jrla]

Empezado por aguml

hasta donde yo se, el with...do es algo especifico de delphi y simplemente es para evitar tener que hacer referencia al objeto que indique el with..do. En tu caso elimina la linea del with...do y en el for cambias la linea que se encuentra en su interior por esta: ClientDataSet1.Fields[i].Value*:=*DBGrid1.DataSource.DataSet.Fields[i].Value; En este caso no le veo mucho sentido ya que es una sola linea pero imagina que tuvieses que usar muchas referencias al mismo objeto, ahi si es mas util aunque se puede prescindir de ello. En builder podrias usar un puntero a objeto para acortar.

[/php]

muchas gracias por el aclara miento......... en las lineas del dataset la avia modificado solo me falta era el puntero y la del for me confundí al indicarle el field del dbgrd a aumentar

[aguml]

uffff que dificil es entenderte . ¿el español es tu lengua nativa? porque parece que uses el google translator (aunque no creo que ni él lo haga tan mal ).
A ver si puedes aclararme un poquito mejor lo que me comentas porque me pierdo.

[Casimiro Noteví]

Empezado por jrla

hola gracias por tu respuesta no estoy tan perdido

Bastante perdido, pero no debes molestarte por eso, todos estamos perdidos en algún momento

[jrla]

Empezado por Casimiro Notevi

Bastante perdido, pero no debes molestarte por eso, todos estamos perdidos en algún momento

hola casimiro no me molesto :-S simplemente me siento frustrado al realizar algo que quiero y me complique tanto
la otra pregunta es mi gestor de base de datos es interbase y me conecto con IBTransaction1

[Casimiro Noteví]

Empezado por jrla

hola casimiro no me molesto :-S simplemente me siento frustrado al realizar algo que quiero y me complique tanto
la otra pregunta es mi gestor de base de datos es interbase y me conecto con IBTransaction1

Por eso te he enlazado el libro La cara oculta de Delphi, todas esas dudas desaparecerán si lo lees.

IBTransaction no es para conectar con una base de datos.

[jrla]

Empezado por Casimiro Notevi

IBTransaction no es para conectar con una base de datos.

yo utilizo interbase el que trae embarcadero xe6 creo que se conecta con ibconasole y en mi form tengo par enlazar a a mi base de datos un tibdata base

[ecfisa]

Hola jrla.

Para el ejemplo crea dos tablas iguales, menos en el nombre claro

Código SQL [-]
SET TERM ^;

CREATE TABLE TEST (
    ID      INTEGER,
    CADENA  VARCHAR(50)
)^

CREATE TABLE TEST2 (
    ID      INTEGER,
    CADENA  VARCHAR(50)
)^

SET TERM ;^

Y cargale algunos datos a la primer tabla (orígen).

En un form pone,

1 (un ) TIBDatabase    (IBDatabase1)
1 (dos) TIBTransaction (IBTransaction1) 
2 (dos) TIBDataSet     (ibdsSource y ibdsTarget)
2 (dos) TDataSource    (dsSource, dsTarget)
2 (dos) TDBGrid.       (dbgSource, dbgTarget)
1 (un ) TButton        (btnPassData)

Ejemplo:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  /* tabla origen */
  ibdsSource->Close();
  ibdsSource->Database = IBDatabase1;
  ibdsSource->SelectSQL->Text = "SELECT * FROM TEST";
  ibdsSource->Open();
  // DataSource origen
  dsSource->DataSet = ibdsSource;
  // DBGrid origen
  dbgSource->DataSource = dsSource;
  dbgSource->Options = TDBGridOptions(dbgSource->Options)<< dgMultiSelect;
  dbgSource->Options = TDBGridOptions(dbgSource->Options)<< dgRowSelect;
  dbgSource->PopupMenu = PopupMenu1;

  /* tabla destino */
  ibdsTarget->Close();
  ibdsTarget->Database = IBDatabase1;
  ibdsTarget->SelectSQL->Text = "SELECT * FROM TEST2";
  ibdsTarget->Open();
  // DataSource destino
  dsTarget->DataSet = ibdsTarget;
  // DBGrid destino
  dbgTarget->DataSource = dsTarget;
}

void __fastcall TForm1::btnPassDataClick(TObject *Sender)
{
  if (dbgSource->SelectedRows->Count > 0) {
    for(int i = 0; i < dbgSource->SelectedRows->Count; i++) {
      ibdsSource->GotoBookmark((void*)dbgSource->SelectedRows->Items[i].c_str());
      ibdsTarget->Insert();
      for(int j = 0; j < ibdsSource->Fields->Count; j++)
        ibdsTarget->Fields->Fields[j]->Value = ibdsSource->Fields->Fields[j]->Value;
      ibdsTarget->Post();
    }
  }
} 


El código pasa los registros que hayas seleccionado en dbgSource (mediante Ctrl+Click) a dbgTarget (en realidad de ibdsSource a ibdsTarget), cuando se presiona el botón btnPassData.

Está realizado y probado en C++ Builder 6 y Firebird 2.5.

Saludos

[jrla]

hola a todos att el perdido.......... lo que tengo es lo siguiente tengo un form que se llama organizar curso donde tengo un combobox con todos los departamentos y un button enlazado a un query que me hace una consulta a la tabla trabajadores y me filtra los mismo de acuerdo a la selección del combobox y me lo mostrara en un stringrid ecfisa me ayudo con esa parte y buscando en los hilos vi que era mejor trabajar con un dbgrid entonces agregue un datasourse1 y lo enlace a mi query y mi dbgrid1 lo enlace a datasourse1 y este me muestra mi consulta

aquí viene el problema mi tutor dijo pero si yo quiero seleccionar algunos trabajadores de departamento y no a todos y crear otra lista .... y entonces agregue un 2 dbgri2 y un clienta dataset1 .... a dbgrid1 le active las opciones multiselec y rowslect lo que quiero hacer es que cuando marque los trabajadores del dbgrid 1 y precione un button los pase al dbgrid 2 y esa es la lista de trabajadores que voy a almacenar en mi base de datos esa es mi historia