嵌套游标!~!
<P>小弟要做一个手机短信动态发送<BR>短信发送要求：<BR> 1，SQL语句查询出对应的会员手机号码。后台解析SQL查询语句；<BR> 2，短信发送内容。<BR><BR>(如图:)<BR>[attach]25875[/attach]<BR>我用了嵌套游标(查询条件和表名是动态的故用嵌套游标查询!)请各位高手帮小弟看看这样做还对~请各位多多指教!谢谢~!<BR><BR>long ll_row,ll_count</P><P>string ls_from,ls_time<BR>datetime ld_time</P>
<P>ld_time = datetime(date(uo_1.uf_getfrom()),time(sle_1.text))</P>
<P>//SQL语句判断<BR> string ls_sql<BR> if trim(sle_sql.text) = "" then<BR> messagebox("提示信息","输入的SQL语句有错请检查")<BR> return<BR>else<BR> ls_sql = sle_sql.text <BR>end if</P>
<P>//短信内容判断<BR>string ls_message//短信内容<BR>if trim(mle_message.text) = "" then<BR> messagebox("提示信息!","请输入短消息内容!")<BR> return<BR>else<BR> ls_message = mle_message.text<BR>end if<BR>string ls_mobile<BR>string ls_t_name<BR>string ls_where<BR>DECLARE my_table CURSOR for<BR> select t_name from tablename order by t_name;<BR>OPEN my_table;</P>
<P>FETCH my_table INTO :ls_t_name;</P>
<P>do<BR>if sqlca.sqlcode = 0 then<BR>//嵌套<BR>DECLARE my_where CURSOR FOR<BR>select mobile from ls_t_name where mobile= :ls_where;</P>
<P>OPEN my_where;<BR>do<BR>FETCH my_where into :ls_where;<BR>if sqlca.sqlcode = 0 then<BR> </P>
<P> ls_sql= ls_t_name + ls_where;<BR>//ls_sql="select distinct" + "mobile" + "from" + "ls_t_name" + "where" ls_Where like '%" + this.text + "%'<BR> ll_row = dw_2.InsertRow( dw_2.GetRow() + 1 )<BR> dw_2.ScrollToRow( ll_row )<BR> dw_2.SetFocus()<BR> dw_2.SetColumn( 1 )<BR> // dw_2.object.card_num[ll_row]=ls_card_num<BR> dw_2.object.Mobile[ll_row]=ls_where<BR> dw_2.object.content[ll_row]=ls_message<BR> dw_2.object.reply_type[ll_row]='0'<BR> dw_2.object.isdeal[ll_row]='0'<BR> dw_2.object.reg_date[ll_row]=gf_today_time()<BR> dw_2.object.plan_date[ll_row]=ld_time<BR> dw_2.object.writer[ll_row] = "平台，短消息发送功能"<BR> <BR>FETCH my_where into :ls_where;<BR>end if</P>
<P>Loop while sqlca.sqlcode = 0</P>
<P>close my_where;<BR> if f_p_save_db(dw_2) = 1 then<BR> messagebox("提示信息","操作成功!")<BR> //close(parent)<BR> return<BR> else<BR> messagebox("提示信息","操作失败!")<BR> return<BR> end if<BR> <BR>end if<BR>fetch my_table into :ls_t_name;<BR>Loop while sqlca.sqlcode = 0<BR>close my_table; <BR></P>
页:
[1]