Hola a todos,
quisiera saber si alguien sabe decirme como modificar un campo de una bd access
Necesito vaciar un campo de hora y otro de fecha dejandolos en null
En Visual Basic introdusco la fecha y la hora con 2 datetimepicker.
Para que se pueda modificar algo ya guardado,
junto al boton guardar necesito agregar algo parecido a
if DateTimePickerHora.Checked = False Then
"campo hora = null"
end if
esto no lo logro decifrar, probe con DELETE y me vacia toda la tabla
INSERT INTO o UPLOAD no lo supe hacer
En BindingContext tampoco vi como vaciar un campo
Ya tengo el boton eliminar pero elimina la fila entera
El codigo es así:
Imports System.Data.OleDb
Public Class Form1
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
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
Gracias por cualquier ayuda que podias aportarme.
