Manipulacion Access y VB Hola, quisiera saber si alguien pueda ayudarme con un problemita que me esta quitando el sueño.
tengo una proyecto en VB muy sencillo y una Base de Datos en Access.
en el form tengo 3 text (DNI, Nombre, Apellido) y 3 botones (Buscar(seguin DNI), Agregar, Modificar)
tengo que trabajar con modulos de clases y por lo tanto tengo 2 mudulos: Persona y conectar (donde conectar lo uso para crear la coneccion)
la coneccion anda bien y los comando me funcionan todos perfectamente salbo el de "Modificar".
Probe de muchas maneras diferenetes pero no logro que ande bien
alguien podria indicarme como hacerlo???
el codigo que utilice para la funcion modificar (en el modulo "persona") es:
Public Function Modificar(DNIBusca As Long) As Persona
Dim cmdModifi As New ADODB.Command
cmdModifi.CommandText = "update tabla set DNI=?, Nombre=?, Apellido=? where DNI=?"
cmdModifi.CommandType = adCmdText
cmdModifi.Parameters.Append cmdModifi.CreateParameter("NroDNIBusca", adInteger, adParamInput, , DNIBusca)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("DNI", adInteger, adParamInput, , Me.DNI)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("Nombre", adVariant, adParamInput, , Me.Nombre)
cmdModifi.Parameters.Append cmdModifi.CreateParameter("Apellido", adVariant, adParamInput, , Me.Apellido)
Dim cnn As New Conectar
Dim rs As ADODB.Recordset
Set rs = cnn.ejecutarConsulta(cmdModifi)
Set Modificar = New Persona
End Function
y en el form el codigo usado es:
Private Sub cmdModifocar_Click()
Dim tmpPerso As New Persona
Dim PersonaBuscada As Persona
Set PersonaBuscada = tmpPerso.Modificar(txt1)
txt1.Text = PersonaBuscada.DNI
txtNombre.Text = PersonaBuscada.Nombre
txtApellido.Text = PersonaBuscada.Apellido
End Sub
Cuando lo corro no me tira ningun tipo de error, no pasa nada. pero no me modifica los campos!!!
Porfabor, si alguien puede ayudarme se los agradeceria mucho!!
