读书人

PB中内嵌SQL语句出现的异常

发布时间: 2012-03-14 12:01:12 作者: rapoo

PB中内嵌SQL语句出现的错误

//获取应用程序所在的路径
ls_Directory = GetCurrentDirectory()
//在章节列表菜单下新增二级菜单
integer li_itemcount,cid
string name
DECLARE cur_chapter Cursor For
select "chapter"."cid" ,"chapter"."name"
From "chapter"
Order By "chapter"."cid" ASC;
open cur_chapter;
fetch cur_chapter into :cid,:name;
do while sqlca.sqlcode = 0
li_count++
im_new[li_count] = create m_new
li_itemcount = upperbound(m_main.item[1].item[])
m_main.item[1].item[li_itemcount + 1] = im_new[li_count].item[1]
m_main.item[1].item[li_itemcount + 1].text = name
m_main.item[1].item[li_itemcount + 1].tag = string(cid)
fetch cur_chapter into :cid, :name;
loop
close cur_chapter;
//此处将新生成的菜单对象显示出来
m_main.item[1].hide()
m_main.item[1].show()
//显示w_logo窗口
if isvalid(mdilogo) = false then
opensheet(mdilogo,this)
//备注:此处的数字1000可以根据实际窗口垂直布局情况进行调整
mdilogo.x = this.workspacex() + 100
//备注:此处的数字1000可以根据实际窗口水平布局情况进行调整
mdilogo.y = this.workspacey() +50
end if

随后就会出现 第一行 “。”附近有语法错误。就是Order By "chapter"."cid" ASC;这一行。
我是才学习PB的,因为公司需要。这个问题我弄一下午也没弄好。希望前辈给整治一下。谢谢啦。


[解决办法]
双引号 都去掉
[解决办法]
没有为什么,语法错误

读书人网 >PB

热点推荐