Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Agregar un campo nuevo (https://www.clubdelphi.com/foros/showthread.php?t=55157)

sidneyb 09-04-2008 17:45:11

Agregar un campo nuevo
 
Muy buen dia Foro, espero esten muy bien. Tengo una pequeña duda en la que agradeceria si me pueden ayudar. Tengo una tabla ('TipoGastos') en la que tengo dos campos X, actualmente estoy necesitando agregar un par de nuevos campos, uno de ellos ('Tercero') de tipo String (10), el segundo ('Activo') de tipo Boolean. De que manera podria agregarlo por medio de una consulta? o tendria que hacerlo de alguna otra manera? trabajo con ADO en Access. De ser posible, me gustaria tambien que el campo Boolean, tenga por defecto un valor True. Gracias de antemano, Que esten muy bien.

Neftali [Germán.Estévez] 09-04-2008 18:16:05

Cita:

Empezado por sidneyb (Mensaje 278591)
...uno de ellos ('Tercero') de tipo String (10), el segundo ('Activo') de tipo Boolean. De que manera podria agregarlo por medio de una consulta?

Utiliza la clausula ALTER TABLE de SQL.
Algo así:

Código SQL [-]
Alter Table TipoGastos Add Activo YesNo
Alter Table TipoGastos Add Tercero Text(10)

sidneyb 09-04-2008 18:36:12

gracias
 
gracias Neftali, quisiera aprovehar para hacerte otra pregunta si no es mucha molestia, como podria hacer para verificar si existe ya ese campo antes de crear ese campo para evitar algun posible error?, gracias por tu atencion

juanelo 09-04-2008 18:59:49

Cita:

Empezado por sidneyb (Mensaje 278612)
gracias Neftali, quisiera aprovehar para hacerte otra pregunta si no es mucha molestia, como podria hacer para verificar si existe ya ese campo antes de crear ese campo para evitar algun posible error?, gracias por tu atencion

Que tal, no soy Neftali pero una solucion es que pongas tu codigo entre un try ... catch ya que en caso de que el campo exista, te enviará una exception, la cachas y continuas el proceso.
Saludos.

sidneyb 09-04-2008 19:12:18

Muchas gracias juanelo, lo logre hacer por otra manera tambien, creoque lo vi mas conveniente para lo que quiero:

ADOConnection1.GetFieldNames('MiTabla', listbox1.Items)
if ListBox1.Items.IndexOf('MiCampo') <> -1 then

Gracias por su atencion, buenas tardes

Neftali [Germán.Estévez] 10-04-2008 10:16:21

Una solucion es que pongas tu codigo entre un try ... catch ya que en caso de que el campo exista, te enviará una exception, la cachas y continuas el proceso.

:D:D:D

Como bien ha dicho Juanelo, puedes intentarlo y capturar el error; También puedes utilizar el método FindField de TADOTable o el que tú has comentado de TADOConnection.

Un saludo


La franja horaria es GMT +2. Ahora son las 10:20:55.

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