Ver Mensaje Individual
  #3  
Antiguo 27-10-2011
Salnhack Salnhack is offline
Miembro
NULL
 
Registrado: oct 2011
Ubicación: Cuba
Posts: 71
Reputación: 13
Salnhack Va por buen camino
Thumbs up gracias

Cita:
Empezado por Caro Ver Mensaje
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.
Responder Con Cita