Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 20-05-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 24
JXJ Va por buen camino
con un componente query
yo uso mysql y mydac y quiero el texto en un tmemo.
suponiendo tu tabla tenga 5 campos

---------------------
| 0 | 1 | 2 | 3 | 4 |
---------------------
y tu quieres usar el texto de la posicion 0
---------------------
Código Delphi [-]
//en la seccion de procedures arriba de     { Private declarations }
 procedure GetResults( SQLQuery: String; ZQuery: TMyQuery );//Cambua TMyQuery por el tipo de tu componente query

//desdepues de {$R *.dfm}

procedure TFprincipal.GetResults( SQLQuery: String; ZQuery: TMyQuery );
begin
  MyQuery1.SQL.Text := SQLQuery;
  MyQuery1.Open;
  MyQuery1.DisableControls;
  MyQuery1.First;
end;


GetResults('select ID from tabla_canales where nombre = "'+ Keyword +'"', MyQuery1);
id:= MyQuery1.Fields[0].AsString;

  try
    for i :=1 to MyQuery1.RecordCount do
    begin
 GetResults('Select * from tabla_titulares where owner = "'+ id + '"', MyQuery1 );

      {MemoDescription.Text := (MyQuery1.FieldByName('NOMBRE').AsString);
      MemoExample.Text := (MyQuery1.FieldByName('NOMBRE').AsString);
      }
      //----------
      MemoDescription.Text := (MyQuery1.Fields[1].AsString);
      MemoExample.Text := (MyQuery1.Fields[1].AsString);

      result := true;
      //---------
      MyQuery1.Next;
    end;
  finally

  end;
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
Problemas con Base de Datos i_gauss C++ Builder 2 16-01-2006 11:02:50
Problemas con el tamaño de la base de datos rogeriobeltran Firebird e Interbase 0 11-03-2004 16:33:37
Problemas con Base de datos(.dbf y .db)!!! jeni Conexión con bases de datos 1 08-11-2003 12:49:09
problemas con la base de datos superhopi Conexión con bases de datos 1 19-05-2003 09:47:58


La franja horaria es GMT +2. Ahora son las 01:45:03.


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