Question

PB连接数据库出了个语法错误，谁帮忙看看

//数据库连接
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "Pb_Data"
SQLCA.LogPass = "cwpass12!"
SQLCA.ServerName = "wangxu"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect;
//定义变量
string vname,vpass
vname=sle_1.text
vpass=sle_2.text
if sle_1.text="" or sle_2.text="" then
messagebox("提示","输入信息不合法",information!,ok!,2)
else

select "BM_users"."userName","BM_users"."userPass","BM_users"."userType"
into :vusername,:vuserpass,:vusertype
from BM_users
where("BM_users"."userName"=:vname)and("BM_users"."userPass"=:vpass);
if sqlca.sqlcode=0 then
messagebox("提示","登录成功")
else
messagebox("提示","输入数据错误")
end if
end if
//这是在登录按钮中的代码，vusername,vuserpass,vusertype是定义的全局变量，调试提示“在userName附近有语法错误”

Answer 1

首先sql语句语法有点问题，where子句和and之间应该有空格，不然识别出问题
其次程序的健壮性不高，拦截空值还需要isnull()判断，不然null值拦截不到
还有验证输入有效性，应该select count(*) into :li_count from bn_users where userName=:vname and userPass =:vpass;
检验是否能够得到有效数据，而不能直接取数

Answer 2

1. 需要在connect语句后通过sqlca.sqlcode的值判断数据库是否连接成功；

2. 把你的SQL语句放到pb中database查询里执行看看能否成功？

   如果这上面两个遇到的问题都解决了，应该就成功了。

追问

连接成功，感觉是SQL语句的问题，

追答

如果带引号的话，那么引号内所有的表名和字段名都要与数据库中的完全一致，包括大小写也要完全相同，就不会有问题了。