Problemas al agregar datos a la base de datos
Publicado por Alejandro (3 intervenciones) el 17/02/2017 09:43:13
Estimados:
He intentado ingresar datos a la base de datos en access, buscando ejemplos encontré esta estructura, el tema es que los datos no son reflejados en la base de datos, he leido que los datos se sobrescriben cada vez que se compila el proyecto. Pero al salir de la aplicación y ver si los datos se han registrado no hay nada.
Algunas sugerencias, adjunto el código del botón de aceptar
He intentado ingresar datos a la base de datos en access, buscando ejemplos encontré esta estructura, el tema es que los datos no son reflejados en la base de datos, he leido que los datos se sobrescriben cada vez que se compila el proyecto. Pero al salir de la aplicación y ver si los datos se han registrado no hay nada.
Algunas sugerencias, adjunto el código del botón de aceptar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub btn_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Ok.Click
Dim Tabla As DataTable = Me.Biblio_AlmacenDataSet.Tables("BiblioCen")
Dim Fila_Datos As DataRow = Tabla.NewRow()
' obtener un nuevo objeto fila de la tabla del dataset
' asignar valor a los campos de la nueva fila
Fila_Datos.Item("ISBN") = Me.txt_ISBN.Text
Fila_Datos.Item("Id_CatPrincipal") = Me.txt_IdPpal.Text
Fila_Datos.Item("Id_CatSec") = Me.txt_IdSec.Text
Fila_Datos.Item("Titulo") = Me.txt_Title.Text
Fila_Datos.Item("Autor") = Me.txt_Autor.Text
Fila_Datos.Item("Editorial") = Me.txt_Edit.Text
Fila_Datos.Item("Ediciones") = Me.txt_Edic.Text
Fila_Datos.Item("Año") = Me.txt_Año.Text
Fila_Datos.Item("Lenguaje") = Me.cmb_Lang.Text
Fila_Datos.Item("Portada") = Me.Fuente
Fila_Datos.Item("Desc_Cat") = Me.cmb_Ppal.Text
Fila_Datos.Item("Archivo") = Me.txt_File.Text
Tabla.Rows.Add(Fila_Datos)
End Sub
Valora esta pregunta
0
