Conexión SQL
Hola Master, tengo un ODBC con nombre Ruta, que me gustaría conectar a mi aplicación Visual 6. El ODBC apunta a una base de datos SQL que se encuentra bien conectada. ¿Me puedes ayudar con la conexión?.
Gracias de antemano..
Terramar
Gracias de antemano..
Terramar
Respuesta de fvomaster
1
Gusto volver a saludarte, por favor prueba con esto..
Public conexion As ADODB.Connection
Set conexion = New ADODB.Connection
On Error GoTo problemaconexion
conexion.ConnectionString = "DSN=Ruta;User Id=TUID;PWD=TUPASSWORD;"
conexion.Open
'Estado de la conexion
problemaconexion:
If Err.Number = 80004005 Then
MsgBox "No es posible establecer la conexión con el Servidor SQL, restablezcala e inténtelo nuevamente.", vbCritical, "Módulo de Seguridad."
End
End If
'Ahora me conecto con la Tabla Clientes en el recordset Clientes
Set TClientes = New ADODB.Recordset
TClientes. Open "Clientes", Menú. Conexion,, adOpenDynamic
Prueba y me avisas, ¿ok?
Un abrazo desde Chile..
Master
Public conexion As ADODB.Connection
Set conexion = New ADODB.Connection
On Error GoTo problemaconexion
conexion.ConnectionString = "DSN=Ruta;User Id=TUID;PWD=TUPASSWORD;"
conexion.Open
'Estado de la conexion
problemaconexion:
If Err.Number = 80004005 Then
MsgBox "No es posible establecer la conexión con el Servidor SQL, restablezcala e inténtelo nuevamente.", vbCritical, "Módulo de Seguridad."
End
End If
'Ahora me conecto con la Tabla Clientes en el recordset Clientes
Set TClientes = New ADODB.Recordset
TClientes. Open "Clientes", Menú. Conexion,, adOpenDynamic
Prueba y me avisas, ¿ok?
Un abrazo desde Chile..
Master
