Visual Basic - Error al actualizar un DataGrid

Life is soft - evento anual de software empresarial
   
Vista:

Error al actualizar un DataGrid

Publicado por Gustavo (7 intervenciones) el 24/06/2016 18:21:08
Hola buen dia... relativamente soy novato en VB6, espero su comprensión...
dejo esta duda por aqui, esperando me puedan auxiliar.... realizo una consulta a una tabla en access y la deposito en un Grid, mediante RowColChange muestro los datos en un formulario, si es necesario modificar algun dato lo realizo en el formulario y actualizo mediante UPDATE inmediatamente intento actualizar el grid para que aparezca en el la modificación realizada... en el editor de VB6 opera muy bien, el error se muestra al ejecuta el compilado, al llegar a este punto muestra error 9 subindice fuera de intevalo, espero haberme explicado...de antemano gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al actualizar un DataGrid

Publicado por Gustavo (7 intervenciones) el 24/06/2016 18:59:19
En resumen este es parte del codigo que utilizo, donde involucro el Grid...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Dim Class As String
 
Private Sub Form_Load()
 
buscaRR
 
With GloBRR
    .Requery
    .Find "Exp='" & Trim(Exped) & "'"
 
        Text2.Text = Trim(!NJuic & " ")
        Text3.Text = Trim(!AJuic & " ")
        Text5.Text = Trim(!Dto & " ")
        Text4.Text = Trim(!Pob & " ")
 
End With
 
With GloBRR_amp
If .State = 1 Then .Close
    .Open "Select * From amprr where Exp='" & Trim(Text1.Text) & "' order by ffallo", Base, AddOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = GloBRR_amp
    FtoGridAmp
    DataGrid1.AllowAddNew = False
    DataGrid1.AllowUpdate = False
End With
 
End Sub
 
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    Text13.Text = DataGrid1.Columns(7).Text
    Text24.Text = DataGrid1.Columns(21).Text
    Text30.Text = DataGrid1.Columns(15).Text
    Text31.Text = DataGrid1.Columns(18).Text
    Text37.Text = DataGrid1.Columns(13).Text
End Sub
 
 
Private Sub Command2_Click() ' Guardar registros ya almacenados
 
buscaRRamp
With GloBRR_amp
 
If MsgBox("Los Datos ingresados se ACTUALIZARÁN en el sistema, CONFIRMA??!!!", vbYesNo, "Aviso") = vbYes Then
 
 
If .State = 1 Then .Close
.Open "UPDATE amprr SET quejoso ='" & UCase(Text13.Text) & "', acrec='" & UCase(Text24.Text) & "', tipo='" & UCase(Combo6.Text) & _
"', clase='" & UCase(Class) & "', regampd=" & Val(Trim(Text16.Text)) & ", aregad=" & Val(Trim(Text17.Text)) & ", facto=#" & fecha1 & _
"#, facpres=#" & fecha2 & "#, facinic=#" & fecha3 & "#, fejecut=#" & fecha4 & "#, senteje='" & UCase(Combo11.Text) & _
"', namp='" & Trim(Text33.Text) & "', namp2='" & Trim(Text34.Text) & "', ffallo=#" & fecha5 & "#, sscejec='" & UCase(Combo7.Text) & _
"', sscejec2='" & UCase(Combo8.Text) & "', magresol='" & UCase(Combo1.Text) & "', mvotpar='" & UCase(Combo9.Text) & "', sec='" & UCase(Combo10.Text) & _
"', frectsa=#" & fecha6 & "#, regtro='" & Text37.Text & "', frecsen=#" & fecha7 & "#, obs='" & UCase(Text29.Text) & _
"' Where Exp='" & Text1.Text & "' and Regtro='" & Text37.Text & "'", Base, AddOpenStatic, adLockOptimistic
 
 
MsgBox "Registro Actualizado!!!", vbInformation, "Aviso"
 
LimpiaCampos1
 
Else
    LimpiaCampos1
    'Text28.SetFocus
    Exit Sub
End If
End With
 
With GloBRR_amp1
If .State = 1 Then .Close
.Open "Select * From amprr where Exp='" & Trim(Text1.Text) & "' order by ffallo", Base, AddOpenStatic, adLockOptimistic
'hasta aqui todo va bien!!!
 
' el error salta aqui
Set DataGrid1.DataSource = GloBRR_amp1 'Asigno nueva mente al grid 
FtoGridAmp ' Ejecuta el proceso de dar formato al Grid
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
End With
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar