Error con Cursor Dinamico
Publicado por victor Tapia (49 intervenciones) el 20/11/2006 18:30:27
Holas tengo el siguiente codigo probe la consulta en la BBDD y me funciona pero por codigo nop
string ls_result
string sqlstatement
string primero,segundo
primero = mid(string(ole_1.object.value),1,10)
segundo = mid(string(ole_2.object.value),1,10)
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA;
sqlstatement = "select distinct(usuarios.nombre) from pagos,usuarios where pagos.recaudador = usuarios.idusuario And pagos.fechacancel between '" + primero + "' and '" + segundo + "'";
PREPARE SQLSA FROM :sqlstatement;
OPEN DYNAMIC my_cursor;
ddlb_1.clear( )
Do While SQLCA.SQLCode = 0
FETCH my_cursor INTO :ls_result;
ddlb_1.AddItem(ls_result)
Loop
lo extraño es que me funciono un par de veces.... Ojala me puedan ayudar..
Saludos
string ls_result
string sqlstatement
string primero,segundo
primero = mid(string(ole_1.object.value),1,10)
segundo = mid(string(ole_2.object.value),1,10)
DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA;
sqlstatement = "select distinct(usuarios.nombre) from pagos,usuarios where pagos.recaudador = usuarios.idusuario And pagos.fechacancel between '" + primero + "' and '" + segundo + "'";
PREPARE SQLSA FROM :sqlstatement;
OPEN DYNAMIC my_cursor;
ddlb_1.clear( )
Do While SQLCA.SQLCode = 0
FETCH my_cursor INTO :ls_result;
ddlb_1.AddItem(ls_result)
Loop
lo extraño es que me funciono un par de veces.... Ojala me puedan ayudar..
Saludos
Valora esta pregunta


0