none
VB.NET 2008 - Grabar, modificar y eliminar en Access 2003 RRS feed

  • Pregunta

  • Estimados,

    al momento de guardar un registro, necesito que el código me diga de inmediato: Si existe, lo modifique si no lo grabe o lo elimine.

    Todo esto que sea en la capa de datos.

    Como lo puedo hacer?

     Public Sub ConectarAccess()
            Try
                pSQLcon = New OleDbConnection
                pSQLcon.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Prueba.mdb"
    
            Catch ex As Exception
    
            End Try
        End Sub
    
    Public Sub GuardarConductor(ByVal Run As String, ByVal Nacionalidad As Integer, ByVal Nombre As String, ByVal Apellido As String, ByVal Direccion As String, ByVal Ciudad As String)
    
      Dim cx As New Conexion
    
     ........
    
    End Sub
    • Cambiado Enrique M. Montejo lunes, 25 de julio de 2011 16:43 acceso a datos (De:Lenguaje VB.NET)
    miércoles, 14 de abril de 2010 21:33

Todas las respuestas

  • hola

    mira aqui tengo unos interesante ejemplos que tocan este tema

    ADO.NET Parte 4 Actualizaci ó n Informaci ó n Ms Access


    ADO.NET - Parte 2 - Recuperar Informació n MS  Access


    al final del articulo tienes el codigo para descargar, y realzia todas las operaciones que mencionas, tanto la de validar si existe, y proceder a actualziar o insertar, tambien tiene la eliminacion

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 15 de abril de 2010 0:19
  • Leandro, gracias por tu interés. Te comento que estuve investigando y encontré que se puede usar otras formas para realizar esto. La idea es que al momento de guardar, inmediatamente por código analice si debe grabar o actualizar:

    El código no está terminado porque desconosco como puedo seguir codificándolo.

     

          Dim MiAdaptador As New OleDbDataAdapter("SELECT * FROM Conductores", cx.pSQLcon)      Dim cb As New OleDbCommandBuilder(MiAdaptador)      MiAdaptador.UpdateCommand = cb.GetUpdateCommand()      MiAdaptador.InsertCommand = cb.GetInsertCommand()      MiAdaptador.DeleteCommand = cb.GetDeleteCommand()      Dim dt As DataTable = New DataTable()      MiAdaptador.Fill(dt)      Dim customerRow() As DataRow      customerRow = dt.Select("Rut = '" & Run & "'")      If dt.Rows.Count > 0 Then        MsgBox("Actualizando...")      Else        MsgBox("Grabando...")      End If      customerRow(0)("CompanyName") = "Updated Company Name"      customerRow(0)("City") = "Seattle"
    jueves, 15 de abril de 2010 13:58