Pregunta: | 1289 - LLAMAR A UNA BASE DE DATOS EN UN NT MEDIANTE ODBC |
Autor: | Xavi |
Cual es el codigo fuente que me permite llamar a una base de datos (ACCESS) ubicada en un servidor NT desde una estacion de trabajo mediante el ODBC. |
Respuesta: | Victor Hernandez |
Referencia tu proyecto a la siguiente libreria: Microsoft ActiveX Data Objects Y este el código que necesitarias ´Conexión original ADO. Public cnnDB As ADODB.Connection dim sDSN as string dim iODBCDriver as string dim sConnectionString as string dim sDriver as string dim sPassword as string dim sUsuario as string ´AliasODBCdelaBaseDatos sDSN="AliasODBCdelaBaseDatos" ;(0=Access, 1=SqlServer, 2=Oracle) iODBCDriver=0 Select Case iODBCDriver Case 0: sDriver = "ACCESS" Case 1: sDriver = "SQL SERVER" Case 2: sDriver = "ORACLE" End Select sConnectionString = "driver=" & sDriver & ";data source=" & sDSN & ";uid=" & sUsuario & ";pwd=" & sPassword Set cnnDB = New ADODB.Connection cnnDB.Open sConnectionString |