Visual Basic - Cuando ejecuto este codigo me tira error al abrir la base de datos

Life is soft - evento anual de software empresarial
   
Vista:

Cuando ejecuto este codigo me tira error al abrir la base de datos

Publicado por Gustavo eltonyvii@gmail.com (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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo Patricio Castillo

Cuando ejecuto este codigo me tira error al abrir la base de datos

Dim conexion As new OleDbConnection

Y en tu connectionString, quita los paréntesis

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Cuando ejecuto este codigo me tira error al abrir la base de datos

Publicado por Gustavo (3 intervenciones) el 19/03/2016 01:03:23
Muchas gracias me salvaste!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar