Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
说明有必要的文件没有复制到发布的文件夹中,自己检查一下。
或者上传到网上,告诉我下载地址,我来检查一下,
Dim s As String = FileSys.GetParentPath(e.File) & "\ip.txt"
If FileSys.FileExists(s) = False Then
e.Cancel = True
MessageBox.show("文件丢失,无法打开此项目!请与管理员联系!!")
Else
Dim ip As String = FileSys.ReadAllText(s)
Dim Str1 As String = "Provider=SQLOLEDB.1;Password=139264;Persist Security Info=True;User ID=sa;Initial Catalog=VS;Data Source=" & ip
Dim Conn As New Data.Oledb.OledbConnection(Str1)
Try
Conn.Open()
Conn.Close()
' Messagebox.show("成功")
Catch ex as Exception
Messagebox.show("连接服务器失败!请与管理联系!!!")
End Try
End if
哦,上述错误提示的是这段代码,
BeforeOpenProject
事件中的,
这个把原有的开发版的目录移动到其它盘符及存在的目录名称造成的。请老大看下是否哪里存在问题?
这还用我说吗?说明下面的文件不存在嘛,或者给定的路径错误。
FileSys.GetParentPath(e.File) & "\ip.txt"
发布不是万能的,有的文件必须自己复制到发布目录中。