当前位置: 代码迷 >> PB >> pb com组件数据库操作有关问题
  详细解决方案

pb com组件数据库操作有关问题

热度:50   发布时间:2016-04-29 09:48:46.0
pb com组件数据库操作问题
我写了一个com组件编译成dll文件,这个dll可以对数据库进行查询和插入操作,并返回一个查询的结果值 ,现在是返回值,始终取不到,只能取到我赋的一个常量初值。
string checkcode//随机验证码
string tmp_mobilephone//手机号
int tmp_id //唯一编号
datetime tmp_date_time//用户短信发送时间

tmp_mobilephone=mobilephone
tmp_id=id
tmp_date_time=date_time
checkcode='checkid9'

//checkcode=string(rand(10000))
//db_conn()

// Profile smscheck
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=smscheck;UID=smscheck;PWD=sms87896221'"
connect using SQLCA; 
checkcode='666666'
select re into:checkcode from v_cmt_rand using SQLCA;
insert into sms_send(mobile,content) 
values (:mobilephone,'您好,编号:'+:tmp_id+'时间:'+:tmp_date_time+'验证码:'+:checkcode+'请填入文本框提交确认,华东医药西药事业部') using SQLCA;
if sqlca.sqlcode=0 then
commit;
else
rollback;
end if

 
return checkcode

这是我的一个具体代码。


现在调用的结果是 666666这个值,我想要得到的是一张视图中产生的随机值 。
高手指点谢谢!!!

------解决方案--------------------
可以自己写个随机函数啊!!!!!!!!
------解决方案--------------------
select cast(ceiling(rand()*1000000) as char) into :checkcode from v_cmt_rand using SQLCA;
如果不需要固定格式这样行不行,如果不行做个函数
  相关解决方案