主题：参数不足，期待是1！初学者请教各位了！！
zuotingjialei
[专家分：0] 发布于 2006-09-20 20:32:00
sqlstr:=sqlstr+' '+'where(省份="'+listbox1.items[0]+'")';运行时显示参数不足，期待是1，哪位高人指点一下！谢过了
回复列表 （共7个回复）
沙发
冰封星云 [专家分：2260] 发布于 2006-09-21 08:57:00
可以把前后的程序都贴出来啊？这样谁知道什么问题
板凳
zuotingjialei [专家分：0] 发布于 2006-09-21 09:29:00
全部程序就是这样：
procedure TFview1.BitBtn1Click(Sender: TObject);
var n,i:integer;
sqlstr:string;
begin
sqlstr:='select * from stuinfo';
n:=listbox1.Items.count-1;
if n>=0 then
begin
sqlstr:=sqlstr+' '+'where(省份="'+listbox1.items[0]+'")';
i:=1;
while i<=n do
begin
sqlstr:=sqlstr+' '+'or(省份="'+listbox1.items[i]+'")';
i:=i+1;
end;
end;
sqlstr:=sqlstr+';';
memo1.Lines.add(sqlstr);
query1.SQL.Clear;
query1.SQL.add(sqlstr);
query1.Open;
end;
3 楼
长尾兔 [专家分：3630] 发布于 2006-09-21 09:38:00
没仔细看其他地方,但sqlstr:=sqlstr+';';这句好象是多余的
4 楼
长尾兔 [专家分：3630] 发布于 2006-09-21 09:38:00
SQL语言不以;为语句结束
5 楼
冰封星云 [专家分：2260] 发布于 2006-09-21 10:44:00
没看错的话，是你的select语句有问题，没环境调试，呵呵，你根据错误提示，改正咯
6 楼
zuotingjialei [专家分：0] 发布于 2006-09-21 13:12:00
对，就是select语句的问题，只是改了几遍还是提示有错误!再改改看吧……
我来回复
您所在位置：