Ver Mensaje Individual
  #1  
Antiguo 09-07-2007
jesusvp jesusvp is offline
Miembro
 
Registrado: jun 2007
Posts: 10
Reputación: 0
jesusvp Va por buen camino
obtener campo de varios obtenidos de sql mediante un cursor

hola soy nuevo en el lenguaje delphi, trato de aprender un poco de como utilizar delphi con una conexion a una base de datos de sql server, realizando lo siguiente:
en un boton programo la declaracion del cursor y su apertura

Query1.sql.Text := 'DECLARE contact_cursor CURSOR FOR SELECT * FROM ME_INGRESO_PTO_VENTA_TJA';
Query1.ExecSQL;
Query1.sql.Text := 'OPEN contact_cursor';
Query1.ExecSQL;

y el el otro me gustaria que me diera lo obtenido por el cursor y cada uno de los campos colocarlos en un EDIT.

Query1.sql.Text := ' IF @@FETCH_STATUS = 0 BEGIN FETCH NEXT FROM contact_cursor END ELSE BEGIN CLOSE contact_cursor DEALLOCATE contact_cursor END'
Query1.ExecSQL;
***edit1.text := query1.Fields.Fields [1].Value

***en este punto es donde tengo problemas ya que quisiera que haga lo siguiente de lo obtenido con el cusor

edit1.text := campo1 (obtenido por el cursor)
edit2.text := campo2 (obtenido por el cursor)
edit3.text := campo3 (obtenido por el cursor)
l
Responder Con Cita