Hago un sistema en VB 2008 con conexion a base de datos ACCESS 2000 y todo iba fantastico, ejecutaba mi avance del sistema sin mayor problema con el acceso a los datos en la base. Bueno resulta que por estar pensando en que mejorar a mis sistema dejé la computadora solita durante unos 30 minutos, inmediatamente despúés ejecuté otra vez el sistema y un error se mostró:
"Error de disco o de Red" y no se como solucionarlo
podrían darme la solución a mi problema, ya ví que si hago otro programa con acceso a base dedatos funciona bien sin errores. El sistema es el que simpre me muestra el error. gracias dejo una parte del codigo indicando donde se inicia el error:Dim conexion As New OleDbConnection
'Se obtiene el provedor de la base de datos para la conexión:
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Proyectos\Restaurante\DataBase\losjarros .mdb; Jet OLEDB:Database Password=Alucard"
'Se crea el comando que abrira la conexión y contendrá la sentencia SQL deseada:
Dim comando As New OleDbCommand
'Se crea una variable de tipo cadena para contener la sentencia SQL deseada:
Dim strSQL As String
'En este case la sentencia SQL es SELECT para el acceso al sitema del restaurant mediante la contraseña
'Si la contraseña en la base de datos es una cadena de texto se usan las comillas representadas por Chr(34) de lo contrario no:
strSQL = "SELECT Contraseña, Recordatorio, AccesoTotal FROM Empleados WHERE [Id de empleado] =" & TextBoxIDAcceso.Text
'Se da la sentencia al comando:
comando.CommandText = strSQL
'Se hace la conexión:
comando.Connection = conexion
Try
'Se abre la conexión a los datos AQUI SE INICIA EL ERROR:
conexion.Open()
'Se crea un lector para los resultados de la sentencia SQL:
Dim lector As OleDbDataReader
'Se inicia la lectura:
lector = comando.ExecuteReader
'Por si hay varios registros se crea el ciclo de lectura:
While lector.Read
'Muestra el resultado obtenido, lector.Item(0) es lo que leyó el lector:
strContraseñaEmp = lector.Item(0)
strRecordatorio = lector.Item(1)
strAccesototal = lector.Item(2)
End While
'Dejamos de ocupar el lector y lo cerramos:
lector.Close()
'Dejamos de ocupar la conexión y la cerramos:
conexion.Close()
'Si hay algún error se mostrara:
Catch ex As Exception
MsgBox(ex.Message)
End Try
Muchisimas gracias por cualquier ayuda, se que esto les puede suceder a varios porlotanto cuando sepa la solución congusto la difundiré.
