lrh_2008 发表于 2007-2-25 11:16:32

VU脚本访问oracle9i数据库

由于前段时间苦苦找不到VU脚本如何访问oracle9i而苦恼,经过几天的学习,终于可以访问啦,嘿嘿,希望能给大家带来帮忙!

#include <VU.h>
#include <sme/data.h>
{
//连接oracle数据库，目前rational支持oracle7,8,不支持oracle9i
//可查看目录：Program Files\Rational\Rational Test\shlib\sql下，如果有相应版本的驱动，就支持，否则不支持
//如果不支持可通过odbc来连接，要求必须在本机odbc数据源上建oracle9i的数据源，命名名称为wfms，并装oracle9i的客户端
//下面例子中：ubpwfms为登录数据库时的用户名,tais3为密码,192.168.3.112为oracle NET配置中的服务名
ORACLE= sqlconnect("", "ubpwfms", "tais3","192.168.3.112","ODBC","DRIVER_INFO='DSN=wfms;UID=ubpwfms;PWD=tais3;'");
set Server_connection = ORACLE;
sqlsetoption(ORA_AUTOCOMMIT, 1);

stmt_2_2_id=sqldeclare_cursor["ora_001"]"","select workitemmainid from wf_workitem_main where preworkitemid='500050'";
stmt_2_1_id = sqlopen_cursor ["ora_002"] stmt_2_2_id;
sqlfetch_cursor ["Oracle2.224"] stmt_2_1_id, ALL_ROWS;
sqlfree_cursor( stmt_2_1_id );
{
    string key,var1,var2;
   
    //获得查询条件的所有值
    key=_response;
   
    //打印获得的值
    print key;
   
    //下面根据情况，如果查询出的结果只有一条记录，不需要执行下面的var1和var2,只有查询出多个值，可用下面的语句
    var1= subfield(_response, " ", 1);//1是取第一个值，2是取第二个值
    var2= subfield(_response, " ", 2);
    print "var1="+var1;
    print "var2="+var2;
    //获得字符串长度
    //print strlen(key);
   
}
sqldisconnect(ORACLE);
}

feiyuw 发表于 2007-2-26 16:14:59

多谢楼主，正找这样的东东呢！

lrh_2008 发表于 2007-2-26 19:37:05

sdlkfj3
页: [1]
查看完整版本: VU脚本访问oracle9i数据库