>>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 >>>>