Ver Mensaje Individual
  #2  
Antiguo 23-05-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
Cool

El problema es que es al asignar la sentencia SQL que se "crean" los parámetros; por lo que el valor recien asignado simplemente se pierde.

Además, cuando asignas un select a una sentencia SQL, el TAdoQuery debes "abrirlo" con el método open, y no simplemente "ejecutarlo" con ExecSQL, con el que ejecutas sentencias que no devuelven un cursor, como un update o un delete.

Para obtener el "resultado", te podes valer del método FieldByName.

Al final el trozo de código quedaria algo asi:

Código Delphi [-]
  adoquery1.SQL.Text:= 'select us-cve from ordcom where oc-cve = c-cve';
  adoquery1.Parameters.ParamByName('oc-cve').Value := edit1.Text ;
  adoquery1.Open;
  label1.text := adoquery1.fieldbyname('oc-cve').AsString;

Por cierto, te recomiendo el uso de las etiquetas [ code ] [ delphi ] y [ sql ] para publicar trozos de código, que ves que de esta forma se indentan correctamente y hasta se puede resaltar la sintaxis, lo que los hace mucho mas legibles. Hay un mensaje al inicio de cada foro que te aclarará bastante sobre su uso.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita