problemas con cargar los registro de una tabla en un TDBgrid

[edufg]

Hola, lo primero agradecer a la gente que hace este foro y los que colaboran en el.
Soy novato en programación y sobre todo en DELPHI, estoy creando un programa asociado a un bases de datos con tres tablas que van unidas entre si por un numero de registro, al inicial el programa aparece una pantalla con un TDBgrid (y varios menus he iconos) en el que aparecen todos los registros de una tabla en concreto, el problema es que no se me cargan los registros.
He creado una ventana con un módulo de bases de datos TDataModule y he creado la tres tablas con correspondientes tdatasource, asocio cada tabla con su tdatasource y con la TDBgrid de la pantalla inicial pero los datos guardados en la tabla no aparecen al ejecutar el programa.
He asociado todas la columnas del tadatasource al TDBgrid y nada.
Necesito vuestro consejo gracias de antemano

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Con este libro no tendrás ninguna duda en delphi con bases de datos, además es gratis.

[Casimiro Notevi]

Empezado por Casimiro Notevi

Con este libro no tendrás ninguna duda en delphi con bases de datos, además es gratis.

Y no somos adivinos, pon el código

[edufg]

Perdonar por lo del código:

Código Delphi [-]
rogram Project1_diligencias;

uses
  Vcl.Forms,
  Windows,
  Dialogs,
  Unit1_diligencias in 'Unit1_diligencias.pas' {Ventana},
  Unit_diligencias in 'Unit_diligencias.pas' {Ventana_diligencias},
  DB in 'DB.pas' {B: TDataModule},
  Unit_filiaciones in 'Unit_filiaciones.pas' {Ventana_Filiaciones},
  Unit_datos in 'Unit_datos.pas' {Ventana_Datos},
  Unit_ayuda in 'Unit_ayuda.pas' {ventana_ayuda};

{$R *.res}

begin
  Application.Title := 'Diligencias 1.0';
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TVentana, Ventana);
  Application.CreateForm(TB, B); {aqui me da el problema del udeclared indentifier}
  Application.Run;
end.

[edufg]

el codigo del data module:

Código Delphi [-]
  private
    { Private declarations }
    function abrir(var tabla:TTable):boolean;
  public
    { Public declarations }
  end;

var
  B: TB;

implementation
uses Unit1_diligencias;
{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TB.DataModuleCreate(Sender: TObject);
begin

     Diligen.DataBaseName:= Ventana.path_aplicacion;
     Filiaciones.DataBaseName:=Diligen.DataBaseName;
     solicitarDatos.DataBaseName:=Diligen.DataBaseName;
     if (not abrir(Diligen)) or (not abrir(Filiaciones)) or (not abrir(solicitarDatos))  then Halt;


end;

function TB.abrir(var tabla:TTable):boolean;
begin
     try     // Se intenta activar la tabla.
        Diligen.active:=True;
     except  {Si no se ha podido, no se produce ningún error, sino
              que el flujo del programa salta a esta cláusula y
              se muestra un mensaje.}
        Messagedlg('No se puede abrir la base de datos: '
                                +tabla.tablename, mtError, [mbOK], 0);
     end;
    // abrir devuelve True si la tabla se ha podido abrir y False si no.
     abrir := (Diligen.active);

end;
end.

[ozsWizzard]

Creo que tienes un lío que pa qué.

Aún no nos has dicho con que componentes quieres conectar a base de datos (y si lo has dicho, perdona, pero no lo he visto).

Viendo el lío que tienes y que encima los componentes, por lo que parece, intentas crearlos en tiempo de ejecución (porque están en la unidad "Unit1_diligencias", no?) aunque no veo donde se crean porque cuando va al create del DataModule no se ha ejecutado nada que tenga que ver con eso (que supongo que estará en el create del formulario TVentana).

Pero lo dicho, no sé ni como quieres hacer las cosas.

[Casimiro Notevi]

Bueno, una vez más te recomiendo este libro. Si quieres aprender todo sobre delphi y bases de datos, ese es tu libro.

Empezado por Casimiro Notevi

Con este libro no tendrás ninguna duda en delphi con bases de datos, además es gratis.

[edufg]

Gracias, en eso estoy

[edufg]

Hola he encontrado el problema y es que el data module se cargaba al iniciar el programa, y al llamara a las datasource no los detectaba.
Ahora me ha surgido un nuevo problema en el TOOL PALETTE del date module no aparecen las BDE.

[edufg]

predonar pero quise decir que el data module NO se cargaba al iniciar el programa.

[[oscarac]]

Empezado por edufg

Hola, lo primero agradecer a la gente que hace este foro y los que colaboran en el.
Soy novato en programación y sobre todo en DELPHI, estoy creando un programa asociado a un bases de datos con tres tablas que van unidas entre si por un numero de registro, al inicial el programa aparece una pantalla con un TDBgrid (y varios menus he iconos) en el que aparecen todos los registros de una tabla en concreto, el problema es que no se me cargan los registros.
He creado una ventana con un módulo de bases de datos TDataModule y he creado la tres tablas con correspondientes tdatasource, asocio cada tabla con su tdatasource y con la TDBgrid de la pantalla inicial pero los datos guardados en la tabla no aparecen al ejecutar el programa.
He asociado todas la columnas del tadatasource al TDBgrid y nada.
Necesito vuestro consejo gracias de antemano

solo por curiosidad, las tablas las abres?
en tiempo de diseño? en ejecucion?
coloca el codigo

[edufg]

Creo que ahí esta el problema ya que las tablas las guardo en la carpeta del proyecto, desconozco como cargarlas.
las tengo que cargar desde el programa principal o desde el modulo de base de datos.
He probado creando el alias en el proyecto y no se cargan las tablas.

[ozsWizzard]

¿Qué base de datos usas, paradox?

¿Cómo esperas ver lo datos si no has configurado la conexión?

¿Qué tipo de conexión con base de datos usas?

[edufg]

Hola ozsWizzard, gracias por tu interés.

La base de datos es dbase IV.
la conexión es dentro de object inspector de la tabla en elapartado databasename tiene el nombre del Alias, en tablename el nombre de las tabla creada y en tablatype la opcion ttbase.
la tabla la he creado con dbd32.exe

[[oscarac]]

Empezado por edufg

Hola ozsWizzard, gracias por tu interés.

La base de datos es dbase IV.
la conexión es dentro de object inspector de la tabla en elapartado databasename tiene el nombre del Alias, en tablename el nombre de las tabla creada y en tablatype la opcion ttbase.
la tabla la he creado con dbd32.exe

coloca codigo de como lo estas haciendo