Desde hace ya un tiempo tengo la duda que como poder hacer un DSN via prg, tengo unos intentos y en una creacion dsn para Access funciona.
Pero mi problema esta ahora en una creacion de dsn para SQL Server, tengo el siguiente codigo y trabaja bien, con un pequeño detalle... no puedo especificar usuario y clave y claramente es importante definir dichos parametros.
Alguien tiene alguna idea para esta duda? Les dejo ambos codigos
Saludos
Code: Select all | Expand
** este codigo funciona para SQL SErver, pero no permite definir usuario y clave...cSeparador := Chr(0)cDriver :="SQL Server"cAttribute:="DSN=AUTO"+cSeparador+; "SERVER=192.168.1.1"+cSeparador+; "ADDRESS=192.168.1.1"+cSeparador+; "DESCRIPTION=Conexion ODBC"+cSeparador+; "DATABASE=MIBASESQL"+cSeparador+cSeparador nRet := CrtDtaSrc( 0, 1, cDriver, cAttribute )RETURN NIL//--------------------------------------------------------------------------------------------------------------------------DLL32 FUNCTION CrtDtaSrc(hWnd AS LONG, nRequest AS LONG, @cDriver as STRING , @cAttributes as STRING) ; AS _INT PASCAL FROM "SQLConfigDataSource" LIB "ODBCCP32"
Code: Select all | Expand
FUNCTION ConectarAccess()LOCAL nRet,cDriver,cAttributeMEMVAR DEFATMPcDriver :="Microsoft Access Driver (*.mdb)"cAttribute:="DSN=BASEACCESS"+Chr(0)+; "DESCRIPTION=Conector automatico ACCESS"+Chr(0)+; "SERVER=127.0.0.1"+Chr(0)+; "DBQ="+DEFATMP+"\BASEACCESS.mdb"+Chr(0)+; "FIL=MS Access;"+Chr(0)+; "UID=USER32"+Chr(0)+; "PWD=USERS32"nRet := CrtDtaSrc(0,1,cDriver, cAttribute )RETURN NILDLL32 FUNCTION CrtDtaSrc(hWnd AS LONG, nRequest AS LONG, @cDriver as STRING , @cAttributes as STRING) ; AS _INT PASCAL FROM "SQLConfigDataSource" LIB "ODBCCP32"