mysql - 尝试处理数据库登录表单中的错误时结果不同

Question

我正在制作一个应用程序，它将验证对 MySQL 服务器的登录，这是通过 ADODB.Connection 完成的，如果没有给出错误，则打开另一个 HTA。我正在尝试只使用 HTA、VBScript 和艰苦工作来实现这一目标……在不涉及太多细节的情况下，我想捕获一条错误消息，如果用户输入错误的用户名/密码，该消息将会出现。

通常，如果您输入了错误的密码或用户名，它会显示一条 HTML 错误消息，这看起来不太用户友好。这就是这段代码试图捕捉并使其更加友好的内容。代码段如下:

Sub MainLogin_click
  dim strError
  Uname = usertext.Value
  Pword = passtext.Value
  cstring = "DRIVER={MySQL ODBC 5.2w Driver};SERVER=Localhost;UID=" & Uname _ 
    & ";PWD=" & Pword & ";DATABASE=maindb;"
  conn = CreateObject("ADODB.Connection")
  On Error Resume Next
  conn.Open cstring
  Call MakeDSN
  If Err.Number <> 0 Then
    strError = "LongBow Error" & VbCrLf & " Error Number: " & Err.Number _
      & VbCrLf & " Error Source: " & Err.Source _
      & VbCrLf & " Error Description: " &  Err.Description
    MsgBox(strError)
    Err.Clear
  Else
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run("bin\LongBowAgent.hta")
    Window.close
    conn.Close
  End If  
  On Error GoTo 0 
End Sub

基本上，当我运行此代码以及我的 HTA 作为一个整体时

• 按下“登录”按钮时没有任何反应，也没有任何事件。

或

• 我收到一个不错的错误框(即使使用正确的用户名/密码)说错误 424，VBScript 运行时错误，需要对象。

老实说 - 我已经这样做了 2 天并尝试了很多事情。没有一个真正起作用，但 Google 搜索只能做这么多。

任何帮助和建议都会很棒。我不介意在这里尝试一些完全不同的东西，只要它保持在 HTA 和 VBScript 范围内。

Answer 1

您的 OERN 范围太大 - 它不仅隐藏了 .Open 的错误，还隐藏了 MakeDSN 和错误处理代码中的问题。

讽刺的是，第一个罪魁祸首并未被 OERN 涵盖:

conn = CreateObject("ADODB.Connection")

是错误的，因为你分配了一个对象。尝试一下

Set conn = CreateObject("ADODB.Connection")