Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 08-09-2007
Dado de baja Dado de baja is offline
Miembro
 
Registrado: ago 2007
Posts: 140
Poder: 19
Dado de baja Va por buen camino
si, es unidireccional, viene de un ADOsql

Lo he resuelto con un StringGrid.

Voy a poner el código por si a alguien le sirve:
Código:
var 
    DS: TDataSet;
    x,r: integer;
    s: string;
begin

 s:='select * from planeta';
 if fsol.Text<>'0' then
  s:=s+' WHERE idsol='+fsol.Text;

 dm.GetSql(s,ds);   // Lanzamos la consulta.

 //Fijamos el número de columnas y filas.
 StringGrid1.ColCount:=ds.FieldCount;
 StringGrid1.RowCount:=ds.RecordCount+1;
 // ahora pongo los nombres de los campos como cabecera de la regilla.
 for x:=0 to ds.FieldCount-1 do
  StringGrid1.Cells[x,0]:=ds.Fields[x].FieldName;
 r:=1;
 ds.First;
 while not ds.Eof do // ahora le toca el turno a los datos.
 begin
     for x:=0 to ds.FieldCount-1 do
       StringGrid1.Cells[x,r]:=ds.Fields[x].AsString;
    r:=r+1;
    ds.Next;
 end;
end;
Funciona muy bien, y rápido.
__________________
Saludos Cordiales.
------------------
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Copiar el contenido de un DataSet a otro DataSet Javi2 Varios 88 22-11-2025 22:17:42
Grid a DataSet robinsongm Varios 2 28-07-2006 14:53:00
readonly dataset n0n3 SQL 13 27-04-2005 01:24:45
Filtrar un dataset Sick boy Conexión con bases de datos 7 02-07-2004 18:08:58
dataset activo javito Oracle 1 04-05-2004 10:23:34


La franja horaria es GMT +2. Ahora son las 05:26:11.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi