Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-11-2015
Yugo Yugo is offline
Miembro
NULL
 
Registrado: jul 2014
Posts: 25
Poder: 0
Yugo Va por buen camino
Obtener valor de una propiedad de una Tabla en un Form1 desde otro Form2

Buenas, la duda que tengo es la siguiente: Tengo un Form1 donde coloco los componentes TTable (TablaAbierta), TDataSource (dsTablaAbierta), TDBGrid, TButton1 y TButton2.

Trato de abrir una tabla paradox seleccionándola desde un TOpenDialog que aparece tras pulsar el TButton1, para que sea visualizada en el TDBGrid y al pulsar el TButton2 se abra un TForm2 donde hay colocado un TEdit para capturar el nombre de la tabla abierta en el TForm1 mediante... Edit1->Text = Form1->TablaAbierta->TableName;

Pero algo falla y no soy capaz de verlo...


Código:
TOpenDialog *SelecTabla;
  SelecTabla = new TOpenDialog(this);

  String nomTabla;

  //Configuración del objeto TOpenDialog
  SelecTabla->Title = "Seleccionar la Tabla que desea abrir...";
  SelecTabla->Filter = "Tabla de Bases de Datos (*.DB) | *.DB";
  SelecTabla->Options << ofHideReadOnly << ofFileMustExist << ofEnableSizing;
  //Asignamos el directorio inicial por defecto del cuadro de diálogo
  SelecTabla->InitialDir = ExtractFilePath(Application->ExeName);

  if(SelecTabla->Execute())
  {
    nomTabla = ExtractFileName(SelecTabla->FileName); //contiene "nombreTabla.Extension"

    //Indicar la ruta donde reside la tabla que deseamos abrir
    TablaAbierta->DatabaseName = ExtractFilePath(SelecTabla->FileName);

    //Asignamos el nombre de la tabla que deseamos visualizar:
    TablaAbierta->TableName = nomTabla;  //pasar el nombre de la tabla CON [.DB]

    //Activar la tabla para trabajar con ella:
    TablaAbierta->Active = true; //Activar por último la tabla

    //Especificamos el conjunto de datos (TablaAbierta) que servirán de fuente de
    //datos a los objetos DBGrid y DBNavigator para visualizarlos en pantalla:
    dsTablaAbierta->DataSet = TablaAbierta;

    //Configuramos las propiedades del DBGrid y DBNavigator para enlazarlos con
    //Table1 y los hace visibles al usuario.
    DBGrid1->DataSource = dsTablaAbierta;
    DBGrid1->Visible = true;
    DBNavigator1->DataSource = dsTablaAbierta;
    DBNavigator1->Visible = true;


  }
  else //SelecTabla->Execute()==false
  {
    //Mensaje que aparece en caso de pulsar CANCELAR ó la 'X' de CERRAR ventana
    MessageDlg("Operación de apertura de tabla cancelada.",
                 mtWarning, TMsgDlgButtons() << mbOK, 0);
  }
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
abrir y cerrar form2 desde form1 aitorqrv Lazarus, FreePascal, Kylix, etc. 15 20-12-2013 21:11:05
abrir form2 dentro del form1 darkbits Varios 5 10-08-2013 16:51:47
Dejar siempre visible Form2 que se llama desde Form1 yevabas Varios 1 11-05-2013 00:45:40
acceder al form1 desde el form2. petete2008 OOP 2 08-02-2012 20:29:59
form2 cerrar el form1 ingabraham Varios 6 07-01-2009 19:11:13


La franja horaria es GMT +2. Ahora son las 20:12:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi