下面的代碼實作的結果是：
在控制元件sle_9中輸入關鍵字回車后對cg_tb_code 內goods_name欄位用動態SQL游標進行檢索，在實際作業中當cg_tb_code中
如果記錄唯一的資料無法檢索出了例如
cg_tb_code中記錄為
type goods_name
GOODS 殺蟲劑
GOODS A4紙
GOODS 小鋼炮A4紙
當在sle_9中無論怎么對殺蟲劑進行檢索都無法檢索出，輸入*時可以全部檢索出來！
*****代碼***************
string STR_T
STR_T=sle_9.text
string str_name_goods
if keydown(keyenter!) then
//動態sql使用游標
lb_3.reset()
string str_a,str_sql
IF STR_T<>'*' THEN
str_sql="select goods_name from cg_tb_code "+&
"where type='GOODS' and goods_name like '%"+STR_T+"%'"
ELSE
str_sql="select goods_name from cg_tb_code "+&
"where type='GOODS' "
END IF
//messagebox('',str_sql)
PREPARE SQLSA FROM :str_sql;
describe sqlsa into sqlda;
declare cur_a dynamic cursor for sqlsa;
open dynamic cur_a using descriptor sqlda;
fetch cur_a using descriptor sqlda;
do while sqlca.sqlcode=0
str_name_goods=str_a
lb_3.additem(str_name_goods)
fetch cur_a into :str_a;
loop
close cur_a;
end if
uj5u.com熱心網友回復：
&apos ?用DW多方便啊！還是sQL的問題，你直接寫SQL試試就知道了，是不是有空格！
uj5u.com熱心網友回復：
不是空格的問題，我核實過，在表中只要是唯一記錄的資訊都無法檢索出來。uj5u.com熱心網友回復：
do while sqlca.sqlcode=0str_name_goods=str_a
lb_3.additem(str_name_goods)
fetch cur_a into :str_a;
loop
這句話改一下試試看
do while sqlca.sqlcode=0
fetch cur_a into :str_a;
if sqlca.sqlcode=0 then
lb_3.additem(str_a)
end if
loop
uj5u.com熱心網友回復：
改完后還是不行，好像只要是唯一的計錄都檢索不出來。uj5u.com熱心網友回復：
什么呀轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/115116.html
標籤：腳本語言
上一篇：資料管道
下一篇：無損連接問題