Pantalla Encabezado/detalle con ADO
Publicado por Rossy (1 intervención) el 31/07/2001 21:33:45
HOLA!
Estoy haciendo una pantalla de mantenimiento encabezado y detalle con tablas de sqlserver. Mi pantalla original la hice con el wizard, pero da el siguiente error al tener las tablas vacias, ya que si lleno las tablas con información, funciona perfectamente
"Either BO or EOF is true, or the current record has been deleted. Requested operation requires a current record"
Esto me da en la ultima linea del siguiente codigo:
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=TEIApp60;uid=;pwd=;database=TEIApp60;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SHAPE {select CveCarrera,Descr,CveCuotaInscr,NoSemanas,Status from CarreraH} AS ParentCMD APPEND ({select CveCarrera,CveMateria,Descr from CarreraD } AS ChildCMD RELATE CveCarrera TO CveCarrera) AS ChildCMD", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
GRACIAS POR SU AYUDA :)
Estoy haciendo una pantalla de mantenimiento encabezado y detalle con tablas de sqlserver. Mi pantalla original la hice con el wizard, pero da el siguiente error al tener las tablas vacias, ya que si lleno las tablas con información, funciona perfectamente
"Either BO or EOF is true, or the current record has been deleted. Requested operation requires a current record"
Esto me da en la ultima linea del siguiente codigo:
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=TEIApp60;uid=;pwd=;database=TEIApp60;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SHAPE {select CveCarrera,Descr,CveCuotaInscr,NoSemanas,Status from CarreraH} AS ParentCMD APPEND ({select CveCarrera,CveMateria,Descr from CarreraD } AS ChildCMD RELATE CveCarrera TO CveCarrera) AS ChildCMD", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
GRACIAS POR SU AYUDA :)
Valora esta pregunta
0