Buenas,
Estoy realizando un programa el cual tiene un formulario y varias Clases con una base de datos de Acces.
El problema que tengo, es el siguiente:
- Tal y cómo está ahora el programa funciona correctamente, no da errores, pero necesito añadir más clases para poder añadir más empresas.
- Al añadir más clases me da un error de conexión. Si elimino la clase creada (copiar y pegar de las anteriores que si que funcionan) funciona todo correctamente.
- La que falla no es la última creada, sino la anterior... cosa rara...
el código que falla es el siguiente:
Código:
'Constructor de la clase
Public Sub New()
conectar()
End Sub
Public Sub conectar()
Dim ruta As String
ruta = Application.StartupPath & "\bdDatabase.mdb;Jet OLEDB:Database Password=pass;"
'conexionBD = New OdbcConnection("dsn=RedUtility;uid=root;pwd=pass;")
conexionBD = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta)
conexionBD.Open()
sql = New OleDb.OleDbCommand
sql.Connection = conexionBD
End Sub
El error que me dá es el siguiente:
Me marca en amarillo la siguiente línea:
Y me indica lo siguiente:
No se controló OleDbException
Error no especificado
Me estoy empezando a volver loco, porque he estado probando cosas pero no consigo ni engañarle ni nada al programa!!!!