BeforeOpenProject:
dim b1 as boolean
Dim s1 As String = FileSys.GetParentPath(e.File) & "\ip1.txt"
If FileSys.FileExists(s1) = False Then
b1 = false
Else
b1 = true
Dim ip As String = FileSys.ReadAllText(s1)
Dim Str1 As String = "Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=baox;Data Source=" & ip
Dim Conn As New Data.Oledb.OledbConnection(Str1)
Try
Conn.Open()
Conn.Close()
Catch ex As Exception
Dim s2 As String = FileSys.GetParentPath(e.File) & "\ip2.txt"
If FileSys.FileExists(s2) = False Then
if b1 = false then
e.Cancel = True
MessageBox.show("文件丢失,无法打开此项目!请与管理员联系!!")
end if
Else
Dim ip As String = FileSys.ReadAllText(s2)
Dim Str2 As String = "Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=baox;DataSource=" & ip
Dim Conn As New Data.Oledb.OledbConnection(Str2)
Try
Conn.Open()
Conn.Close()
Catch ex As Exception
Messagebox.show("连接服务器失败!请与管理联系!!!")
End Try
End If
End Try
以上代码没有测试,思路是这样,楼主试试。(临时写的代码,不知是否有错)
[此贴子已经被作者于2010-9-28 17:23:50编辑过]