UniMedia IDE集成环境访问数据库实例解析
2009/05/19
1.目标功能
假设有数据库TestDB，表Table1，从表中取出IDNO＝1的记录
2.IDE脚本实例
//假定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"
//** 执行数据库查询
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论坛报道
相关链接: