>DECLARE INTEGER SQLConfigDataSource IN ODBCCP32.DLL Integer, Short, String @, String @ > >LOCAL lcDriver, lcDSN, lnRC > >#define ODBC_ADD_DSN 1 >#define ODBC_CONFIG_DSN 2 >#define ODBC_REMOVE_DSN 3 >#define ODBC_ADD_SYS_DSN 4 >#define ODBC_CONFIG_SYS_DSN 5 >#define ODBC_REMOVE_SYS_DSN 6 >#define ODBC_REMOVE_DEFAULT_DSN 7 > >lcDriver = "SQL Server" + CHR(0) >lcDSN = "SERVER=EVALUATION\MIDDLETIERGED" + CHR(0) +; > "DESCRIPTION=XXXXXXXXXX" + CHR(0) +; > "DSN=XXXXXXXXXX" + CHR(0) +; > "DATABASE=GDOCINTR" + CHR(0) +; > "UID=sa" + CHR(0) +; > "PWD=" + CHR(0) > >lnRC = SQLConfigDataSource(0, ODBC_ADD_DSN, @lcDriver, @lcDSN) > >= MESSAGEBOX("lnRC = " + STR(lnRC, 2, 0)) > >RETURN >>