密码更换器使用VAccess

时间:2011-06-30 17:26:49

标签: vb6 pervasive

嘿我正在使用密码更换器。用户登录(成功),使用用户姓名首字母加载全局变量,然后启动密码过期表单。我尝试在密码过期表单上使用这些首字母来从DB中检索用户信息。

vaUserLog.FieldValue("USERINIT") = UserInitials
vaUserLog.GetEqual
vaStat = vaUserLog.Status

vaStat一直给我4个错误。我正在使用无处不在的v9。与VA的连接如下:

With vaUserLog
        .RefreshLocations = True
        .DdfPath = DataPath
        .TableName = "USERLOG"
        .Location = "USERLOG.MKD"
        .Open
        If .Status <> 0 Then
           ErrMsg = "Error Opening File " + .TableName + " - Status " + str$(.Status) + vbCrLf + "Contact IT Department"
        End If
    End With

在DB表中,USERINIT是Char,3。UserInitials是一个字符串。

可能遗漏了一些小但现在无法思考的东西。任何帮助都很感激。 Lemme知道你是否需要更多信息。

干杯

1 个答案:

答案 0 :(得分:1)

状态4表示找不到记录。在您的情况下,可能是搜索的值是错误的,有不同的填充(空格与二进制零),或者UserInitials值不在数据文件中。 您可以使用MKDE Tracing查看实际传递给PSQL引擎的内容。完成后,请确保您使用的值通过Function Executor工作,您可以在其中打开文件并执行GetEqual。
以下是我的建议: - 确保您指向正确的数据文件。 - 确保将正确的值传递给GetEqual(通过设置FieldValue)。