Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-07-2005
Gabriel2 Gabriel2 is offline
Miembro
 
Registrado: sep 2004
Posts: 108
Poder: 21
Gabriel2 Va por buen camino
Crear o modificar Tablas Paradox desde Delphi

Mi programa constantemente se va actualizando, por diferentes motivos, ya sea errores, o un módulo nuevo que se termina, etc... De esta manera debo modificar una tabla (Paradox) o crear una nueva, para lo cual utilizo el Database Desktop y debo ir personalmente a visitar a los clientes, lo que incurre en una perdida de tiempo. Desde Delphi es posible crear campos nuevos en una tabla, quitar, camiar de lugar o inclusive crear una tabla nueva. Si se puede, podria crear un programita que al ejecutarse lo hiciera solo y no seria necesaria que viajara a visitar a cada uno de los clientes. Si saben y me muestran un ejemplo se los agradecería mucho.

Saludos.Gracias...
Responder Con Cita
  #2  
Antiguo 14-07-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Pues sí es posible, por ejemplo mediante instrucciones SQL, mírate en concreto Alter Table, yo utilizo un pequeño programa que el cliente ejecuta una sola vez y éste crea los nuevos campos necesarios o amplia el ancho de los existentes......

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 14-07-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
La otra opción es utilizar el componente de TTable.
* Método CreateTable
* Método AddIndex

Para modificar, también desde TTable puedes acceder a las definiciones de los campos; Mírate la clase FieldDefs
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 15-07-2005
Gabriel2 Gabriel2 is offline
Miembro
 
Registrado: sep 2004
Posts: 108
Poder: 21
Gabriel2 Va por buen camino
Neftali: Encontre un ejemplo de como crear tablas por medio del componente Table, me gustaria que me dijeras como puedo modificar la estructura de una tabla existente, por ejemplo, el tamaño de un campo, agregar un campo nuevo, o el nombre de uno existente.


Saludos.Gracias.
Responder Con Cita
  #5  
Antiguo 15-07-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Algo así debería funcionar para cambiar tamaños y demás propiedades:

Código Delphi [-]
    // Nuevo tamaño
    tbl1.FieldDefs.Find('Nombre').Size := 15;
    // Grabar cambios
    tbl1.FieldDefs.Update;

Para crear una taba y campos basta con que en la ayuda de delphi busques: TFieldDefs.AddFieldDef; Hay un ejemplo completo.

En éste capítulo también tienes información completa y ejemplos:
http://www.cesis.lv/learn/delphi/ch18.htm

Y también puedes revisar éstos dos hilos:
http://www.clubdelphi.com/foros/showthread.php?t=10123
http://www.clubdelphi.com/foros/showthread.php?t=18961
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 16-07-2005
Gabriel2 Gabriel2 is offline
Miembro
 
Registrado: sep 2004
Posts: 108
Poder: 21
Gabriel2 Va por buen camino
Unhappy

Bien, crear tablas he podido, pero no he podido modificar las que he creado. He usado el ultimo ejemplo y no me modifica los campos. Si no fuera mucho pedir podrias enviarme el código por correo a proyecto_palm@yahoo.com.ar, eternamente agradecido. Saludos...
Responder Con Cita
  #7  
Antiguo 18-07-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
La otra opción es utilizar la API.
Puedes utilizar un código como éste:

Código Delphi [-]
 var
   newStruct: ChangeRec;
 begin
   ...
 
   // Lo que no quieras modificar lo dejas a 0 o vacío
   newStruct.szName := '';
   newStruct.iType := 0;
   newStruct.iSubType := 0;
   newStruct.iLength := 15;  // nuevo tamaño a  15
   newStruct.iPrecision := 0;
 
   // Debe estar con la propiedad de Exclusiva a True.
   Table1.Open;
   ChangeField(Table1, Table1Nombre, newStruct);

La función ChangeField y la definición de la estructura las puedes encontrar aquí:
http://info.borland.com/devsupport/b...structure.html

Revisa el ejemplo 3; y recuerda añadir la unit BDE al uses.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 01:46:04.


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