Como asignarle a un edit una consulta sql

[Salnhack]

Hola, soy nuevo por aqui y necesito la colaboracion de ustedes
estoy desarrollando una aplicacion que maneja un base dato en access y necesito mostrar el resultado de una consulta en un edit y no se como hacerlo agradeceri toda la ayuda que me pudieran dar este es parte de codigo que estoy desarrollando

Código Delphi [-]
// aqui le asigno la consulta al query
with DataModule4.Query1 do
    begin
       Close;
       SQL.Clear;
       SQL.Add('select (um) from um where descum='+QuotedStr(suiDBLookupListBox1.SelectedItem));
       ExecSQL;
    end;

el problema es que no se como asignarle el resultado de esta al edit.

Gracias de ante mano

[*Caro*]

Hola Salnhack, en ves de ExecSQl debes utilizar Open ya que no estas haciendo cambios sobre tu BD. Para recuperar el valor de tu consulta (FieldByName o Fields[indice de tu campo]).

Código Delphi [-]
with DataModule4.Query1 do
    begin
         Close;
         SQL.Clear;
         SQL.Add('select (um) from um where descum='+QuotedStr(suiDBLookupListBox1.SelectedItem));
  Open;

  Edit.Text := FieldByName('um').AsString; //si te devuelve mas de un valor debes recorrer tu dataset (Query)

Saluditos

[Salnhack]

Empezado por Caro

Hola Salnhack, en ves de ExecSQl debes utilizar Open ya que no estas haciendo cambios sobre tu BD. Para recuperar el valor de tu consulta (FieldByName o Fields[indice de tu campo]).

Código Delphi [-]with DataModule4.Query1 do begin Close; SQL.Clear; SQL.Add('select (um) from um where descum='+QuotedStr(suiDBLookupListBox1.SelectedItem)); Open; Edit.Text := FieldByName('um').AsString; //si te devuelve mas de un valor debes recorrer tu dataset (Query)


Saluditos

Gracias me sirvio bien.