base de datos de VB 2005 express

08/09/2006 - 04:40 por Mauricio_VB2005Express | Informe spam
Estoy empezando a programar en Visual Basic 2005 edition express y
quisiera tener una ayudita para tener un buen comienzo.
Tengo el siguiente programa para manejar una base de datos, pero al
realizar una modificacion, alta o baja de algun dato no lo modifica en
la base de datos, lo hace solo temporal, es decir dentro del programa,
pero al salir y volverlo a correr vuelven los datos originales, los
cargados en el momento de la creacion.
Igualmente el programa me tira el mensaje que la modificacion fue
aceptada.


Public Class VendedoresForms
Private Sub VendedoresForms_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla
'VendedoresDataSet.Vendedores' Puede moverla o quitarla según sea
necesario.
Me.VendedoresTableAdapter.Fill(Me.VendedoresDataSet.Vendedores)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.VendedoresBindingSource.Add(Row)
TextBox2.Focus()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Try
Me.Validate()
Me.VendedoresBindingSource.EndEdit()

Me.VendedoresTableAdapter.Update(Me.VendedoresDataSet.Vendedores)
MsgBox("Modificación Aceptada")

Catch ex As Exception
MsgBox("Falló Modificación")
End Try

End Sub
End Class

El ejemplo lo saque de la ayuda del Visual Basic Edition Express con
algunas modificaciones mias.
Bueno, ojala puedan ayudarme. Desde ya muchas gracias.
 

Leer las respuestas

#1 Eduardo Alvarado Meza
08/09/2006 - 06:41 | Informe spam
Ala, este post siempre aparece casi todas las semanas, tiene un promedio de
4 veces por mes. Haz click en la bd en el explorador de soluciones, luego
cambia la propiedad build action al valor No Copiar. Despues de esto
necesitaras refrescar la cadena de conexion por la ubicacion correcta del
.mdf, esta la puedes ver en la propiedades del proyecto, en la ficha
settings, y aparece como connectionstring, verifica que la ruta del archivo
mdf es la correcta.

Se debe a que cuando corres la app se crea una copia del mdf original, por
lo que cuando trabajas sobre la bd lo haces sobre una copia; cuando
reinicias la aplicacion se vuelve crear una copia del original
sobreescribiendo la copia vieja.

"Mauricio_VB2005Express" escribió en el mensaje
news:
Estoy empezando a programar en Visual Basic 2005 edition express y
quisiera tener una ayudita para tener un buen comienzo.
Tengo el siguiente programa para manejar una base de datos, pero al
realizar una modificacion, alta o baja de algun dato no lo modifica en
la base de datos, lo hace solo temporal, es decir dentro del programa,
pero al salir y volverlo a correr vuelven los datos originales, los
cargados en el momento de la creacion.
Igualmente el programa me tira el mensaje que la modificacion fue
aceptada.


Public Class VendedoresForms
Private Sub VendedoresForms_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla
'VendedoresDataSet.Vendedores' Puede moverla o quitarla según sea
necesario.
Me.VendedoresTableAdapter.Fill(Me.VendedoresDataSet.Vendedores)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Me.VendedoresBindingSource.Add(Row)
TextBox2.Focus()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Try
Me.Validate()
Me.VendedoresBindingSource.EndEdit()

Me.VendedoresTableAdapter.Update(Me.VendedoresDataSet.Vendedores)
MsgBox("Modificación Aceptada")

Catch ex As Exception
MsgBox("Falló Modificación")
End Try

End Sub
End Class

El ejemplo lo saque de la ayuda del Visual Basic Edition Express con
algunas modificaciones mias.
Bueno, ojala puedan ayudarme. Desde ya muchas gracias.

Preguntas similares