Que tal como estan aqui de nuevo pidiendo un poc de asesoria para resolver un problema que tengo es sobre la actualizacion de un registro me marca el siguiente error
-2147217887(80040e21)
El controlador OBDC no admite la propiedades solicitadas
El codigo es el siguiente
Código:
Private Sub Modificar()
Call VisualizarPacientes
Dim s As Integer
s = MsgBox("¿Esta Seguro que desea Guardar los Cambios?", vbYesNo, "Control Pacientes - EDMAC")
If s = vbYes Then
Set RecBD = New ADODB.Recordset
RecBD.Open "UPDATE pacientes SET id='" & Text1(0) & "' ,nombre='" & Text1(2) & "',apellidos='" & Text1(3) & "',ocupacion='" & Text1(4) & "',recomendado='" & Text1(5) & "',nacimiento='" & Text1(6) & "',edad='" & Text1(7) & "',sexo='" & Text1(8) & "',proxima='" & Text1(9) & "',tel1='" & Text1(10) & "', tel2='" & Text1(11) & "',tel3='" & Text1(12) & "',tel4='" & Text1(13) & "',calle='" & Text1(14) & "',colonia='" & Text1(15) & "'municipio='" & Text1(16) & "',estado='" & Text1(17) & "',pais='" & Text1(18) & "',antecedentes='" & Text1(19) & "'Where id = " & Id, BD, adOpenStatic, adLockOptimistic
Set RecBD = Nothing
Call LimpiarPacientes
Else
Exit Sub
End If
End Sub
Uso Base de Datos Mysql....
Saludos y gracias por su ayuda y respuestas
