UC知道PB的问题
来源：百度知道 编辑：UC知道 时间：2024/09/20 09:41:31
一直不能正确登陆，不知道是那儿出错了，愿各位高手能帮小弟一把！
数据库：student.db
表：user
字段：name（char） pwd（char）
数据库接口：ODBC
char password,usename
// 数据库连接参数
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=student'"
//连接数据库
connect;
SELECT user.Name,
user.pwd
INTO :usename,
:password
FROM user
WHERE user.Name = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
disconnect; //断开数据库连接
else
if usename = sle_1.text and password = sle_2.text then
open(w_mdi)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)
disconnect; end if
end if
楼下的兄弟，按照你的改了一下，但是还是连不上，报错为“用户名和密码有误”,估计是数据库的连接问题
string pass_word,usename
/
数据库：student.db
表：user
字段：name（char） pwd（char）
数据库接口：ODBC
char password,usename
// 数据库连接参数
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=student'"
//连接数据库
connect;
SELECT user.Name,
user.pwd
INTO :usename,
:password
FROM user
WHERE user.Name = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
disconnect; //断开数据库连接
else
if usename = sle_1.text and password = sle_2.text then
open(w_mdi)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)
disconnect; end if
end if
楼下的兄弟，按照你的改了一下，但是还是连不上，报错为“用户名和密码有误”,估计是数据库的连接问题
string pass_word,usename
/
我不知道具体是怎样的报错信息但是可以给你一些提示：
1.SQLCA.DBParm = "ConnectString='DSN=student;UID=sa;PWD=sa'"密码用户名是不是有？数据源名是不是student？
2.字段是不是char（10）什么的？如果是那么声明变量应该是：string password,username
3.select name,pwd into :username,:password from student
where name=:sle_1.text and pwd=:sle_2.text;
if sqlca.sqlcode=100 or sqlca.sqlcode<0 then
beep(1)
messagebox("系统登陆","用户名或密码输入有误！",stopsign!)
end if
在connect后加
connect using sqlca;
if sqlca.sqlcode<0 then
messagebox("提示","数据库连接失败！")
else
messagebox("提示","数据库连接成功！")
end if
你用的什么数据库啊？是不是没有开启服务啊？
dbprofile那是不是没弄好？测试连接成功了吗？
数据表里有数据吗？