• Martes 14 de Abril de 2026, 09:23

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - zumimoraes

Páginas: [1]
1
VB .NET / modificar por sql
« en: Miércoles 24 de Noviembre de 2010, 15:48 »
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.

2
VB .NET / obtener variable desde archivo.txt
« en: Martes 16 de Noviembre de 2010, 14:33 »
Hola,
os cuento mi problema.
Para verificar una orden dada a una aplicacion en tiempo de ejecucion tras su reinicio, cree un archivo txt que guarde el dato.
Asi al reiniciar leo el archivo.txt y segun lo que este escrito efectuo la accion en el formulario.
Simplemente es para decirle a la aplicacion que se inicie en 2º plano.
Lo hice así:

Asi genero el archivo: (y funciona)
Dim ficheroInicio As String = CurDir() & "Inicio.txt"
Dim textoInicio As String
Dim fi As New System.IO.StreamWriter(ficheroInicio)
textoInicio = "Minimizado"
fi.WriteLine(textoInicio)
fi.Close()

Asi escribo la condición:
Dim fileReaderInicio As String
fileReaderInicio = My.Computer.FileSystem.ReadAllText(CurDir() & "Inicio.txt")

If fileReaderInicio = "Minimizado" Then
CheckBoxInicioMin.Checked = True        ' este CheckBox es quien indica si ya esta dada la orden de que inicie en 2º plano
End If

Y  esta condición no funciona.
Pero si escribo esto
MsgBox(fileReaderInicio)
Sale la ventana que dice Minimizado
Por lo cual no comprendo por que fileReaderInicio no es igual que  "Minimizado"
Gracias por la atención

3
VB .NET / DataTimePicker sin hora
« en: Martes 16 de Noviembre de 2010, 13:12 »
Hola, me presento, soy nuevo en este foro.
Aquí va una pregunta de nu novato de Visual Basic.
Estoy creando una agenda con alarmas. Y no se como borrar un dato ya guardado en access por medio de DataTimePicker.
Tengo un DataTimePicker - format Time, con el cual guardo en access la hora seleccionada (campo access en formato Fecha y Hora)

Mi problema esta al querer modificar esto.
Yo guardo la Alarma con Fecha, Hora  y Nota. Dos DataTimePicker (uno en hora y otro en fecha) y un TextBox ( para escribir la nota de la alrma)
Si ahora quiero borrar la hora de la alarma registrada ya en la bd access, no se como hacerlo.

Para ello lo 1º que probe fue agregar un checkBox a DataTimePicker o aplicar DataTimePicker.Enabled = False  antes de  guardar. Crei que esto guardaria un dato vacio, pero no es así, la BD no se modifica.

De esta manera leo los datos de la BD
DataTimePicker.DataBindings.Add(New Binding("Text", DataSet, "Tabla.Campo"))

De esta guardo los cambios
       BindingContext(DataSet, "Tabla").EndCurrentEdit()
        ConsultaSQL.Update(DataSet, "Tabla")
        DataSet.Tables("Tabla").AcceptChanges()

De esta forma elimino la  fila entera
 Posicion = BindingContext(DataSet, "Tabla").Position
                DataSet.Tables("Tabla").Rows(Posicion).Delete()
                ConsultaSQL.Update(DataSet, "Tabla")
                DataSet.Tables("Tabla").AcceptChanges()

Esto funciona si uso todo como texto.  Usando label en lugar de DataTimePicker  y en access declarando el campo como texto. Un label vacio al guardarlo deja el campo de access vacio.
Pero deseo aprender a hacer esto con variables tipo Date

Gracias por cualquier ayuda que puedan darme.
Saludos

Páginas: [1]