Foros Club Delphi - Contar Columnas de una Tabla.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Contar Columnas de una Tabla. (https://www.clubdelphi.com/foros/showthread.php?t=14550)

nicolasdom

23-09-2004 18:23:01

Contar Columnas de una Tabla.

Necesito contar las columnas de una tabla para de esta manera cargar e inicializar un arreglo. Pero no se como se hace...

Código:

  

 

  IBQuery1.Close;

  IBQuery1.SQL.Clear;

  IBQuery1.SQL.Add('SELECT * FROM PERMISOS');

  IBQuery1.SQL.Add('WHERE nombre_usuario = :nombre_usuario;');

 

  "cantidad de columnas" := Select? Count? What????

 

  IBQuery1.Active:=True;

  IBQuery1.Open; 

  While "cantidad de columnas" do

        arreglo[i]:=IBQuery1.Fields[i].AsString;

 

  IBQuery1.Close;

Espero soluciones... si es que las hay... :confused:

basti

23-09-2004 18:48:15

Hola

columnas := IBQuery1.Fields.Count;

Pero tienes que ponerlo después de abrir la tabla.

Un saludo

ramiretor

23-09-2004 19:50:26

Hola:
Para que el while funcione debes tomar en cuenta que el arreglo donde se guardan las columnas, por ejemplo, supongamos que el componente se llama query queda:

[delphi]
with query do
begin
open;
first;
for i:= 0 to FieldCount - 1 do
begin
.....
end;

end;

nicolasdom

23-09-2004 21:03:28

Muchas Gracias a los dos. Lo pude sacar adelante sin dificultad gracias a que las respuestas fueron puntuales. Uso lo que dijo basti ya que mi select devolvia un solo resultado.

La franja horaria es GMT +2. Ahora son las 08:51:34.