Imports System.Data.OleDb
Public Class Form1
'inicio de declaracion de variables
Public CNN As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & CurDir() & "Agenda.accdb")
Public DM As New OleDbDataAdapter("SELECT * FROM Tabla", CNN)
Public DS As New DataSet
Public DT As New DataTable
Public CB As OleDbCommandBuilder
'fin de declaracion de variables
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DM.Fill(DS, "Medicamento01")
CB = New OleDbCommandBuilder(DM)
datetimepicker1.DataBindings.Add(New Binding("Text", DS, "Tabla.Campo1"))
datetimepicker2.DataBindings.Add(New Binding("Text", DS, "Tabla.Campo2"))
End Sub
Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
Me.BindingContext(DS, "Tabla").AddNew()
datetimepicker1.Value = Now
datetimepicker2.Value = Now
End Sub
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
'BindingContext(DS, "Tabla").EndCurrentEdit()
''DM.Update(DS, "Tabla")
'DS.Tables("Tabla").AcceptChanges()
End If
End Sub
Private Sub EliminarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem1.Click
Posicion = BindingContext(DS, "Tabla").Position
DS.Tables("Tabla").Rows(Posicion).Delete()
DM.Update(DS, "Tabla")
DS.Tables("Tabla").AcceptChanges()
End Sub