主题：这样算不算域名及1433端口设置成功

我以前用固定宽带IP测试过,出差\在公司都可以使用..你用得这个软件,不可以把动态IP变为静态IP吗?

其实局域网内也可用动态域名的，我这连接没有问题。

foxtable访问本机sql，使用：动态域名，1433端口，路由器厂家说，这样操作形成了一个“回路”，肯定是无法登陆r的。ip地址要改成内网本机的IP

啊，你服务器也要登陆系统操作吗？一般不会在服务器操作吧。但有一种方式可以解决。

BeforeOpenProject

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=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
    Messagebox.show("连接服务器失败!请与管理联系!!!")
End Try
End If

 

Ip.txt只是域名或IP地址。（这样可以随意更改连接服务器的方式，不需要修改程序）

刚才试了一下，可以起到提示作用。如果我建立两个不同的ip.txt，一个是域名，另一个是内网的ip

如果第一个ip.txt中的地址登不上，就自动转到另一个ip.txt的地址进行登陆。

这个要怎么设置

If Network.Ping("www.egridsoft.com") Then
    Messagebox.Show("可以访问易表主页")
End If
If Network.Ping("198.01.01.01") Then
    Messagebox.Show("该服务器可用")
End If

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

 

 

以上代码没有测试，思路是这样，楼主试试。（临时写的代码，不知是否有错）

我刚才做了两个错误的ip.txt，系统也登陆进去，并正常访问sql数据库

是不是要这样：

BeforeConnectOuterDataSource

If Network.Ping("192.168.1.111") Then
    Return
Else
    If Network.Ping("ss921981.meibu.com") Then
        e.ConnectionString = e.ConnectionString.Replace("192.168.1.111", "ss921981.meibu.com,1433")
    Else

　MessageBox.show("无法登陆网络")　　　
        Return
    End If
End If

今晚自己还无法测试

 

 

我也遇到与楼主一样的应用问题，要内网外网都能登录

 

建议将外网登录的地址和内网登录的地址写在内部表中

 

然后用代码设置数据源，取消在菜单不设置的数据源。

 

这样，打开项目后，首先按内部表中设置的地址登录，如果不能联接成功，就要求用户自己手工输入地址，再联接。

 

能联接成功的话再加载表。

 

可行否？

 

我将尝试一下。