Cuando ejecuto este codigo me tira error al abrir la base de datos
Publicado por Gustavo (3 intervenciones) el 18/03/2016 14:50:39
Soy nuevo en visual basic, y estoy intentando hacer un programa para administrar una biblioteca chica. Uso visual studio 2012, y hasta ahora tengo 2 formularios cuando abro el primero hago click en un boton para agregar libro y se abre el segundo, ahi deberia abrir la conexion a la base de datos, pero cuando ejecuto este codigo me tira error diciendo que no puede abrir la base de datos. No se cual es el error al abrir la base de datos. Desde ya muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
'Importo espacio de nombres
Imports System.Data.OleDb
Public Class Agregarlibro
'Creo conexiones
Dim conexion As OleDbConnection
Dim comandos As OleDbCommand
Private Sub NwLibro_Click(sender As Object, e As EventArgs) Handles NwLibro.Click
'Habilito los textbox y focalizo en numero de libro
txtNLibro.Enabled = True
txtNombreLibro.Enabled = True
txtISBN.Enabled = True
txtEdicion.Enabled = True
txtEditorial.Enabled = True
txtAno.Enabled = True
txtNLibro.Focus()
End Sub
Private Sub Agregarlibro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Cuando carga el formulario que intente abrir la base de datos
Try 'Acordarme de ajustar la ruta para que funcione en la maquina del Cekyf
conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & "C:\Users\GusyNoe\Desktop\Biblioteca CEKYF\Bibliokinetico\Bibliokinetico\Cekyf21.mdb")
conexion.Open()
MsgBox("La conexion a la base de datos ha sido exitosa", vbInformation, "Correcto")
Catch ex As Exception
MsgBox("Ha habido un error al abrir la base de datos", vbExclamation, "Error")
End Try
End Sub
Private Sub GLibro_Click(sender As Object, e As EventArgs) Handles GLibro.Click
'Hago consulta INSERT
Try
comandos = New OleDbCommand("INSERT INTO Libros (NLibro, Nombre, Editorial, Edicion, ISBN, Año) VALUES" & vbCrLf &
"(txtNLibro, txtNombreLibro, txtEditorial, txtEdicion, txtISBN, txtAno)", conexion)
'Modifico efectivamente los datos
comandos.Parameters.AddWithValue("@Nlibro", txtNLibro.Text)
comandos.Parameters.AddWithValue("@Nombre", txtNombreLibro.Text)
comandos.Parameters.AddWithValue("@Editorial", txtEditorial.Text)
comandos.Parameters.AddWithValue("@Edicion", txtEdicion.Text)
comandos.Parameters.AddWithValue("@ISBN", txtISBN.Text)
comandos.Parameters.AddWithValue("@Año", txtAno.Text)
'Ejecuto la consulta hecha
comandos.ExecuteNonQuery()
MsgBox("Guardado correcto", vbInformation, "Correcto")
'Bloqueo los campos
txtNLibro.Enabled = False
txtNombreLibro.Enabled = False
txtISBN.Enabled = False
txtEdicion.Enabled = False
txtEditorial.Enabled = False
txtAno.Enabled = False
txtNLibro.Clear()
txtNombreLibro.Clear()
txtISBN.Clear()
txtEdicion.Clear()
txtEditorial.Clear()
txtAno.Clear()
txtNLibro.Focus()
Catch ex As Exception
MsgBox("Error al guardar", vbExclamation, "Error")
End Try
conexion.Close() 'Cierro la conexion a la base de datos
Principal.Show() 'Llamamos al formulario incial
Me.Close() 'Cierro el formulario actual
End Sub
End Class
Valora esta pregunta
0
