主题：[推荐]连接SQL问题

当我开启项目的时候没有启动SQL服务器，弹出了设置SQL窗口，启动SQL后，SQL设置检查成功，但是登陆的时候却提示错误，是否设置了SQL要重新开启项目？

 

此主题相关图片如下：360截图-9992176.jpg



此主题相关图片如下：360截图-10246769.jpg

你要在 BeforeConnectOuterDataSource 修改链接字符串才有效的。

 

 http://www.foxtable.com/help/topics/0682.htm

 

我已经是在 BeforeConnectOuterDataSource  加入了代码 ？一样的。不知道是否要改？

 

Dim ipFile As String = e.ProjectPath & "Server\ip.txt"
Dim Open As String = e.ProjectPath & "Server\Open.txt"     '数据源连接设置窗口是否打开的配置文件
Dim  ip As  String = FileSys.ReadAllText(ipFile)

    If Filesys.FileExists(ipFile) Then
        e.ConnectionString = ip      '已配置好的数据源连接字符串,

        FileSys.WriteAllText(e.ProjectPath & "Server\Open.txt","Close",False)
    End  If
   
    If Connections.TryConnect(ip) = False Then
        '首次连接时,数据源连接失败时,将数据源连接到项目目录下的Access数据库,是一个空的数据库
        '目的是为下一步打开数据源设置窗口
        FileSys.WriteAllText(e.ProjectPath & "Server\Open.txt","Open",False)  '置数据源检测开关状态为Open.
        e.C & e.ProjectPath & "Server\serverinfo.mdb;Persist Security Info=False"
    End If

 

连接成功以后，写入txt，肯定要重新在启动一次项目。

我写入重启项目之后 关闭SQL设置窗口后开启项目，SQL设置不是关闭后才开启的登陆窗口，怎么能让SQL设置窗口完全关闭后才打开登陆窗口？

此主题相关图片如下：qq截图20151229193642.png

如果正常登陆了，就不要打开sql设置窗口

 

If public变量 <> "正常连接" Then

    Forms("sql窗口").Open

End If

现在是我关闭了SQL设置窗口之后才open的登陆窗口

e.Form.Close()
Forms("登陆窗口").Open()

 

但是当前窗口没有完全关闭，就已经开启登陆窗口了

如果是模式窗口打开模式窗口，就会出现这种问题

 

e.Form.BaseForm.Opacity = 0

e.Form.Close()
Forms("登陆窗口").Open()