请教SQL数据库登录问题？！

zpingfang

.版本 2
.支持库 eDB
.子程序 _按钮3_被单击
.局部变量 sql语句, 文本型
数据库连接1.连接SQLServer (“.”, “ZZ”, “sa”, “11”)
sql语句 ＝ “select * from ONE where Name='” ＋ 编辑框_账号.内容 ＋ “' and password= '” ＋ 编辑框_密码.内容 ＋ “'”
记录集句柄 ＝ 外部数据库1.查询 (sql语句)
.如果 (编辑框_密码.内容 ＝ “”)
    信息框 (“密码不能为空!”, #错误图标, “系统提示”)
.否则
    .如果 (编辑框_密码.内容 ＝ 外部数据库1.读 (记录集句柄, “password”) ＝ 真)
        载入 (主程序, , 真)
        销毁 ()
    .否则
        信息框 (“登陆失败,帐号或密码错误!”, #错误图标, “提示”)
   


编写语句如上，不知哪里写的不对，可以连接，但登录老是提示错误，麻烦高手给指点一下，谢谢啦！

孤心人

你用了两个组件，一个数据库连接，还有一个外部数据库，连接用数据库连接来连接SQL，但读取用外部数据库来读取，不出错才怪呢

要么你用数据库连接配合记录集使用，要么直接使用外部数据库配合数值型的记录集句柄来使用，二选其一

Antony

楼上正解{:3_244:}

金哥专用

沙发正解。。

zpingfang

.版本 2

.子程序 _按钮3_被单击
.局部变量 sql语句, 文本型

外部数据库1.打开SQL数据库 (“.”, “sa”, “1982”, “ZZ”, , )
sql语句 ＝ “select * from zzly where Name='” ＋ 编辑框_账号.内容 ＋ “'and Password= '” ＋ 编辑框_密码.内容 ＋ “'”
记录集句柄 ＝ 外部数据库1.查询 (sql语句)
.如果 (编辑框_密码.内容 ＝ “”)
    信息框 (“密码不能为空!”, #错误图标, “系统提示”)
.否则
    .如果 (编辑框_密码.内容 ＝ 外部数据库1.读 (记录集句柄, “Password”) ＝ 真)
        载入 (主程序, , 真)
        销毁 ()
    .否则
        信息框 (“登陆失败,帐号或密码错误!”, #错误图标, “提示”)



谢谢楼上的几位老师，可为啥我这样也不行呢？

四海铭洋

你的代码有问题  窗口里面要再放一个组件  也就是数据库连接1 旁边的 记录集1 组件！
然后执行SQL语句也不对  应该这样写，对了请给分，谢谢！

.版本 2
.支持库 eDB

.程序集 窗口程序集1

.子程序 _按钮3_被单击
.局部变量 名字, 文本型
.局部变量 密码, 文本型

数据库连接1.连接SQLServer (“.”, “ZZ”, “sa”, “11”)
记录集1.置连接 (数据库连接1)

记录集1.打开 (“select * from ONE where Name='” ＋ 编辑框_账号.内容 ＋ “' and password= '” ＋ 编辑框_密码.内容 ＋ “'”, #SQL语句)
.如果真 (编辑框_账号.内容 ＝ “”)
    信息框 (“账号不能为空!”, #错误图标, “系统提示”)
    返回 ()
.如果真结束

.如果真 (编辑框_密码.内容 ＝ “”)
    信息框 (“密码不能为空!”, #错误图标, “系统提示”)
    返回 ()
.如果真结束

.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“Name”, 名字)
    记录集1.读文本 (“password”, 密码)
    .如果真 (编辑框_账号.内容 ＝ 名字 且 编辑框_密码.内容 ＝ 密码)
        载入 (主程序, , 真)
        销毁 ()
    .如果真结束
    记录集1.到下一条 ()
.计次循环尾 ()
信息框 (“登陆失败,帐号或密码错误!”, #错误图标, “提示”)

zpingfang

谢谢楼上的老师，可是用你的代码显示：连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。这是什么原因呢？{:3_234:}

孤心人

zpingfang 发表于 2011-7-12 09:57
谢谢楼上的老师，可是用你的代码显示：连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。这是什 ...

把你的源码传上来，说了半天也说不清楚，已经给你说了两个组件选择一个使用，你后面更改的根本没改，还是用了两个组件，如果不懂，你干脆把源码传上，让大家帮忙，改完后你再自己对照着看看是哪错了

zpingfang

不好意思啊，我也忘了传附件了，谢谢楼上老师提醒，现在传上来，麻烦大家给看下，谢谢！

孤心人

zpingfang 发表于 2011-7-12 11:14
不好意思啊，我也忘了传附件了，谢谢楼上老师提醒，现在传上来，麻烦大家给看下，谢谢！

我没网络测试，你试试看