Installshield操作数据库

 

prototype BOOL DB_ExecuteSQLScript(STRING, STRING, STRING, STRING, STRING);
prototype BOOL DB_DoesDatabaseExist(STRING, STRING, STRING, STRING, STRING);
prototype BOOL DB_CheckConnection(STRING, STRING, STRING, STRING);
prototype BOOL DB_CreateDatabase(STRING, STRING, STRING, STRING, STRING);
prototype BOOL DB_AttachDatabase(STRING, STRING, STRING, STRING, STRING, STRING);  
prototype BOOL DB_RestoreDatabase(STRING, STRING, STRING, STRING, STRING, STRING); 

prototype BOOL DB_AddLogin(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_DropLoginNoException(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_GrantDBAccess(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_AddRoleMember(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_AddSrvRoleMember(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_ChangePassword(STRING, STRING, STRING, STRING,STRING, STRING);
prototype BOOL DB_GetInstances(BYREF LIST); 
prototype BOOL DB_GetUserDataBase(STRING,STRING,STRING,BOOL,BYREF LIST);
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_DoesDatabaseExist
//
//Purpose: This function will determine whether a given database exists.
//
// Arguments: svServerName - The name of the SQL server to run the script on
//svDatabaseName - The name of the SQL database to run the script on
//svDriver - ADO requires this, but for SQL server you just send in "SQL Server"
//svUserName - The system account for SQL server
//svUserPassword - The password for the system account
//
//Usage: 
//if (DB_DoesDatabaseExist("SQLServer", "MyDatabase", "SQL Server", "sa", "saPassword") = FALSE) then
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_DoesDatabaseExist(svServerName, svDatabaseName, svDriver, svUserName, svUserPassword) 
OBJECT pADOConnObj, pADORecordSetObj;
STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL;
BOOL bExists;
begin
bExists = FALSE;
try
// Create ADO Connection Object to connect to the SQL server 
szADOConnObjID = "ADODB.Connection";
set pADOConnObj = CreateObject(szADOConnObjID); 

// Create the SQL string to complete the connection
szConnString = "driver={" + svDriver + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
szConnString = szConnString + "database=master";

// Open the ADO Connection
pADOConnObj.Open(szConnString);

// Create ADO Recordset object for the return
szADORecordSetObjID = "ADODB.Recordset";
set pADORecordSetObj = CreateObject(szADORecordSetObjID);

// Set some ADO Recordset properties
pADORecordSetObj.CursorType = 3;
pADORecordSetObj.ActiveConnection = pADOConnObj;

// Create the SQL string to retrieve the database if it exists
szSQL = "Select name from sysdatabases where name='" + svDatabaseName + "'";

// Use the recordset to see if the database exists 
pADORecordSetObj.Open(szSQL);
if (pADORecordSetObj.RecordCount = 1) then
bExists = TRUE;
endif;
catch
//ErrorHandler(Err.Number,"DB_DoesDatabaseExist",Err.Description,WARNING);
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;

return FALSE;
endcatch;
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;

return bExists;
end;

///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_CheckConnection
//
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_CheckConnection(svServerName, svDriver, svUserName, svUserPassword) 
OBJECT pADOConnObj, pADORecordSetObj;
STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL;
BOOL bExists;
begin
bExists = FALSE;
try
// Create ADO Connection Object to connect to the SQL server 
szADOConnObjID = "ADODB.Connection";
set pADOConnObj = CreateObject(szADOConnObjID); 

// Create the SQL string to complete the connection
szConnString = "driver={" + svDriver + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
szConnString = szConnString + "database=master";

// Open the ADO Connection
pADOConnObj.Open(szConnString);

// Create ADO Recordset object for the return
szADORecordSetObjID = "ADODB.Recordset";
set pADORecordSetObj = CreateObject(szADORecordSetObjID);

// Set some ADO Recordset properties
pADORecordSetObj.CursorType = 3;
pADORecordSetObj.ActiveConnection = pADOConnObj;

// Create the SQL string to retrieve the database if it exists
szSQL = "Select name from sysdatabases where name='" + "master" + "'";

// Use the recordset to see if the database exists 
pADORecordSetObj.Open(szSQL);
if (pADORecordSetObj.RecordCount = 1) then
bExists = TRUE;
endif;
catch
bExists = FALSE;
//Clean up
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;

endcatch;
set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;
return bExists;
end;
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_CreateDatabase
//
//Purpose: This function will create a new database.
//
// Arguments: svServerName - The name of the SQL server to run the script on
//svDatabaseName - The name of the SQL database to run the script on
//svDriver - ADO requires this, but for SQL server you just send in "SQL Server"
//svUserName - The system account for SQL server
//svUserPassword - The password for the system account
//
//Usage: 
//if (DB_CreateDatabase("SQLServer", "MyDatabase", "SQL Server", "sa", "saPassword") = FALSE) then
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_CreateDatabase(svServerName, svDatabaseName, svDriver, svUserName, svUserPassword) 
STRING szADOCommObjID, szADOObjID, szConnSting;
OBJECT pADOObj, pADOCommObj;
begin
try
// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnSting = "driver={" + svDriver + "};";
szConnSting = szConnSting + "server=" + svServerName + ";";
szConnSting = szConnSting + "uid=" + svUserName + ";";
szConnSting = szConnSting + "pwd=" + svUserPassword;

// Open the ADO Connection
pADOObj.Open(szConnSting);

// Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to create the database
pADOCommObj.CommandText = "Create database " + svDatabaseName;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_CreateDatabase",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE; 
end;


//第二部分

///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_ExecuteSQLScript
//
//Purpose: This function will execute a SQL script.
//
// Arguments: svServerName - The name of the SQL server to run the script on
//svDatabaseName - The name of the SQL database to run the script on
//svDriver - ADO requires this, but for SQL server you just send in "SQL Server"
//svUserName - The system account for SQL server
//svUserPassword - The password for the system account
//svScriptFile - A fully qualified path to a SQL script file
//
//Usage: 
//DB_ExecuteSQLScript("SQLServer", "MyDatabase", "SQL Server", "sa", "saPassword", "C:Scripts ables.sql")
//
//Notes:You could change this function to accept the script as a string
//instead of the file.With a file, you can add the scripts
//as files in the installation, putting them in a directory.
//This would allow them to be reused later, or they can just be
//deleted after each script is run.
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_ExecuteSQLScript(svServerName, svDatabaseName, svUserName, svUserPassword, svScriptFile)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svLine, szConnString, szSQL, svString;
NUMBER nResult,nError;
LIST listID;
begin 
try
// Create an empty string list.
listID = ListCreate (STRINGLIST);

// Read the SQL script file into the list
if (ListReadFromFile(listID, svScriptFile) < 0) then // read list from file
MessageBox ("ERROR: Unable to open SQL script: " + svScriptFile + ".", SEVERE); 
nError = 1;
return nError;
endif;

// Go through each list item and add it to a string (which will then hold the script)
szSQL = "";
nResult = ListGetFirstString (listID, svString);
while (nResult = 0)
szSQL = szSQL + " " + svString; 
nResult = ListGetNextString (listID, svString);
endwhile;

// Be good and clean up your trash
ListDestroy(listID);

// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
szConnString = szConnString + "database=" + svDatabaseName;

// Open the ADO Connection 
pADOObj.Open(szConnString);

// Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = szSQL;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_ExecuteSQLScript",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;

///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_AttachDatabase
//
//Purpose: This function will attach a database to a server.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_AttachDatabase(svServerName, svDatabaseName,svDatabasePath,svLogPath, svUserName, svUserPassword)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try
// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
szConnString = szConnString + "database=" + "MASTER";

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_attach_db '"
+ svDatabaseName
+ "','"
+ svDatabasePath
+ "','"
+ svLogPath
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_AttachDatabase",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;
return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_AttachDatabase
//
//Purpose: This function will attach a database to a server.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_RestoreDatabase(svServerName, svDatabaseName,
    svDatabasePath,svSaveDataPath,svUserName,svUserPassword)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try
// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svUserName + ";";
szConnString = szConnString + "pwd=" + svUserPassword + ";";
szConnString = szConnString + "database=" + "MASTER";

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="RESTORE DATABASE "+svDatabaseName+" FROM DISK='"
+ svDatabasePath
+ "' WITH MOVE 'xhotel_data' TO '"
+ svSaveDataPath^svDatabaseName+".mdf',"
+ "MOVE 'xhotel_log' TO '"
+ svSaveDataPath^svDatabaseName+".ldf'";

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_AttachDatabase",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;
return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_AddLogin
//
//Purpose: This function will add a login to a server.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_AddLogin(svServerName,svDatabaseName,
svSAUsername,svSAPassword,svUserName, svUserPassword)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try

// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + "MASTER";

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_addlogin '"
+ svUserName
+ "','"
+ svUserPassword
+ "','"
+ svDatabaseName
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_AddLogin",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;


//第三部分


///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_AddSrvRoleMember 
//
//Purpose: This function will add a login to a server.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_AddSrvRoleMember(svServerName,svDatabaseName,
svSAUsername,svSAPassword,svUserName, svRole)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try

// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + "MASTER";

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_addsrvrolemember '"
+ svUserName
+ "','"
+ svRole
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_AddSrvRoleMember",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;

///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_DropLoginNoException
//
//Purpose: This function will drop a login, but not throw an exception if it 
//fails.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_DropLoginNoException(svServerName,svDatabaseName,
svSAUsername,svSAPassword,svUserName, svUserPassword)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try

// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + svDatabaseName;

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_droplogin '"
+ svUserName
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//No exception thrown for this function... this is a try only
/*
ErrorHandler(Err.Number,"DB_AddLogin",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
*/
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_GrantDBAccess
//
//Purpose: This function grant access to a database.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_GrantDBAccess(svServerName,svDatabaseName,
svSAUsername,svSAPassword,svUserName, svDBUserName)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try
// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + svDatabaseName;

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_grantdbaccess N'"
+ svUserName
+ "',N'"
+ svDBUserName
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_GrantDBAccess",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;

///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_AddRoleMember
//
//Purpose: This function grant access to a database.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_AddRoleMember(svServerName,svDatabaseName,
svSAUsername,svSAPassword, svRole,svUserName)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try
// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + svDatabaseName;

// Open the ADO Connection 
pADOObj.Open(szConnString);

svCommand="sp_addrolemember N'"
+ svRole
+ "',N'"
+ svUserName
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_AddRoleMember",Err.Description,WARNING);
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return FALSE;
endcatch;
set pADOObj = NOTHING;
set pADOCommObj = NOTHING;

return TRUE;
end;
///////////////////////////////////////////////////////////////////////////////
//
//Function: DB_ChangePassword
//
//Purpose: This function changes a users password.
//
// Arguments: 
//
//Usage: 
//
//Notes:
//
/////////////////////////////////////////////////////////////////////////////// 
function BOOL DB_ChangePassword(svServerName,
svSAUsername,svSAPassword, svUserName,svOldPass,svNewPass)
OBJECT pADOObj, pADOCommObj;
STRING szADOObjID, szADOCommObjID;
STRING svCommand, szConnString, szSQL, svString;
NUMBER nResult;
begin 
try
//Fix NULLS
if svOldPass="" then 
svOldPass="NULL";
endif;
if svNewPass="" then 
svNewPass="NULL";
endif;

// Create ADO Connection Object to connect to the SQL server 
szADOObjID = "ADODB.Connection";
set pADOObj = CreateObject(szADOObjID);

// Create the SQL string to complete the connection
szConnString = "driver={" + "SQL Server" + "};";
szConnString = szConnString + "server=" + svServerName + ";";
szConnString = szConnString + "uid=" + svSAUsername + ";";
szConnString = szConnString + "pwd=" + svSAPassword + ";";
szConnString = szConnString + "database=" + "MASTER";

// Open the ADO Connection 
pADOObj.Open(szConnString);


svCommand="sp_password "
+ svOldPass
+ ","
+ svNewPass
+ ",'"
+ svUserName
+ "'"
;

//Create the ADO Command object to execute the script 
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = pADOObj;

// Execute the call to run the script
pADOCommObj.CommandText = svCommand;
pADOCommObj.Execute();
catch
//ErrorHandler(Err.Number,"DB_ChangePassword",Err.Description,WARNING);
set pADOCommObj = NOTHING;
set pADOObj = NOTHING;

return FALSE;
endcatch;
set pADOCommObj = NOTHING;
set pADOObj = NOTHING;

return TRUE;
end;

////////////////////////////////////////////////////////////////////////
//Function:BOOL DB_GetInstances()
//Description: Checks for an Instance of SQL Server, returns a list of 
//of instances if true.
//
//Created By:BrianR
//Created Date: 11-12-2002
////////////////////////////////////////////////////////////////////////
function BOOL DB_GetInstances(lInstances)
STRING szKey,szInstanceName;
NUMBER nRet;
begin
//Set default reg root
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); 
szKey = "SOFTWARE/MICROSOFT/Microsoft SQL Server";

//If key isnt there... fail
if RegDBKeyExist(szKey) != 1 then
//fail
return FALSE;
endif;

//Create INSTANCE Lists
szInstanceName="Test1";
ListAddString(lInstances,szInstanceName,AFTER);
szInstanceName="Test2";
ListAddString(lInstances,szInstanceName,AFTER);

//Return
if ListCount(lInstances)!=0 then
return ListCount(lInstances);
else
return FALSE;
endif;
end;

function BOOL DB_GetUserDataBase(svServerName,svUserName,svUserPassword,sbWinAuth,listDatabase)
    OBJECT pADOConnObj, pADORecordSetObj;
    STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL;
    NUMBER nResult;
begin
    try
        // Create ADO Connection Object to connect to the SQL server 
        szADOConnObjID = "ADODB.Connection";
        set pADOConnObj  = CreateObject(szADOConnObjID);
        
        // Create the SQL string to complete the connection  
        if(sbWinAuth = FALSE) then
            szConnString = "driver={" + "SQL Server" + "};";
            szConnString = szConnString + "server=" + svServerName + ";";
            szConnString = szConnString + "uid=" + svUserName + ";";
            szConnString = szConnString + "pwd=" + svUserPassword + ";";
            szConnString = szConnString + "database=" + "MASTER";
        else  
            szConnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" ;
            szConnString = szConnString+"Persist Security Info=False;";
            szConnString = szConnString+"Initial Catalog=MASTER;Data Source=";
            szConnString = szConnString +svServerName;
        endif;
        // Open the ADO Connection 
        pADOConnObj.Open(szConnString);
        
        // Create ADO Recordset object for the return
        szADORecordSetObjID = "ADODB.Recordset";
        set pADORecordSetObj = CreateObject(szADORecordSetObjID);
        
        // Set some ADO Recordset properties
        pADORecordSetObj.CursorType = 3;
        pADORecordSetObj.ActiveConnection = pADOConnObj;
        
        // Create the SQL string to retrieve the database if it exists
        szSQL = "Select name from sysdatabases where name not in('master')";
        
        // Use the recordset to see if the database exists 
        pADORecordSetObj.Open(szSQL); 
        
        while(!pADORecordSetObj.EOF()) 
            if(ListAddString(listDatabase,pADORecordSetObj("name"),AFTER)<0) then
                MessageBox("adsasd",INFORMATION); 
            endif;
            pADORecordSetObj.MoveNext();         
        endwhile;                                         
    catch
//        ErrorHandler(Err.Number,"检索数据库失败",Err.Description,WARNING);
        set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;
        return FALSE;
    endcatch;
    set pADOConnObj = NOTHING;
set pADORecordSetObj = NOTHING;
    
    return TRUE;    
end;