HOLA NUEVAMENTE TE COPIO ACA EL CODIGO SI TIENES PROBLEMAS PARA VER EL ANTERIOR TEMA ...
HOLA ANDRES, YA SOLUCIONE TU PROBLEMA Y NO TE COMPLIQUES USANDO UN ADODC YO USE SOLO CODIGO PARA LAS CONEXIONES Y SENTENCIAS SQL PARA LA ACTUALIZACION = AL CODIGO DE Scherzo, espero te sirva ....
EN TU PROGRAMA PRIMERO AGREGA EN PROYECTO-REFERENCIAS
- MICROSOFT ACTIVEX DATA OBJECTS 2.1 LIBRARY
O SI HAY OTRO SUPERIOR, BUENO ESTO ES PARA QUE APARESCAN ALGUNOS OBJETOS QUE NO ESTAN INCLUIDOS POR EJ. ADODB.****
DECLARAMOS LAS CONEXIONES ACA VA UN POCO DE CODIGO:
Private sql As String
Private rs As ADODB.Recordset
Private cn As ADODB.Connection
Private Sub conexionbd(a)
Set cn = New Connection
Set rs = New Recordset
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;Persist Security Info=False"
.Open
End With
End Sub
Private Sub Command1_Click()
On Error GoTo errores
sql = "UPDATE CLIENTES SET estado = 'NO' WHERE estado = 'SI'"
cn.Execute sql
MsgBox "Datos actualizados exitosamente", vbInformation + vbSystemModal, "Datos actualizados"
Exit Sub
errores:
End Sub
Private Sub Form_Load()
conexionbd (a)
End Sub
NOTA: SEGURAMENTE NO TE DISTE CUENTA QUE EN LOS EJEMPLOS ANTERIORES NO CAMBIASTE EL NOMBRE DE LA TABLA, DE DATOS A LA TUYA QUE ES CLIENTES, EN ESTE EJ. QUE TE ENVIO LA BD SE ENCUENTRA EN C:\
__________________
TAMD MYM
| 
Mode Lineal
