-- 作者:唐尸三摆手
-- 发布时间:2011/10/28 19:24:00
-- 数据库连接错误
Dim s1 As String = e.ProjectPath & "\\bin\\connection.ini" Dim s2 As String = "erp" If FileSys.FileExists(s1) = False Then e.HideSplashForm = True \'MessageBox.show("数据库连接文件丢失,无法打开此项目!" & vbcrlf & "请联系软件提供商解决!") Else If e.name = s2 Then e.ConnectionString = FileSys.ReadAllText(s1) End If End If
为何报错?文件明明存在且正常的
此主题相关图片如下:screenshot.jpg

|