UniMedia IDE集成環(huán)境訪問數(shù)據(jù)庫實(shí)例解析
2009/05/19
1.目標(biāo)功能
假設(shè)有數(shù)據(jù)庫TestDB，表Table1，從表中取出IDNO＝1的記錄
2.IDE腳本實(shí)例
//假定SQLServer數(shù)據(jù)庫、數(shù)據(jù)庫名為TestDB， 表名為Table1，表中有字段IDNO
///////////////////////////////////////////////////////////////////
sub main(LIST& cpl) //進(jìn)程主函數(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論壇報(bào)道
相關(guān)鏈接: