bommel
02 de Febrero del 2005

Tengo poca experiencia y si me ayudan lo agradeceria mucho.Estoy realizando un programa con bases de datos en ADO, en el cual uso un data grid y deseo que cada vez que la persona se desplace por este grid , mediante unos textbox se visualisen detalladamente los valores de cada registro del grid, pero sale el siguiente error :
error'-2147467259(80004005)' en tiempo de ejecución : No se puede abrir mas tablas. Este problema ocurre aproximadamente por el desplazamiento nro 330 o algo mas . y realmente no se que significa ya que cuando hize este mismo codigo pero que el detalle de un datagrid en otro no hubo problema. envio el codigo:********************
Private Sub DGdetalle_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If FILTRO = 1 Then
Set rsliqui = New ADODB.Recordset
rsliqui.Open "SELECT * FROM CONTROLDET " & _
"WHERE EGR_NRO ='" & DGdetalle.Columns(0) & "' " & _
"AND PLA_PPG ='" & DGdetalle.Columns(2) & "' " & _
"AND EGR_ITEMNRO ='" & DGdetalle.Columns(1) & "'", cnCE, adOpenKeyset, adLockBatchOptimistic
Set TxtCts.DataSource = rsliqui
TxtCts.DataField = "VAL_CTS"
Set TxtPriQui.DataSource = rsliqui
TxtPriQui.DataField = "VAL_PRI_QUIN"
Set TxtPlanilla.DataSource = rsliqui
TxtPlanilla.DataField = "VAL_PLA_VTRUN"
Set TxtSexGra.DataSource = rsliqui
TxtSexGra.DataField = "VAL_SEX_GRA"
Set TxtMov.DataSource = rsliqui
TxtMov.DataField = "VAL_MOV"
Set TxtVIAT.DataSource = rsliqui
TxtVIAT.DataField = "VAL_viati"
Set TxtBonif.DataSource = rsliqui
TxtBonif.DataField = "VAL_bonif"
Set TxtPagoSeg.DataSource = rsliqui
TxtPagoSeg.DataField = "VAL_pag_seg"
Set TxtHonorario.DataSource = rsliqui
TxtHonorario.DataField = "VAL_honorario"
Set TxtOtros.DataSource = rsliqui
TxtOtros.DataField = "VAL_otros"
Set TxtReemF.DataSource = rsliqui
TxtReemF.DataField = "VAL_remf"
Set TxtSubs.DataSource = rsliqui
TxtSubs.DataField = "VAL_Subs"
Set TxtDscJu.DataSource = rsliqui
TxtDscJu.DataField = "VAL_dscju"
Set TxtIpss.DataSource = rsliqui
TxtIpss.DataField = "VAL_ipss"
Set TxtAfp.DataSource = rsliqui
TxtAfp.DataField = "VAL_Afp"
Set TxtSNP.DataSource = rsliqui
TxtSNP.DataField = "VAL_Snp"
Set TxtPrst.DataSource = rsliqui
TxtPrst.DataField = "VAL_prest"
Set Txt5ta.DataSource = rsliqui
Txt5ta.DataField = "VAL_5ta"
Set Txt11ret.DataSource = rsliqui
Txt11ret.DataField = "VAL_ret11"
Set TxtDxade.DataSource = rsliqui
TxtDxade.DataField = "VAL_dscade"
Set TxtComprueba.DataSource = rsliqui
TxtComprueba.DataField = "VAL_compro"
Set ChkVerificado.DataSource = rsliqui
ChkVerificado.DataField = "verific"
'este contador es para saber cuantos veces estoy desplazando sobre el grid y en el numero 330 o algo mas sucede este error
fila = fila + 1
Text1.Text = Str(fila)

End If
End sub