VBSQL求助调试

马小玲的眼泪

现有人事管理系统一个，但存在一点错误，希望得到高手帮助。。

程序代码下载：
http://vip.pastein.net/keith/other/CH12.rar

时间推迟到下周，不过还是比较紧急。。

============

另，手头上还有一套VB数据库代码，可用，但是功能太全面太强大，需要删减。我一动就出错，寻人帮忙。。- -

代码和要求如下，顶楼也有链接。。两套代码任意完成一套即可结贴。
http://vip.pastein.net/keith/help/vbaccess.rar

[ 本帖最后由 马小玲的眼泪 于 2007-6-28 21:58 编辑 ]

马小玲的眼泪

数据库和程序代码都在压缩包里。。

马小玲的眼泪

说不清楚

Private Sub cmdOK_Click()
    Dim mrc As ADODB.Recordset
    Dim strmsg As String
    txtSQL = "select uid from userinfo where UID='" & Trim(txtUserName.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, strmsg)
    If mrc.EOF = True Then
        MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告"
        txtUserName.SetFocus
        txtUserName.SelStart = 0
        txtUserName.SelLength = Len(txtUserName.Text)
        Exit Sub
    End If
    UserName = mrc.Fields(0)
    txtSQL = "select UID from userinfo where PWD='" & Trim(txtPassword.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, strmsg)
    If mrc.EOF = True Then
        MsgBox " 密码错误！", vbExclamation + vbOKOnly, "警告"
        txtPassword.SetFocus
        txtPassword.SelStart = 0
        txtPassword.SelLength = Len(txtPassword.Text)
        Exit Sub
    End If
    OK = True
    frmMain.Show
    Unload Me
End Sub

提示这个有问题。。

马小玲的眼泪

原帖由 tenshinx 于 2007-6-28 14:30 发表
我看了下。可能是这个错。

你压缩包里的userinfo这个表的建立sql是这个,注意黑体字




你的cmdok_Click事件下面的sql里是select uid from userinfo  大小写问题。
把txtSQL = "select uid from userinfo where UID='" & Trim(txtUserName.Text) & "'"这句里的uid改成UID(大写)试试

仅仅是把这个改成UID吗?似乎依然有问题。

原帖由 蜡烛鞭三郎 于 2007-6-28 14:33 发表
txtSQL = "select UID "
  txtSQL = txtSQL & " from userinfo "
  txtSQL = txtSQL & "where UID ='" & Trim(txtUserName.Text) & "'"

SQL那段换一下就行了

LZ恶搞... Where语句里用UID  Select后面跟 ...

换什么,哪里换..


------------------

另,根据程序提示,"    If mrc.EOF = True Then" 这里有问题。

马小玲的眼泪

哎，就是求代码啊。。

我程序学的乱七八糟，要能自己动手也就不求人了。。- -

马小玲的眼泪

嗯， 是有问题。。

马小玲的眼泪

虽然各位尚未解决，但依然感谢各位的热心，暂奉上微薄积分。。

如果哪位朋友机器上恰好装了VB+SQL，能够帮忙调试，那就大好了。。

马小玲的眼泪

原帖由 .lemon. 于 2007-6-28 15:47 发表



你真的去试了么？

可能试的方法有问题吧，能把具体问题说明白吗。。- -

马小玲的眼泪

原帖由 .lemon. 于 2007-6-28 15:56 发表

我22楼是对20楼讲的- -||||

楼上再试下我23楼的代码

编译错误：
属性的使用无效

马小玲的眼泪

程序的是lolicon给的，他说，这程序再某些机器上没有问题，但在某些机器上报错。。

程序出处是某书上附送的，以前他可以用，现在他数据库坏了，无法调试。。。- -

[ 本帖最后由 马小玲的眼泪 于 2007-6-28 16:15 编辑 ]

马小玲的眼泪

转移话题了。。- -

我可能知道问题了，有朋友说此程序是VB5编写的，我这里编译环境都是VB6，有些语法变了。。

马小玲的眼泪

问题是。。。这程序以前可以用。。- -

晚上回来再调试好了，现在要出去考试。。- -

马小玲的眼泪

........

大小写争论暂停下，本帖主题是搞定这么一个VB数据库。。

另，手头上还有一套VB数据库代码，可用，但是功能太全面太强大，需要删减。我一动就出错，寻人帮忙。。- -

代码和要求如下，顶楼也有链接。。两套代码任意完成一套即可结贴。
http://vip.pastein.net/keith/help/vbaccess.rar