Conectar a un DataSet de otro form.

[DarkByte]

¡¡Saludos!!:

Estoy haciendo un programilla de bases de datos, en especial para una biblioteca. Tengo un form para "asignar" un libro a una persona, que es cuando lo coge prestado. El caso es que quiero que en ese form se me muestre, en un DBComboBox, todos los libros disponibles (La columna Título de la tabla TblLibros, que tiene como dataset dsLibros).

Bien, cómo no podía poner el Dataset directamente desde el form para coger libros aún añadiendo las uses, he puesto el siguiente código cuando lo llamo

Código Delphi [-]
procedure TfrmUsuarios.sbCogerLibroClick(Sender: TObject);
begin
  If eNombre.Text = '' Then
  begin
    ShowMessage('Debe de seleccionar un miembro al que añadir el libro');
    Abort;
  end
  Else
  begin
    frmCogerLibro := TfrmCogerLibro.Create(Self);
    frmCogerLibro.eLibro.DataSource := frmPrincipal.frmLibros1.dsLibros;
    frmCogerLibro.eLibro.DataField := 'Titulo';
    frmCogerLibro.ShowModal;
    frmCogerLibro.Free;
  end;
end;

Sin embargo, tampoco me funciona. ¿Cómo podría hacer lo que me propongo?.


Gracias, simplemente, por aguantarme

[marcoszorrilla]

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
DbEdit1.DataSource:=Form1.DataSource1;
DbEdit1.DataField:='Addr1';
end;

Mira a ver esta línea me parece que no es correcta:
frmCogerLibro.eLibro.DataSource := frmPrincipal.frmLibros1.dsLibros;

Si el Dataset esta en frmPrincipal, sobraría la alusión a libros.

Un Saludo.

[DarkByte]

Lo siento marcos, pero no comprendo lo que me quieres decir, y eso que lo has dicho lo más simple del mundo entero.

Aclaro más la situación, por si las moscas: El botón para llamar al nuevo form (para "asignar" un libro) está en un frame incrustado en el form principal.

[roman]

Empezado por DarkByte

Lo siento marcos, pero no comprendo lo que me quieres decir, y eso que lo has dicho lo más simple del mundo entero.

O sea, la pregunta es, ¿siquiera te compila el código?

Es que guiándonos por la nomeclatura de tus objetos, la línea a la que Marcos hace referencia:

Código Delphi [-]
frmCogerLibro.eLibro.DataSource := frmPrincipal.frmLibros1.dsLibros;

no tiene sentido a menos que el formulario frmLibros esté contenido en el formulario frmPrincipal, cosa posible pero poco probable.

// Saludos

[DarkByte]

Es que es así frmLibros está dentro de frmPrincipal, para llamarlo desde el form principal, pues si no me abofetea con un:

[Error] uUsuarios.pas(90): Undeclared identifier: 'frmLibros'

[__cadetill]

Empezado por DarkByte

Es que es así frmLibros está dentro de frmPrincipal, para llamarlo desde el form principal....

Cuando dices "dentro" te refieres a que el Parent es frmPrincipal??

Porque, a ver, se puede hacer, pero.......... como dice Román no es muy normal hacerlo (para eso están los frames y otros contenedores)