27-10-2011
|
Miembro
NULL
|
|
Registrado: oct 2011
Ubicación: Cuba
Posts: 71
Reputación: 13
|
|
gracias
Cita:
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.
|