PB用户登陆代码问题,急求,在线等

来源:百度知道 编辑:UC知道 时间:2024/06/20 23:23:06
// Profile kyxxgl
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=kyxxgl;UID=sa;PWD=sa'"

//连接数据库
connect using sqlca;
if sqlca.sqlcode<>0 then
messagebox("提示!","连接数据库失败,原因"+sqlca.sqlerrtext)
return
end if
string ls_name2,ls_mima2,ls_mima
ls_name2=trim(sle_1.text)
select Glyzh
into :ls_mima
from glyzh
where glyzh.Glyzh=:ls_name2;

ls_mima2=trim(sle_2.text)
if ls_mima2<>ls_mima then
messagebox("出错了","密码错误")
sle_2.text=""

sle_2.setfocus()
return
elseif ls_mima2=ls_mima then
messagebox("登陆成功","欢迎使用!")
open(w_glygn)
close(parent)
end if

为什么我的代码连接不上数据库?我用PB开发的系统,SQL2000的数据库。创建数据源了,其他的功能都可以实现。高手指点下~~

首先,如果数据源没错,你确实已经连上了。
最好是自己调试一下。要学会调试程序。
打开代码,选中代码行在edit里找到(insert断点),
按ctrl+d ,运行 f8 逐步跟踪。看看你变量的值。

最简单的方法,就是在pb中先连接上,然后就点属性,把里面的一些东西复制一下就可以了

为什么连SQL库不用'mss'而用'odbc'

你非要这样的话看看kyxxgl 这个数据源吧,是它没连上