2009/05/19

1.目標功能
//假定SQLServer數據庫、數據庫名為TestDB， 表名為Table1，表中有字段IDNO
///////////////////////////////////////////////////////////////////
sub main(LIST& cpl) //進程主函數
{
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

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

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

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

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

//取查詢記錄的字段數
l_LISTResultVar.GetCount(l_intCountVar,l_intRetVar)
//依次取結果記錄字段，用';'分隔，合成結果字符串
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)
//...
}

//**關閉數據對象，斷開數據庫訪問
l_DBVar.CloseDB()
}

CTI論壇報道