Ayuda... Por favor
Quisiera me escribieran el codigo en VB.NET para yo Deshabilitar y Habilitar la conexion a la red...
Se lo agradezco de ante mano...
Se lo agradezco de ante mano...
Para conectarte tienes q crear un objeto Connection. Esta funcion podria servirte:
Friend Function Conectar(ByRef nombreBaseDatos As String, ByRef clave As String)
Dim CadenaConexion As String
'
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
& nombreBaseDatos & _
"; Jet OLEDB:Database Password=" & clave
'
Try
dbConnection = New OleDbConnection(CadenaConexion)
dbConnection.Open()
Catch e As Exception
MsgBox("Error al crear la conexi贸n:" & vbCrLf & e.Message, MsgBoxStyle.Critical, "Comprobaci贸n de Datos")
Return False
End Try
'
dbDataSet = New Data.DataSet
'
Return True
End Function
Para desconectarte simplemente cierra el objeto connection: dbConnection.Close
Espero q t sirva.
Friend Function Conectar(ByRef nombreBaseDatos As String, ByRef clave As String)
Dim CadenaConexion As String
'
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
& nombreBaseDatos & _
"; Jet OLEDB:Database Password=" & clave
'
Try
dbConnection = New OleDbConnection(CadenaConexion)
dbConnection.Open()
Catch e As Exception
MsgBox("Error al crear la conexi贸n:" & vbCrLf & e.Message, MsgBoxStyle.Critical, "Comprobaci贸n de Datos")
Return False
End Try
'
dbDataSet = New Data.DataSet
'
Return True
End Function
Para desconectarte simplemente cierra el objeto connection: dbConnection.Close
Espero q t sirva.
