Sentencia SQL en Delphi

[wesito]

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select count(*) cantidad from ciudad where coddep='+inttostr(combo01.KeyValue)+ 'and codciu='+(edit1.Text);
adoquery1.ExecSQL;
adoquery1.Open;

Esto está bien, controlé los campos con la tabla; pero igual tira error 'Invalid variant type conversion'

[marcoszorrilla]

Código Delphi [-]
adoquery1.Close;
    adoquery1.SQL.Clear;
 adoquery1.SQL.Text := 'select count(*) cantidad from ciudad where
 coddep='+QuotedSTr(combo01.Text)+
 'and codciu='+QuotedSTSr(edit1.Text);
    adoquery1.Open;

Prueba así.

Un Saludo.

[samantha jones]

O bien puedes usar parametros:

Código Delphi [-]
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select count(*) cantidad' 
+ ' from ciudad where'
+ ' coddep=:coddep and codciu=:codciu';

adoquery1.Parameters.ParamByName('coddep').Value:=combo01.Text;
adoquery1.Parameters[1].Value:= combo02.Text;
adoquery1.Open;

[wesito]

Gracias a los que contestaron, con el primero que respondio puede solucionar la sentencia SQL.

Tengo otra duda, cómo puedo ahcer para no tener que llenar de lineas, a la hora de guardar, que validen cada campo si fue modificado; ej:

if (adoquery1.Fields[1].Value <> edit2.Text) then
begin
adoquery1.Fields[1].Value:= edit2.Text;
adoquery1.UpdateRecord;
end;

porque se no hago eso dice que no existe algo para ser modificado. Lo que busco es una forma dinamica, porque si tengo 20 campos es medio molesto llenar mi codigo para cada campo esa validación.

[[Lepe]]

Puedes usar DBEdits en lugar de Edits.

Saludos