一段程序

moxing99 2003-05-08 03:52:54
cb_search clicked

sle_1.text=" "
sle_2.text=" "
sle_3.text=" "
sle_4.text=" "
sle_5.text=" "
sle_6.text=" "
sle_7.text=" "
em_1.text=" "
sle_9.text=" "
sle_10.text=" "

Transaction abc
abc.ServerName = 'abc'
abc.DBMS = 'ODB'
abc.Database = 'pubs'
abc.LogId = 'sa'
abc.AutoCommit=False
connect using abc;
if abc.sqlcode=0 then
open(w_main)
else
messagebox("数据库错误","无法成功远程服务器")
halt
end if

string ls_1,ls_2,ls_3,ls_4,ls_5,ls_6,ls_7,ls_8,ls_9,ls_10 //10个变量用来存放数据库
//查询出的结果
ls_10=sle_1.text
select name,sex,jg,zy,sg,tz,birthday,yx,bj from student //从数据库中找到指定的数据
into ls_1,ls_2,ls_3,ls_4,ls_5,ls_6,ls_7,ls_8,ls_9
where number=ls_10
sle_1.text=ls_1
sle_2.text=ls_2
sle_3.text=ls_3
sle_4.text=ls_4
sle_5.text=ls_5
sle_6.text=ls_6
em_1.text=ls_7
sle_1.text=ls_8
sle_1.text=ls_9
if sle_1.text=" "
then messagebox("错误","错误的学号,没有记录,请重新录入")
return
end if

在这段程序里面,(1)老是报在SQL语句的INTO那行有SYNTAX ERROR
(2)WHERE那行报ILLEGAL DATA TYPE :WHERE
(3)然后就是报我的IF 语句和结束语END IF也是语法错误!
请高手指点小弟几招
...全文
51 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
juwuyi 2003-05-08
  • 打赏
  • 举报
回复
select name,sex,jg,zy,sg,tz,birthday,yx,bj from student //从数据库中找到指定的数据
into :ls_1,:ls_2,:ls_3,:ls_4,:ls_5,:ls_6,:ls_7,:ls_8,:ls_9
where number=:ls_10;
sle_1.text=ls_1
sle_2.text=ls_2
sle_3.text=ls_3
sle_4.text=ls_4
sle_5.text=ls_5
sle_6.text=ls_6
em_1.text=ls_7
sle_1.text=ls_8
sle_1.text=ls_9
if sle_1.text=" " then
messagebox("错误","错误的学号,没有记录,请重新录入")
return
end if
th820901 2003-05-08
  • 打赏
  • 举报
回复
select id into :ls_id
from bm
where xm = :as_xm;

if SQLCA.SQLCODE <> 0 then
Return
end if


//看看上面的吧 ,多看看书先..

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧