10/03/2003, 16:23
|
| | | Fecha de Ingreso: febrero-2001
Mensajes: 1.374
Antigüedad: 24 años, 1 mes Puntos: 11 | |
| Private Sub Form_Load()
On Error GoTo trataerror
Dim oConn As Object ' Objeto de conexión si no hemos establecido pre-referencias.
Dim NombreBd As String ' Nombre de la base de datos.
NombreBd = "c:\datos\articulos.mdb" 'Coloque aquí la ruta a su B.D.
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NombreBd
MsgBox "Su versión de MDAC es la " & oConn.version
Exit Sub
trataerror:
MsgBox "Se ha producido el error Nº" & Err.Number & ".- " & Err.Description
End Sub |