Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 26-05-2011
oktubre oktubre is offline
Miembro
 
Registrado: sep 2010
Posts: 10
Poder: 0
oktubre Va por buen camino
tengo una ulitma duda con los strings

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

usando
Código Delphi [-]
While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;
me da ese error. ya corregí el faltante de un paréntesis que termine el concat y da igual el error.
les copio lo que me funcionó pero me parece un parche medio pedorro.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
LaLinea, Cantidad, Articulo, Precio : string ;
begin
 {*
  SELECT Cantidad, Articulo, Precio FROM DETALLE WHERE Idfactura = 33

 While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

 *}

  while  Query1.Eof = False do
  begin
 Cantidad := Query1['Cantidad']      ;
 Articulo :=  Query1['Articulo']      ;
 Precio :=   Query1['Precio']          ;


 LaLinea :=  Cantidad +' # '+ Articulo + '          $'  + Precio;
  Memo1.Lines.Add(LaLinea) ;
  Query1.Next ;
  end;

uso delphi 6 y tablas paradox 7
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Como mostrar Resultados de una consulta en componentes como los Edit,Label y DbGrids! danny Conexión con bases de datos 2 08-05-2008 23:35:46
Como obtengo los resultados de un query richy08 PHP 6 09-10-2007 00:52:35
Como guardarlos resultados de una consulta en una tabla Maury Manosalva Conexión con bases de datos 2 20-04-2007 02:08:59
Como cambio las vistas de los resultados de una consulta???? yo_coco_py SQL 1 17-06-2005 18:25:52
Consulta sin resultados!!!! Giniromero Conexión con bases de datos 8 03-10-2003 13:17:41


La franja horaria es GMT +2. Ahora son las 20:49:32.


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