[Alfonsoft]

Buenas,

Más dudas... Ahora, despues del LIKE de la SELECT no se como ponerle las ' ' porque si las pongo Delphi las mete como código suyo y no como de la SELECT, no se si me explico bien...

A ver si me podéis ayudar...

Gracias,

Código Delphi [-]

procedure TFormClasificacion.cbPaisesChange(Sender: TObject);
begin
  DM.qprueba1.Close;
  DM.qprueba1.SQL.Clear;
  DM.qprueba1.SQL.Add('SELECT COMPETICION');
  DM.qprueba1.SQL.Add('FROM COMPETICIONES');
  DM.qprueba1.SQL.Add('WHERE ID_PAIS=');
  DM.qprueba1.SQL.Add('(SELECT ID_PAIS FROM PAISES');
  DM.qprueba1.SQL.Add('WHERE PAIS LIKE' + cbPaises.text);
  DM.qprueba1.SQL.Add(')');

DM.qprueba1.Open;
while not dm.qprueba1.eof do
begin
  cbcompeticiones.items.add(dm.qprueba1.fieldbyname('Competicion').AsString);
  dm.qprueba1.next;
end;
cbCompeticiones.DataSource :=  DM.dsPrueba1;
cbcompeticiones.DataField :=  'Competicion';
end;