crear, modificar y eliminar registros en access 2003 desde visual basic 2005

[jaullo]

Bueno.... colocar los botones de guardar un nuevo registro, actualizar, y borrar es sumamente sencillo.

Según veo tu código una vez que buscas pasas los datos, cuando los tengas en los textbox debes hacer lo siguiente:

Para guadar un nuevo registro:

Public Sub llenarcuenta()

Try
Dim objCon As New Conexion
Dim strSQL As String = "INSERT INTO CUENTAS (numcuenta,tipocuenta,descripcion,usuario)" & _
"VALUES ('" & txtnumcuenta.text & "', '" & txttipoc.text & "','" & txtdescripcion.text & "','" & txtuser.Text & "')"

objCon.abrirConexion()
objCon.consultaAccion(strSQL)
objCon.cerrarConexion()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Para modifica un dato luego de que lo has buscado
Sub actuliza

Try

Dim strConsul = "UPDATE CUENTAS SET TIPOCUENTA ='" & txttipocuenta.text & "',DESCRIPCION='" & txtdesc.text & "',USUARIO='" & txtuser.text & "' WHERE NUMCUENTA='" & txtnucuenta.text & "'"
objCon.abrirConexion()
objCon.consultaAccion(strConsul)
objCon.cerrarConexion()

MsgBox("Se han Modificado los datos", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Ejecutado")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End sub

Para eliminar el dato

Try

If MsgBox("Desea Eliminar la Cuenta: " & txtcuenta.Text, MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question, "Advertencia") = MsgBoxResult.Yes Then
Dim objCon As New Conexion
objCon.abrirConexion()
objCon.consultaAccion("DELETE FROM CUENTAS WHERE NUMCUENTA ='" & txtcuenta.Text & "'")
objCon.cerrarConexion()
MsgBox("Se ha eliminado el registro", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Ejecutado")

End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Por último y para que lo anterior te funcione deberias tener una clase conexión con lo siguiente:

Public Class Conexion

Public strConexion As String
Public cnnConex As OleDb.OleDbConnection
Public comand As OleDb.OleDbCommand
Public dtrDatos As OleDb.OleDbDataReader

Sub abrirConexion()
Try
strConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ".\tu bd"
cnnConex = New OleDb.OleDbConnection(strConexion)
cnnConex.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

'consultas insert,delete,update
Sub consultaAccion(ByVal consulta As String) 'para hacer las consultar

Try
comand = New OleDb.OleDbCommand(consulta, cnnConex)
comand.ExecuteNonQuery()

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Sub cerrarConexion()
Try
cnnConex.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub



End Class

Esta es la forma mas sencilla, existen otras formas utilizando clases pero se complica un poco mas. Sin embargo si quieres saberlas nada mas avisame.

Espero con esto poder ayudarte y aclarte tus dudas.

Saludos,