FDQuery.SQL.Add() da error

[tomasgarcia]

Ejecuto la siguiente setencia mediante el método Formshow de un formulario.;

Código Delphi [-]
        FDQuery1.SQL.Add('SELECT * FROM clients'  )  ;

y me arroja el errorarchivo adjunto)
Sin embargo en el query editor del FDQuery1, escribo la
misma sentencia y funciona sin problemas.
Saludos y gracias

[Neftali [Germán.Estévez]]

Por favor, revisad la Guía de estilo de los foros.
Y utilizad TAGs en el código.

[Neftali [Germán.Estévez]]

Empezado por tomasgarcia

Ejecuto la siguiente setencia mediante el método Formshow de un formulario.;

Código Delphi [-]
        FDQuery1.SQL.Add('SELECT * FROM clients'  )  ;

y me arroja el errorarchivo adjunto)

A ver si tienes ya algo en esa propiedad y al hacer el Add estás metiendo más cosas de la cuenta.
Cambia esa línea por esta otra:

Código Delphi [-]
        FDQuery1.SQL.Text := 'SELECT * FROM clients';

[roberto_valverde]

Empezado por tomasgarcia

Ejecuto la siguiente setencia mediante el método Formshow de un formulario.;

Código Delphi [-]
        FDQuery1.SQL.Add('SELECT * FROM clients'  )  ;

y me arroja el errorarchivo adjunto)
Sin embargo en el query editor del FDQuery1, escribo la
misma sentencia y funciona sin problemas.
Saludos y gracias

Quizás estas cambiando la consulta estando ya Activo FDQuery1.

Código Delphi [-]
 FDQuery1.Close;
 FDQuery1.SQL.Clear;
 FDQuery1.SQL.Add('SELECT * FROM clients;'); <-- Añade ; a finalizar el select
 FDQuery1.Open;

Saludos

[Casimiro Noteví]

Por favor, no olviden:

[tomasgarcia]

Empezado por roberto_valverde

Quizás estas cambiando la consulta estando ya Activo FDQuery1.

FDQuery1.Close;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('SELECT * FROM clients;'); <-- Añade ; a finalizar el select
FDQuery1.Open;

Saludos

tampoco funciona. Da el mismo error.
Gracias

[tomasgarcia]

Empezado por Neftali [Germán.Estévez]

A ver si tienes ya algo en esa propiedad y al hacer el Add estás metiendo más cosas de la cuenta.
Cambia esa lÃ*nea por esta otra:

Código Delphi [-]
        FDQuery1.SQL.Text := 'SELECT * FROM clients';

Hola , da el mismo error

[tomasgarcia]

Perdón , me equivoqué
FDQuery1.SQL.Text := 'SELECT * FROM clients;'; no da error.

[tomasgarcia]

He comprobado que ambas sentencias funcionan del mismo modo, cargan en el grid
la tabla entera.

Código Delphi [-]
procedure TConsClients.FormShow(Sender: TObject);
    begin
   editbuscar.SetFocus;
   FDQuery1.Active:=False;
   //FDQuery1.SQL.Text := 'SELECT * FROM clients;';
   FDQuery1.SQL.Add('SELECT * FROM  clients ; '  )  ;
   FDQuery1.Active:=True;
   combobox1.Clear;
   FDQuery1.Fields.GetFieldNames(Combobox1.Items)   ;
   combobox1.ItemIndex:=1;
  end;

Sin embargo, si en cualquiera de ella intento seleccionar uno o varios campos de la tabla,
deja de funcionar.

Código Delphi [-]
procedure TConsClients.FormShow(Sender: TObject);

    begin
   editbuscar.SetFocus;
   FDQuery1.Active:=False;
   //FDQuery1.SQL.Text := 'SELECT * FROM clients;';
   FDQuery1.SQL.Add('SELECT IDClient FROM  clients ; '  )  ;
   FDQuery1.Active:=True;
   combobox1.Clear;
   FDQuery1.Fields.GetFieldNames(Combobox1.Items)   ;
   combobox1.ItemIndex:=1;
  end

;

[tomasgarcia]

La tabla clients tiene los siguientes campos: IDClients, CIF,Nombre,Direccion,C.P, Municipio

[Casimiro Noteví]

Si no dices qué quieres conseguir.

[tomasgarcia]

Hola , ya he encontrado el problema . Tenia todos los campos persistentes en tiempo de diseño.
Los eliminé y ya funciona.
gracias

[roberto_valverde]

Empezado por tomasgarcia

He comprobado que ambas sentencias funcionan del mismo modo, cargan en el grid
la tabla entera.

Código Delphi [-]
procedure TConsClients.FormShow(Sender: TObject);
    begin
   editbuscar.SetFocus;
   FDQuery1.Active:=False;
   //FDQuery1.SQL.Text := 'SELECT * FROM clients;';
   FDQuery1.SQL.Add('SELECT * FROM  clients ; '  )  ;
   FDQuery1.Active:=True;
   combobox1.Clear;
   FDQuery1.Fields.GetFieldNames(Combobox1.Items)   ;
   combobox1.ItemIndex:=1;
  end;

Sin embargo, si en cualquiera de ella intento seleccionar uno o varios campos de la tabla,
deja de funcionar.

Código Delphi [-]
procedure TConsClients.FormShow(Sender: TObject);

    begin
   editbuscar.SetFocus;
   FDQuery1.Active:=False;
   //FDQuery1.SQL.Text := 'SELECT * FROM clients;';
   FDQuery1.SQL.Add('SELECT IDClient FROM  clients ; '  )  ;
   FDQuery1.Active:=True;
   combobox1.Clear;
   FDQuery1.Fields.GetFieldNames(Combobox1.Items)   ;
   combobox1.ItemIndex:=1;
  end

;

Hola de nuevo, en la consulta FDQuery1.SQL.Add('SELECT IDClient FROM clients ; ' )
estas seleccionado un solo campo para mostrar en tu grid que es IDClient Los demás campos ya no están disponibles en el grid por eso salta el error.