• Jueves 25 de Abril de 2024, 17:08

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 - EDGAR123

Páginas: [1]
1
Papelera / Punto venta
« en: Sábado 16 de Enero de 2010, 18:49 »
alguien me puede ayudar hacer un punto de venta.
la verdad es que no se nada de Java, bueno el punto es que es un proyecto de
titulacion,  y pues si me pueden dan referencias o mandar un ejemplo para
poder guiarme este es mi correo edgarhno1@hotmail.com

2
VB .NET / No Actualiza
« en: Domingo 19 de Julio de 2009, 23:11 »
Hola Compañeros
Bueno escrio solamente aver si me pueden ayudar mi problema es que
cuando selecciono una fila del datagrid para actualiza datos y cambio los datos y al momento
que le doy actualizar finge que actualiza pero en realidad no lo actualiza en la base de datos
este es mi codigo si me pueden ayudar porfavor
se los agradeceria
jajaja



CODIGO...
Try
            Dim pregunta As String
            pregunta = MsgBox("Desea Actualizar sus Datos", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "ACTUALIZAR")

            If pregunta = vbYes Then
                Me.BindingContext.Item(Me.DsBuscar1.Empleados).EndCurrentEdit()
                Me.OleDbDataAdapter1.SelectCommand.CommandText = "UPDATE Equipos_Seguridad INNER JOIN (Empleados INNER JOIN [Entregado a] ON Empleados.No_Trabajador = [Entregado a].No_trabajador) ON Equipos_Seguridad.No_Equipo = [Entregado a].No_Equipo SET Empleados.[Nombre(s)] = " & Me.txtnombre.Text & ", Empleados.Apellido_Paterno = " & Me.txtapp.Text & ", [Entregado a].Fecha_Entrega = " & Me.DateTimePicker1.Text & ", [Entregado a].Cantidad = " & Me.txtCantiad.Text & ", Equipos_Seguridad.Nombre_Equipo = " & Me.txtNombreEquipo.Text & ""
                Me.DsBuscar1.Empleados.AcceptChanges()
                MsgBox("Datos Actualizados Perfectamente", MsgBoxStyle.Information, "ACTUALIZAR")

            ElseIf pregunta = vbNo Then
                Me.Close()
            End If
        Catch ex As Exception
            MsgBox("Error " + ex.ToString, MsgBoxStyle.Critical, "Error")
        End Try
        Me.DsBuscar1.Empleados.Clear()



GRACIAS
SALUDOS....

3
VB .NET / Problemas en Update
« en: Lunes 13 de Julio de 2009, 01:44 »
hola. a todos...
tengo un pequeño sistemita donde se ace un A,B,C  ok
mi proble es que hice un formulario para hacer una consulta general de todas las tablas coloque un combo box pra tener diferentes obciones de busqueda como
No_Trabajador,Nombre etc... y un textbox para buscar lo que quisiese y tambien tengo un boton modificar alcual al darle clic me manda los datos del DataGrid a otro formulario para modificarlos hata ahi esta todo bien el problema es al guardar los cambios me sale un error con este mensaje

Información adicional: Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
el cual no se como usar
este es mi codigo si tiene un error me podrian ayudar porfavor

Private Sub Modificar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbConnection1.Open()
        Me.DsBuscar1.Empleados.Clear()
        Me.OleDbDataAdapter1.SelectCommand.CommandText = "SELECT Empleados.No_Trabajador, Empleados.[Nombre(s)], Empleados.Apellido_Paterno, [Entregado a].No_Entrega, [Entregado a].Fecha_Entrega, [Entregado a].Cantidad, Equipos_Seguridad.Nombre_Equipo, Equipos_Seguridad.No_Equipo FROM ((Empleados INNER JOIN [Entregado a] ON Empleados.No_Trabajador = [Entregado a].No_trabajador) INNER JOIN Equipos_Seguridad ON [Entregado a].No_Equipo = Equipos_Seguridad.No_Equipo) WHERE Empleados.No_Trabajador like " & id
        Me.OleDbDataAdapter1.Fill(Me.DsBuscar1.Empleados)
        Me.OleDbConnection1.Close()
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Me.BindingContext.Item(Me.DsBuscar1.Empleados).EndCurrentEdit()
        Me.OleDbDataAdapter1.Update(Me.DsBuscar1.Empleados)
        Me.DsBuscar1.Empleados.Clear()
    End Sub
End Class
en la linea Me.OleDbDataAdapter1.Update(Me.DsBuscar1.Empleados) aqui me aparece el error

disculpen las molestias soy nuevo en esto y no tengo esperiencia

NOTA: uso visual studio.net 2003 y access 2003


SALUDOS

Páginas: [1]