Ver Mensaje Individual
  #4  
Antiguo 10-05-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
Ahora vamos con otro ejemplo.
Usando UN SOLO ADOTABLE para varias tablas.
Ve a la paleta Standard y coloca un Combobox en el form.
En la propiedad TEXT aparece el nombre del combobox, borralo, dejalo en blanco.
Ve a la propiedad String del mismo combobox y presiona el botoncito (te saldra una pantalla).
Escribe en esa pantalla Los nombres de tus tablas (de arriba a abajo):
Clientes
tdoc
cabañas
etc.
etc.
Ahora, ve al evento OnChange del mismo combobox y dale doble click.
En ese evento escribe esto (entre el begin y el end:
Código Delphi [-]
  AdoTable1.close;
  Adotable1.TableName:= Combobox1.Text;
  AdoTable1.Open;
Listo.
Lo que hace es simplemente cambiarle al adotable el nombre de la tabla y activarla.
Saludos
__________________
Siempre Novato
Responder Con Cita