Hola!
Quisiera preguntar si alguien tiene algun codigo de una function o sub en casos de problema de conexion con la base de datos.
Soy nuevo en .net y en vb6, utilizaba esta function para conectarme a la bd pero no se como migrar ese codigo a .net:
Código:
Public Function Conectar() As Boolean
Dim strconn As String
'define cadena de conexion
strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=work;" & _
"Data Source=FMB-PC"
'establece la conexion
On Error GoTo conerror
Set Cn = New ADODB.Connection
Cn.Open strconn
Conectar = True
Exit Function
conerror:
Conectar = False
MsgBox (Err.Number & " Error en la conexión: " & Err.Description)
End Function
Public Sub Desconectar()
On Error Resume Next
Cn.Close
End Sub
En .net utilizo este simple codigo para conectarme pero no se como validar o poner un message en caso que haya problemas de conexion:
Código:
Dim MiRuta As String = AppDomain.CurrentDomain.BaseDirectory + "empleados.mdb"
Public sqlcon As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source = " & MiRuta & "")
Saludos!!!!