Question

pb中sql语句不执行

int li_FileNum,li_ret, li_count
string ls_txt
string split_arry[]
string ls_sql;
li_FileNum=FileOpen(pathname,LineMode!)
Do
li_ret = FileRead(li_FileNum, ls_txt)
IF li_ret >=0 THEN li_count++
split(ls_txt,'~t', split_arry[])

PREPARE SQLSA FROM 'insert into information values (split_arry[1],split_arry[2],int(split_arry[3]))';
EXECUTE SQLSA USING : split_arry[1],:split_arry[2],:split_arry[3];
commit using SQLCA;
// ls_sql='insert into information (姓名,性别,身份证号) values ('+string+'('+split_arry[1]+'),'+string+'('+split_arry[2]+'),'+int+'('+split_arry[3]+'))'
//execute immediate:ls_sql;
//update information;
sle_1.text=string(ls_sql)
mle_1.text=mle_1.text+ls_txt
LOOP UNTIL li_ret < 0
FileClose( li_FileNum )
MessageBox( '', String(li_count) )
Do
li_ret = FileRead(li_FileNum, ls_txt)
IF li_ret >=0 THEN li_count++
split(ls_txt,'~t', split_arry[])

PREPARE SQLSA FROM 'insert into information values (:split_arry[1],:split_arry[2],:split_arry[3])';
EXECUTE SQLSA USING :split_arry[1],:split_arry[2],:split_arry[3];
commit using SQLCA;
这个怎么也不执行？编译没错，数据库更新不了，连接什么的正常

Answer 1

刚刚测试了你上面的代码，请将：
PREPARE SQLSA FROM 'insert into information values (:split_arry[1],:split_arry[2],:split_arry[3])';
EXECUTE SQLSA USING :split_arry[1],:split_arry[2],:split_arry[3];

改成：

PREPARE SQLSA FROM 'insert into information values (?,?,?)';
EXECUTE SQLSA USING : split_arry[1],:split_arry[2],:split_arry[3];

在PB9下执行通过。

追问

谢了啊，可以了。我刚学pb，为什么要用values (?,?,?)，“？”是什么意思，代表什么？

追答

你是带参数的动态执行SQL语句，PREPARE函数的语法是：PREPARE DynamicStagingArea FROM SQLStatement{USING TransactionObject}；PB帮助中有详细解释，“?”表示你所带的参数，如果有五个参数，那么就是5个“?”，而不是你要插入值的变量。

Answer 2

这里的问题：insert into information (姓名,性别,身份证号) values ('+string+'('+split_arry[1]+'),'+string+'('+split_arry[2]+'),'+int+'('+split_arry[3]+'))
应该修改一下。
insert into information (姓名,性别,身份证号) values ('+split_arry[1]+','+split_arry[2]+','+split_arry[3]+')
在第三个有一个‘号不对，'。

你要不检测一下：
PREPARE SQLSA FROM 'insert into information values ('1','2','3')';
你先用固定的变量检测一下，如果正确哪就说明问题是在这些变量，如果不对则是代码的问题。