我有一個運行多個查詢的腳本;因此，每次調用“Open Database（）”命令時，我的客戶都必須選擇DSN。所以我寫了一個函數來解決這個問題。當用戶選擇DSN字符串時，它會攔截DSN字符串，並將其保存到變量中。然後我的腳本可以在以後訪問DSN而無需用戶重新選擇。
/*
Function
to intercept user's DSN
selection through ODBC interface for database queries.
This is useful for scripts that
run Open Database() multiple times on the same database.
Opens user's Windows ODBC to allow them to select a DSN.
Returns the DSN string to query the database. If fail, it pops up
a window indicating the error, and returns empty string.
Arguments:
_test_query_:
A very simple query that will return a SQL error if
user
selected wrong DSN. It
will return a
results table if there is no error.
_database_:
The name of the database for the error window.
Local
Variables:
_DSN_test_:
temporary table that will contain the table variable with DSN
_DSN_string_:
string extracted from Database query results Table Variable "JSL"
Example
usage:
DSN_setup("SELECT
TOP 1 * FROM dbo.Dim_DiePV","NSGTestDW");
*/
::DSN_setup = Function(
//Arguments
{_test_query_, _database_},
//Locals
{_DSN_test_, _DSN_string_},
_DSN_test_ =
Open Database( , _test_query_ );
If( Char( _DSN_test_ ) == ".",
New Window( "Script Error",
<<MODAL></MODAL>