21/04/2009, 15:28
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 131
Antigüedad: 16 años, 11 meses Puntos: 0 | |
| Respuesta: Botón Gráfico de avanzar
Mira yo me conecto con ADODB
lo siguiente es la consulta le quite algunas cosas para que no se viera tan larga.
Cadena_SQL_15 = "select OEPEDTRX_SQL.date_ped,OEPEDTRX_SQL.id_ped
from OEPEDTRX_SQL,ARCUSFIL_SQL,IMITMIDX_SQL,OECOTIZACIO N_SQL,OEDETAIL_PED_SQL,OEMOVTRX_SQL WHERE OEDETAIL_PED_SQL.id_ped=OEPEDTRX_SQL.id_ped and OEMOVTRX_SQL.id_detail_ped=OEDETAIL_PED_SQL.id_det ail_ped and OEDETAIL_PED_SQL.cot_number=OECOTIZACION_SQL.cot_n umber AND OEDETAIL_PED_SQL.item_no=IMITMIDX_SQL.item_no and OEPEDTRX_SQL.cus_no=ARCUSFIL_SQL.cus_no"
Rs15.MoveNext
If Rs15.EOF Then
MsgBox "Está en el ultimo"
Rs15.MovePrevious
End If
Cbo_Cliente.Text = Rs15.Fields("search_name")
Text_Id.Text = Rs15.Fields("id_ped")
Text_Fecha.Text = Rs15.Fields("date_ped")
.
.
la consulta esta bien y todo esta bien solo necesito que avance a partir del consultado, osea que el recordset tome el valor en el punto en que quedo en la consulta. |