怪问题！！！

Question

编了一段程序，有的机器就很奇怪的自动退出了，没有任何提示。
 = OpenConnectSQL(SProvider, SServerName, SDatabaseLoginUid, SDatabaseUserPwd, SDatabaseName, trcn)
If Not  Then
    MsgBox "作业数据服务器连接不上,请检查配置!"----这步可以执行End If
Sjcs.Show下边的SJCS窗体Private Sub Form_Load()
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Height) / 2
End Sub大家给看看是什么问题呀？？？

Answer 1

OpenConnectSQL的代码不贴出来是无法知道的

Answer 2

它已经提示MSGBOX了，说明上边的代码可以运行呀。
只是在加载下一个窗体的时候出现了问题。
这个窗体里面只有个进度条ProgressBar和几个按钮，我怀疑我的安装环境不对。

Answer 3

"它已经提示MSGBOX了" "有的机器就很奇怪的自动退出了，没有任何提示。"
这两句不矛盾么?

Answer 4

我感觉是VB环境没装好的问题。但是又不可能给每个客户端把VB6全装一边呀。我现在用的自己做的安装环境，以前都没出过问题。

Answer 5

有的机器"它已经提示MSGBOX了" 
有的机器"很奇怪的自动退出了，没有任何提示。" 
所以你要查问题,OpenConnectSQL的代码不贴出来是无法知道的

Answer 6

'打开联接
Function OpenConnectSQL(ProviderStr As String, ServerNameStr As String, DatabaseLoginUidStr As String, DatabaseUserPwdStr As String, DatabaseNameStr As String, Contmp As Connection) As Boolean
    Dim  As Boolean      '标识连接成功
    On Error GoTo errinfo
     = False
    Screen.MousePointer = 11
    '关闭
    CheckColseConnect Contmp
    Contmp.ConnectionString = "provider=" & ProviderStr & ";server=" & ServerNameStr & ";uid=" & DatabaseLoginUidStr & ";pwd=" & DatabaseUserPwdStr & ";database=" & DatabaseNameStr
    Contmp.CursorLocation = adUseClient
    Contmp.Open
     = True
    DoEvents
    Screen.MousePointer = 0
    OpenConnectSQL = 
Exit Function
errinfo:
    ShowError
End Function

Answer 7

可能是打包的时候有些ocx或dll没打进去

Answer 8

item: Install File
  Source=F:\inst\环境包\VB6STKIT.DLL
  Destination=%SYS%\Vb6stkit.dll
  Flags=0000000010000011
end
item: Install File
  Source=F:\inst\环境包\Vb6chs.dll
  Destination=%SYS%\Vb6chs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Tabctl32.ocx
  Destination=%SYS%\Tabctl32.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Tabctchs.dll
  Destination=%SYS%\Tabctchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Stdole2.tlb
  Destination=%SYS%\Stdole2.tlb
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Stdftchs.dll
  Destination=%SYS%\Stdftchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Olepro32.dll
  Destination=%SYS%\Olepro32.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Oleaut32.dll
  Destination=%SYS%\Oleaut32.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msvbvm60.dll
  Destination=%SYS%\Msvbvm60.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msstdfmt.dll
  Destination=%SYS%\Msstdfmt.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msmskchs.dll
  Destination=%SYS%\Msmskchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msmask32.ocx
  Destination=%SYS%\Msmask32.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msflxgrd.ocx
  Destination=%SYS%\Msflxgrd.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msdatgrd.ocx
  Destination=%SYS%\Msdatgrd.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Mscomctl.ocx
  Destination=%SYS%\Mscomctl.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Mscomct2.ocx
  Destination=%SYS%\Mscomct2.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Mscmcchs.dll
  Destination=%SYS%\Mscmcchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Mscc2chs.dll
  Destination=%SYS%\Mscc2chs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Msadodc.ocx
  Destination=%SYS%\Msadodc.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\msado25.tlb
  Destination=%SYS%\msado25.tlb
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Flxgdchs.dll
  Destination=%SYS%\Flxgdchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Datgdchs.dll
  Destination=%SYS%\Datgdchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Comdlg32.ocx
  Destination=%SYS%\Comdlg32.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Comct332.ocx
  Destination=%SYS%\Comct332.ocx
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Comcat.dll
  Destination=%SYS%\Comcat.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Cmdlgchs.dll
  Destination=%SYS%\Cmdlgchs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Cmct3chs.dll
  Destination=%SYS%\Cmct3chs.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Asycfilt.dll
  Destination=%SYS%\Asycfilt.dll
  Flags=0001000010000011
end
item: Install File
  Source=F:\inst\环境包\Adodcchs.dll
  Destination=%SYS%\Adodcchs.dll
  Flags=0001000010000011
end
帮忙看看还少哪些！！！

Answer 9

你按Ctrl+T看看用了哪些OCX
从"工程->引用 "中看看用了哪些DLL

Answer 10

没有看到MSADO20.TLB或MSADO25.TLB什么的，使用ＡＤＯ哪个版本的也不知道

Answer 11

应该是OpenConnectSQL过程内部的问题，

Answer 12

Private Sub Form_Load() 
on error resume next
 Left = (Screen.Width - Width) / 2 
 Top = (Screen.Height - Height) / 2 
End Sub 

Answer 13

如何查找缺少哪些DLL文件？？大家帮下忙