Foros Club Delphi

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)
-   -   acceder a los campos de una tabla Access (https://www.clubdelphi.com/foros/showthread.php?t=6380)

nesetru 05-01-2004 11:37:51

acceder a los campos de una tabla Access
 
Hola a todos!

mi intención es recorrer una base de datos Access para acceder a sus campos uno por uno....

la tabla tiene esta estructura:

precio (id:autonumérico,nombre:string,precio:integer)

yo necesito por cada tupla acceder al nombre y al precio hasta llegar al final de la tabla....

¿Alguien me puede dar alguna referencia?

Gracias.

marto 05-01-2004 12:44:13

Si consideramos que DataSet es el TDataSet (Query o tabla) en que tines lo datos, para recorrerlo te será suficiente con el siguiente código:

Código:

  DataSet.First;
  while not DataSet.Eof do
  begin
    {Aquí puedes acceder a los valores con

      DataSet.FieldByName('nombre').AsString
      DataSet.FieldByName('precio').AsInteger
   
      Y guardarlos donde quieras o asignarles el valor que quieras}

    DataSet.Next;
    //Sin esta línia sería un bucle infinito!!!!!
  end;


Descendents 05-01-2004 12:50:44

si lo que tienes es que recorrer toda la tabla entera, que por lo que tu dices es lo que entiendo, puedes hacer algo como:

Código:

var
nombre:string;
id:integer;
begin
 with query1 do begin
  close;
  sql.clear;
  sql.add('select * from precio');
  open;
  while not eof do begin
    nombre := query1.fieldbyname('nombre').value;
    id := query1.fieldbyname('id').value;
    next;
  end;
 end;
end;

aqui lo que haces es que nombre e id, tengan el valor de cada linea, pero tu lo salvas o haces lo que quieres con el antes de que pase a la siguiente linea, por que sino el valor que viene pisa al que habia.

Espero te ayude y sea estyo lo que buscas.

Saludos

Descendents 05-01-2004 12:51:35

ups ya veo que me lie a escribi y de mientras ya contestaron

Saludos


La franja horaria es GMT +2. Ahora son las 06:50:48.

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