以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [推荐]连接SQL问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79361)

--  作者:vvfree
--  发布时间:2015/12/29 18:31:00
--  [推荐]连接SQL问题

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

 


图片点击可在新窗口打开查看此主题相关图片如下:360截图-9992176.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:360截图-10246769.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/12/29 18:31:36编辑过]

--  作者:大红袍
--  发布时间:2015/12/29 19:15:00
--  

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

 

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

 


--  作者:vvfree
--  发布时间:2015/12/29 19:35:00
--  回复:(大红袍)你要在 BeforeConnectOuterDataSourc...

我已经是在 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

 


--  作者:大红袍
--  发布时间:2015/12/29 19:37:00
--  
连接成功以后,写入txt,肯定要重新在启动一次项目。
--  作者:vvfree
--  发布时间:2015/12/29 19:39:00
--  回复:(大红袍)连接成功以后,写入txt,肯定要重新在...

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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151229193642.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/12/29 19:44:00
--  

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

 

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

    Forms("sql窗口").Open

End If


--  作者:vvfree
--  发布时间:2015/12/29 20:33:00
--  回复:(大红袍)如果正常登陆了,就不要打开sql设置窗...

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

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

 

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


--  作者:大红袍
--  发布时间:2015/12/29 20:56:00
--  

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

 

e.Form.BaseForm.Opacity = 0

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