VB 6.0 no realiza cambios en BD Access 2010

Cerrado
Lagravere
Message postés
1
Date d'inscription
martes, 31 de enero de 2017
Estatus
Miembro
Última intervención
martes, 31 de enero de 2017
- 31 ene 2017 a las 18:32
hola con todos.
espero puedan ayudarme con este problema que tengo. Cuando hago la búsqueda en las tabla, logro que me cargue todos los campos en los textbox, luego realizo alguna modificación y al presionar el botón, hice el seguimiento, aparentemente pasa bien por todas las líneas y hasta me sale el mensaje de que se modifico correctamente, después de la línea de update. al volver a realizar la búsqueda con el mismo código, me muestra sin haberse realizado la modificación, verifico directamente en la tabla de la BD de Access 2010 y exactamente no se hizo el cambio. Tengo cargados las referencias Activex correspondientes.

Dejo el código para que me puedan ayudar.

Public cn As New ADODB.Connection

'=================================================
Public Sub Conexion()
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data source=" & App.Path & "\BD_ATAHUALPA\ATAHUALPA.mdb" & "; Persist security info = false"
End Sub

'=================================================
Private Sub btnModificar_Click()
Dim tbl As New ADODB.Recordset
Call Conexion
tbl.Open "Select * from TBL_PROVEEDOR where DNI = " & Val(txtDNISocio.Text), cn, adOpenDynamic, adLockBatchOptimistic
'If txtCodSocio = "" Or txtDNISocio = "" Or txtApePat = "" Or txtApeMat = "" Or txtFincaSoc = "" Or txtNombres = "" Or txtHCTotal = "" Or txtCafeCrec = "" Or txtCafeProd = "" Or cmbZona.Text = "" Or cmbEstadoCivil.Text = "" Or txtDNIConyuge = "" Or txtNombreConyuge = "" Or txtCantHijos = "" Or txtIdioma = "" Then
'MsgBox "FALTA INGRESAR ALGUNOS CAMPOS", vbCritical, "ERROR"
'Else
If tbl.EOF = False And tbl.BOF = False Then
tbl("CODIGO_SOCIO") = txtCodSocio.Text
'MsgBox tbl("CODIGO_SOCIO")
'tbl("DNI") = Val(txtDNISocio.Text)
tbl("APEPAT") = txtApePat.Text
'MsgBox tbl("APEPAT")
tbl("APEMAT") = txtApeMat.Text
tbl("NOMBRES") = txtNombres.Text
tbl("ZONA") = cmbZona.Text
tbl("FINCA") = txtFincaSoc.Text
'MsgBox tbl("FINCA")
tbl("HC_TOTAL") = Val(txtHCTotal.Text)
tbl("CAFE_PROD") = Val(txtCafeProd.Text)
tbl("CAFE_CREC") = Val(txtCafeCrec.Text)
If ckFairtrade.Value = 1 Then
tbl("FAIRTRADE") = ckFairtrade.Caption
Else
tbl("FAIRTRADE") = ""
End If
'MsgBox tbl("FAIRTRADE")
If ckOrganico.Value = 1 Then
tbl("ORGANICO") = ckOrganico.Caption
Else
tbl("ORGANICO") = ""
End If
If ckUTZ.Value = 1 Then
tbl("UTZ") = ckUTZ.Caption
Else
tbl("UTZ") = ""
End If
If ckRAS.Value = 1 Then
tbl("RAS") = ckRAS.Caption
Else
tbl("RAS") = ""
End If
If ckPractices.Value = 1 Then
tbl("PRACTICES") = ckPractices.Caption
Else
tbl("PRACTICES") = ""
End If
If ckNaturland.Value = 1 Then
tbl("NATURLAND") = ckNaturland.Caption
Else
tbl("NATURLAND") = ""
End If
tbl("ESTADO_CIVIL") = cmbEstadoCivil.Text
tbl("DNI_CONYUGE") = Val(txtDNIConyuge.Text)
tbl("NOMBRES_CONYUGE") = txtNombreConyuge.Text
tbl("CANTIDAD_HIJOS") = Val(txtCantHijos.Text)
tbl("IDIOMA") = txtIdioma.Text
tbl.Update
MsgBox "SOCIO MODIFICADO", vbInformation, "MODIFICADO"
Else
MsgBox "SOCIO NO ESTA REGISTRADO", vbCritical, "ERROR"
End If
tbl.Close
cn.Close
Call Limpiar
End Sub



Espero su ayuda.