Mensaje

[Cony28]

Hola a todos:

Deseo enviar un mensaje de que si la conexion a la base fue exitosa o otro que diga que no se pudo conectar en caso de que no se conecte a la base.
Este mi codigo:

Dim CnnS As Connection
Dim CnnA As Connection
Dim RsSQL As Recordset
Dim RsAcc As Recordset

Private Sub cmdConectaAccess_Click()
ConectaA
End Sub

Private Sub cmdConectaSQL_Click()
ConectaSQL
End Sub

Public Sub ConectaA()
Set CnnA = New Connection
With CnnA
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\comercio.mdb"
.Open
End With
Set RsAcc = New Recordset
RsAcc.Open "Select * from empresa", CnnA
End Sub

Public Sub ConectaSQL()
Set CnnS = New Connection
With CnnS
.Provider = "SQLOLEDB"
.ConnectionString = "User Id=alumno;Password=123;" & _
"Data Source=ServerSQL; " & _
"Initial Catalog =comercio"
.Open
End With
Set RsSQL = New Recordset
RsSQL.CursorLocation = adUseServer
RsSQL.Open "SELECT * FROM empresa", CnnS
End Sub


Private Sub cmdPasaDatos_Click()
Do While Not RsAcc.EOF
RsAcc!rut = RsSQL!rut
RsAcc!empresa = RsSQL!empresa
RsAcc!direccion = RsSQL!direccion
RsAcc!factura = RsSQL!factura
RsAcc!estado = RsSQL!estado
RsAcc.AddNew
Loop
End Sub

[GeoAvila]

en que parte queres el mensaje

porque la idea puede se asi..

if err <> 0 then
msgbox "conectado bien"
else
msgbox "hubo un error al conectarse: " & err
end if

es pero te sirva el ejemplo

[Cony28]

lo quiero en la parte de cuando se aprieta el boton ya sea para sql o access
AQUI!!!!!
Public Sub ConectaA()
Set CnnA = New Connection
With CnnA
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\comercio.mdb"
.Open
End With
Set RsAcc = New Recordset
RsAcc.Open "Select * from empresa", CnnA
End Sub

Public Sub ConectaSQL()
Set CnnS = New Connection
With CnnS
.Provider = "SQLOLEDB"
.ConnectionString = "User Id=alumno;Password=123;" & _
"Data Source=ServerSQL; " & _
"Initial Catalog =comercio"
.Open
End With
Set RsSQL = New Recordset
RsSQL.CursorLocation = adUseServer
RsSQL.Open "SELECT * FROM empresa", CnnS
End Sub

[pablinweb]

tambien puedes poner una función en lugar de un sub y que te devuelva true o false, algo así:

Private Sub cmdConectaAccess_Click()
if ConectaA then
msgbox "Conexión OK"
else
msgbox "Fallo en la conexión"
end if
End Sub


Public Function ConectaA() as Boolean
On Error goto ErrConnA
ConectaA = true
Set CnnA = New Connection
With CnnA
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\comercio.mdb"
.Open
End With
Set RsAcc = New Recordset
RsAcc.Open "Select * from empresa", CnnA
ErrConnA:
ConectaA = false
End Function