| Pregunta: | 28457 - CREAR CONEXION ODBC CON DSN EN VISUAL BASIC |
| Autor: | Vinicio Diaz |
| Necesito el codigo de como crear una coneccion ODBC utilizando un DSN en Visual Basic. Gracias | |
| Respuesta: | Vinicio Diaz |
| La manera mas facil que e encontrado para coneccion odbc utilizando un DSN es: Set dbs = CreateObject("ADODB.Connection") dbs.Open "dsn=Nombre_dsn" dbs ----> es el nombre de la coneccion que se podra utilizar en todo el aplicativo Nombre_dsn ---> es el nombre del DSN creado con ODBC | |
| Respuesta: | Roberto S. Gutiérrez Sáez |
| estimado espero que lo entiendas, esta es una funcion que te permite conectar mediante un dsn a la base de datos y que ademas te indica si la conexion se establecio correctamente o no tu llamas a la funcion de la siguiente manera If FPB_Conectar Then MsgBox "CONEXION OK!" else MsgBox "CONEXION NO OK!" End IF Y la Funcion seria Function FPB_Conectar() As Boolean Dim str_Conexion As String On Error GoTo E_SQL Set VGW_wrkODBC = CreateWorkspace("NuevoWorkspaceODBC", "admin", "", dbUseODBC) VGW_wrkODBC.DefaultCursorDriver = dbUseClientBatchCursor str_Conexion = "ODBC;DATABASE=DF_P;UID=sa;PWD=;DSN=Base de Datos" Set VGC_Conexion = VGW_wrkODBC.OpenConnection("conexion1", dbDriverNoPrompt, , str_Conexion) FPB_Conectar = True Exit Function E_SQL: MsgBox Err.Description FPB_Conectar = False End Function sin mas y esperando tu correo | |