tdbgrid como tabla de referencia

[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]

// DBGrid origen
dbgSource->DataSource = dsSource;
dbgSource->Options = TDBGridOptions(dbgSource->Options)<< dgMultiSelect;
dbgSource->Options = TDBGridOptions(dbgSource->Options)<< dgRowSelect;
dbgSource->PopupMenu = PopupMenu1;

la ultima línea

[aguml]

A ver, hay algo que no tengo claro, el filtrado ¿quieres guardarlo? Si es asi lo mejor es que crees una nueva tabla (por ejemplo la puedes llamar "filter") y ahí guardas. Si no quieres guardar ese filtrado ¿por que no usas un TStringGrid para mostrarlos? Este no necesita de una tabla y viene a ser lo mismo.

[ecfisa]

Empezado por jrla

la ultima línea

Te pido mil disculpas, juro que no lo ví , solo borra la línea y el error desaparecerá

Saludos

[jrla]

Código PHP:

http://docwiki.embarcadero.com/Libraries/XE6/en/System.Types.TByteDynArray 


ya borre la línea....... investigue y me sale estoy referente a tbytedynarray que opinas

[ecfisa]

Hola jrla.

No me dice mucho y tampoco pude encontrar la declaración de TBookmark para XE6 o algún ejemplo.

¿ Podrías buscar por las palabras TBookmark y TBookmarkList en la ayuda (help) del propio XE6 a ver que dice ?

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

[ecfisa]

Hola jrla.

Claro, pero al usar un TDBGrid como receptor de los datos, sí o sí tenes que emplear una tabla ya que ese componente funciona en relación con ellas (la representa visualmente) y si usas la misma tabla vas a duplicar información.

Si usas una sola tabla, se me ocurre como mas lógico borrar los registros no seleccionados ...

¿ Es eso lo que buscas hacer? ¿ Dejar en la tabla sólo los registros seleccionados ?

Saludos

[jrla]

aplique tu línea de código y me sale esto c_str isno a member of tbytedynarray y undefined symbol popupmenu1
con la explicación de tu código entendí que mi 2 dbgrid debe estar enlazado a la tabla que quiero almacenar verdad ?... o me equivoco

[ecfisa]

Hola jrla.

Empezado por jrla

aplique tu línea de código y me sale esto c_str isno a member of tbytedynarray

Es por eso que aclare: C++ Builder 6. En esta versión TBookmarkList, está declarado así:

Código PHP:

typedef void *TBookmark; 


Eso cambió a partir de C++ Builder 2009 y aparentemente XE6 declara la propiedad TBookmarkList (Items) de tipo TByteDynArray, de allí que indique que el método c_str() no es miembro de ...
Pero realmente desconozco la definición y uso en XE6, tendría que buscar y leer al respecto.

Empezado por JRLA

y undefined symbol popupmenu1

¿ Y en que parte del código de mi mensaje metí un TPopupMenu llamado popupmenu1 ?

Empezado por jrla

con la explicación de tu código entendí que mi 2 dbgrid debe estar enlazado a la tabla que quiero almacenar verdad ?... o me equivoco

No te equivocas en absoluto, es así. De ese modo se guardarían en la segunda tabla los registros seleccionados.

Saludos