2009/05/19

1.目標功能
//假定SQLServer數(shù)據(jù)庫、數(shù)據(jù)庫名為TestDB， 表名為Table1，表中有字段IDNO
///////////////////////////////////////////////////////////////////
sub main(LIST& cpl) //進程主函數(shù)
{
DB l_DBVar
string l_stringConnStrVar, l_stringQuerySqlVar
string l_stringResultValueVar, l_stringRecordValueVar
LIST l_LISTResultVar
Int l_intRetVar, l_intDBIDVar, l_intCountVar, l_intIndexVar

//** 訪問數(shù)據(jù)庫連接串
// 用戶名User, 密碼123456, 用工具(dbconnstr.exe)自動生成
l_stringConnStrVar = "Provider=SQLOLEDB;Initial Catalog=TestDB;
Password=123456;Persist Security Info = False;User ID=User"

//** 打開數(shù)據(jù)庫
l_DBVar.OpenDB(l_stringConnStrVar, l_intDBIDVar,false, l_intRetVar)

//** 在數(shù)據(jù)庫表中查詢記錄IDNO=1的記錄
//SQL語句
l_stringQuerySqlVar = "select * From Table1 where IDNO=1"
//** 執(zhí)行數(shù)據(jù)庫查詢
l_DBVar.Query(l_stringQuerySqlVar,l_LISTResultVar,l_intRetVar)

if (l_intRetVar == RET_SUCC)
{
//查詢成功，取第一天查詢記錄的結(jié)果值
l_intCountVar = 0
l_stringRecordValueVar = ""

//取查詢記錄的字段數(shù)
l_LISTResultVar.GetCount(l_intCountVar,l_intRetVar)
//依次取結(jié)果記錄字段，用';'分隔，合成結(jié)果字符串
for(int i = 0; i < l_intCountVar; i= i+1)
{
l_stringResultValueVar = ""
l_LISTResultVar.GetItem(i,l_stringResultValueVar,l_intRetVar)
StrTrim(l_stringResultValueVar)
StrCatEx(l_stringRecordValueVar,l_stringRecordValueVar,
l_stringResultValueVar,";")
}
Log(DBG,"FirstRecord=",l_stringRecordValueVar,")")

//TODO：如果滿足條件的記錄有多條記錄
//查詢下一條記錄
l_DBVar.QueryNext(l_LISTResultVar,l_intRetVar)
//...
}

//**關(guān)閉數(shù)據(jù)對象，斷開數(shù)據(jù)庫訪問
l_DBVar.CloseDB()
}

CTI論壇報道