平民程序 - linghuye's blog

CALL "E:\Program Files\7-zip\7z.exe" a MyWarCraftStudio @Backup.lst -xr@ExcludeFiles.lst
CALL "E:\Program Files\WinRAR\WinRAR.exe" a DmGameSDK @GameSDKFiles.lst -x@ExcludeFiles.lst

Backup.lst为文件列表文本文件
ExcludeFiles.lst为扩展名列表文本文件,Example:

*.log
*.obj
*.ilk
*.ncb
*.7z
*.rar
*.pch
*\Objs

http://www.cnitblog.com/Files/linghuye/PackShell.rar

create a .lst file as a text file with file/director pathname every line, then double click the .lst file in window shell, it will pack the files into a 7z package.

1.出现PROCEDURE xxx can't return a result set in the given context when execute ...错误,mysql_real_connect连接时没有指定clientflag为CLIENT_MULTI_STATEMENTS!

2. You can create a prepared statement with the PREPARE statement, supplying the SQL text in a session variable.就是说不能是局部变量,或存储过程范围内的变量.

3.syntax sample for memo 

DELIMITER $$;

DROP PROCEDURE IF EXISTS `silvermoney`.`BalanceCashSavings`$$

CREATE PROCEDURE `BalanceCashSavings`(vinCashMoney BIGINT, vinAccountID INT, vinBnCode VARCHAR( 32 ), vinBnProcessor VARCHAR( 32 ), OUT vErrCode INT)
st_main : BEGIN
DECLARE varCurCashMoney BIGINT;
DECLARE varCurBankSaving BIGINT;
SET vErrCode  =   0 ;
SELECT CashMoney, BankMoney INTO varCurCashMoney, varCurBankSaving FROM SilverAccount WHERE AccountID = vinAccountID;
IF FOUND_ROWS()  =   1  THEN
   SET vErrCode  =   1 ;
   LEAVE st_main;
END IF;
START TRANSACTION;
IF vinCashMoney  >   0  THEN
    IF varCurBankSaving  <  vinCashMoney THEN
    SET vErrCode  =   2 ;
        LEAVE st_main;
    END IF;
    
    UPDATE SilverAccount SET CashMoney = CashMoney  +  vinCashMoney, BankMoney  =  BankMoney  -  vinCashMoney WHERE AccountID = vinAccountID;
    IF ROW_COUNT()  !=   1  THEN
        SET vErrCode  =   3 ;
        LEAVE st_main;
    END IF;
    
    BEGIN
    DECLARE EXIT HANDLER FOR SQLEXCEPTION SET vErrCode  =   27 ;
    SET @vSQLInsertBn  =   " INSERT Business_ "   +  CONCAT(CURDATE() + 0 )  +   "  VALUES(' "   +  vinBnCode  +   " ',  "   +  CONCAT(vinAccountID)  +   " ,  "   +  CONCAT(vinCashMoney)  +   " , 0, ' "   +  CONCAT(CURDATE() + 0 )  +   " ', 5, ' "   +  vinBnProcessor  +   " ', '') " ;
    PREPARE dynSQL FROM @vSQLInsertBn;
    EXECUTE dynSQL;
    DEALLOCATE PREPARE dynSQL;
    END;     
ELSE
    IF varCurCashMoney  <   - vinCashMoney THEN
    SET vErrCode  =   5 ;
        LEAVE st_main;
    END IF;
    UPDATE SilverAccount SET CashMoney = CashMoney + vinCashMoney, BankMoney = BankMoney - vinCashMoney WHERE AccountID = vinAccountID;
    IF ROW_COUNT()  !=   1  THEN 
        SET vErrCode  =   6 ;
        LEAVE st_main;
    END IF;
   
    BEGIN
    DECLARE EXIT HANDLER FOR SQLEXCEPTION SET vErrCode  =   27 ;
    SET @vSQLInsertBn  =   " INSERT Business_ "   +  CONCAT(CURDATE() + 0 )  +   "  VALUES(' "   +  vinBnCode  +   " ',  "   +  CONCAT(vinAccountID)  +   " ,  "   +  CONCAT(vinCashMoney)  +   " , 0, ' "   +  CONCAT(CURDATE() + 0 )  +   " ', 5, ' "   +  vinBnProcessor  +   " ', '') " ;
    PREPARE dynSQL FROM @vSQLInsertBn;
    EXECUTE dynSQL;
    DEALLOCATE PREPARE dynSQL;
    END;
END IF;        
COMMIT;
END$$

DELIMITER ;$$

DELIMITER $$;

DROP PROCEDURE IF EXISTS `silvermoney`.`ChargeSilverCard`$$

CREATE PROCEDURE `ChargeSilverCard`(vinCardID VARCHAR( 32 ), vinPassword VARCHAR( 32 ), vinBnCode VARCHAR( 32 ), vinBnProcessor VARCHAR( 32 ), vinAccountID INT, OUT vErrCode INT)
st_main : BEGIN

DECLARE varCardMoney BIGINT;
DECLARE varOrgBnCode VARCHAR( 32 );
DECLARE varBnTableName VARCHAR( 32 );
DECLARE vSQLInsertBn VARCHAR( 256 );

SELECT Money, BusinessCode INTO varCardMoney, varOrgBnCode From SilverCard WHERE CardID = vinCardID AND Password = vinPassword;
IF FOUND_ROWS()  !=   1  THEN
   SET vErrCode  =   1 ;
   LEAVE st_main;
END IF;
IF varOrgBnCode  !=  NULL THEN
   SET vErrCode  =   2 ;
   LEAVE st_main;
END IF;
START TRANSACTION;
          
UPDATE SilverCard SET BusinessCode = vinBnCode WHERE CardID = vinCardID;
IF ROW_COUNT()  !=   1  THEN
    SET vErrCode  =   3 ;
    LEAVE st_main;
END IF;
UPDATE SilverAccount SET CashMoney = CashMoney + varCardMoney WHERE AccountID = vinAccountID;
IF ROW_COUNT()  !=   1  THEN
    SET vErrCode  =   4 ;
    LEAVE st_main;
END IF;
BEGIN
DECLARE EXIT HANDLER FOR SQLEXCEPTION SET vErrCode  =   27 ;
SET @vSQLInsertBn  =   " INSERT Business_ "   +  CONCAT(CURDATE() + 0 )  +   "  VALUES(' "   +  vinBnCode  +   " ',  "   +  CONCAT(vinAccountID)  +   " ,  "   +  CONCAT(varCardMoney)  +   " , 0, ' "   +  CONCAT(CURDATE() + 0 )  +   " ', 6, ' "   +  vinBnProcessor  +   " ', ' "   +  vinCardID  +   " ') " ;
PREPARE dynSQL FROM @vSQLInsertBn;
EXECUTE dynSQL;
DEALLOCATE PREPARE dynSQL;
END;     
    
COMMIT;
END$$

DELIMITER ;$$

最近用M$ SQL的遇到些问题,总结一下.

1.使用ADO读出的BIGINT字段类型,形成的VARIANT是VT_DECIMAL类型,而非想象中的VT_I8.更要命的是VariantChangeType在Win2000下转换VT_DECIMAL->VT_I8或反之,都出错,该API返回错误的数据类型,而WinXP和Win2003下不会.结论是Win2000内核对VT_I8支持有误,当前SP4仍为解决该问题.Bae, Hyun-jik给出一个hack绕过该问题. Refer to:
http://groups.google.com/group/microsoft.public.data.oledb/browse_thread/thread/3ba6ff6e76186d95/c89a98d77a8fdb52?lnk=st&q=vt_decimal+to+vt_i8&rnum=1&hl=zh-CN#c89a98d77a8fdb52
http://groups.google.com/group/microsoft.public.win32.programmer.ole/browse_thread/thread/ee793c37192460d8/3f3ca1b412620ac6?lnk=st&q=vt_decimal+to+vt_i8&rnum=2&hl=zh-CN#3f3ca1b412620ac6

2.不能在SQL查询分析器下,选择文本的状态下,然后F5执行查询,执行的是选择文本.偶不知道,检查了4个小时的语法后发现的.

3.ADO的Command对象带参数存储过程调用方式真低能,一个一个Parameter对象地创建,设置,赋值,这样的方式写出的都是垃圾代码.
改用adCmdText方式直接进行SQL语法调用EXECUTE procname @varInput,却无法从ADO的Command对象中取得返回值,于是被逼使用SELECT ErrCode = 1记录集返回.这样,对于复杂的存储过程中间多次进行出错返回的,出现多个SELECT语句,此时ADO将返回的一个多数据集对象,其中只有一个为打开,其他均为关闭,(奇怪的逻辑),于是有如下丑陋的代码:
int ExecuteStoreProcedure(const char* szSQL)
{
 try
 { 
  _variant_t vRecords;
  _RecordsetPtr ptrRcs = m_ptrConnection->Execute(_bstr_t(szSQL), &vRecords, adOptionUnspecified);
  while(ptrRcs != NULL)
  { 
   if(ptrRcs->GetState() == adStateOpen)
   {
    return ptrRcs->GetFields()->GetItem("ErrCode")->GetValue();
   }
   ptrRcs = ptrRcs->NextRecordset(&vRecords);
  }
  return ERROR_UNKNOWN;
 }
 catch(_com_error& e)
 { 
  _bstr_t bstrErrMsg = e.Description();
  DUMP_COM_ERROR(e);
  return ERROR_UNKNOWN;
 }
 catch(...)
 {
  return ERROR_UNKNOWN;
 }
}

只是不知有没更简单的方法取回存储过程的return值,在使用直接SQL执行调用的方式下!
推荐大家使用MYSQL.

互斥量可以实现程序在系统内唯一进程,所以,同理,信号量可以用来控制一个程序的进程的个数,获知一个程序当前被运行了几个实例进程.
LONG nPreCount = 0; // 程序当前运行了几个进程实例
HANDLE hSemaphore = ::CreateSemaphore(NULL, 1, 16, "__DM_EASY_TEST_COUNT__");
ReleaseSemaphore(hSemaphore, 1, &nPreCount);

测试网络游戏时,可以用它来生成按程序打开顺序的用户帐号,如测试帐号111,222,333
m_idLocalAccount = nPreCount * 100 + nPreCount * 10 + nPreCount;