为什么很多地方会出现这个问题:ERROR c0031 Syntax Erorr 在线!!急!!

我在做毕业设计当建一个修改密码的W时在"确定"按钮上写了:

string s1,s2,s3,s4,s5,s6

s1 = sle_1.text
s2 = sle_2.text
s3 = sle_3.text
s4 = sle_4.text

select adminid,
     password

  into :s5,
       :s6
from denglu
where adminid = :s1 and password = :s2;
if s1 = s5 and s2 = s6 then
if s3 <> s4 then
MessageBox ("","输入的密码不同，请重新输入!");

else update denglu

SET password = :s3 where (admin = :s1) ;
  Messagebox ("提示","恭喜你更改密码成功!");

  close (w_xiugaimm);

end if

就出现了上述错误,同时在其它的组件上也出现了类似问题.大哥,大姐帮帮忙吧.急死了!!!

5 个解决方案

#1

--try

[password]

#2

--try

--给password加[]

[password]

#3

MessageBox ("","输入的密码不同，请重新输入!");

需要分号吗?

#4

还有你有连个if语句
却只有一个end if

#5

试试这样写
string s1,s2,s3,s4,s5,s6

s1 = trim(sle_1.text)
s2 = trim(sle_2.text)
s3 = trim(sle_3.text)
s4 = trim(sle_4.text)

select adminid,password into :s5,:s6 from denglu where adminid = :s1 and password = :s2;
if s1 = s5 and s2 = s6 then
if s3 <> s4 then
  MessageBox ("","输入的密码不同，请重新输入!")

else
  update denglu SET password = :s3 where (admin = :s1) ;
  commit;
  Messagebox ("提示","恭喜你更改密码成功!")
  close (w_xiugaimm)

end if
end if

#1