prototype CheckConnection(STRING,STRING,STRING,BOOL);
function CheckConnection(tsServerName,tsUserName,tsPassword,bWinAthMode)
STRING connstr, szADOCommObjID;
BOOL bResult;
OBJECT conn,pADOCommObj;
begin
try
bResult = TRUE;
set conn = CreateObject("ADODB.Connection");
if !IsObject(conn) then
return FALSE;
endif;
connstr = "";
if bWinAthMode then //如果是window身份验证
connstr = "Provider=SQLOLEDB.1;Initial Catalog=master;Data Source="+tsServerName+";Integrated Security=SSPI;";
else//sqlserver身份验证
connstr = "Provider=SQLOLEDB.1;Initial Catalog=master;Data Source="+tsServerName+";User ID="+tsUserName+";Password="+tsPassword+";";
endif;
conn.ConnectionString=connstr;
conn.open();
szADOCommObjID = "ADODB.Command";
set pADOCommObj = CreateObject(szADOCommObjID);
pADOCommObj.ActiveConnection = conn;
//如果存在名为MyProject的数据库,删除之
pADOCommObj.CommandText = "if exists(select 1 from master..sysdatabases where name='MyProject') drop database mgquotation";
pADOCommObj.Execute();
//创建名为MyProject的数据库
pADOCommObj.CommandText = "CREATE Database MGQuotation;";
pADOCommObj.Execute();
catch
bResult = FALSE;
set conn = NOTHING;
set pADOCommObj = NOTHING;
endcatch;
set conn = NOTHING;
set pADOCommObj = NOTHING;
return bResult;
end;
用Installshield制作软件包常用的InstallScript -----3