Foxtable(狐表)用户栏目专家坐堂 → 外部数据源问题


  共有2838人关注过本帖树形打印复制链接

主题:外部数据源问题

帅哥哟,离线,有人找我吗?
drcqh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:3911 威望:0 精华:0 注册:2013/1/7 17:39:00
外部数据源问题  发帖心情 Post By:2014/10/20 12:14:00 [只看该作者]

请问老师:

我在项目文件所在目录下建了一个IP.txt文件,内容为外部数制源的路径(\\Drc-pc\gcjl\Data\GcJLData.mdb),发布时在添加附件中将此IP.txt文件添加了,发布后在本机上首次运行时会打开一个文件对话框让选数据源,第二次打开后就能正常进入。但在其它机子上打开时每次会打开一个打开文件对话框让选数据源。检查时publish\project\下面也有IP.txt,到底是什么原因?

BeforeConnectOuterDataSource事件中的代码如下:

Dim ipfile As String = projectpath & "ip.txt" 
If filesys.FileExists(ipfile) = True Then    
    Dim dbfile As String = filesys.ReadAllText(ipfile)  
    If filesys.FileExists(dbfile) = True Then    
        If e.name ="Access" Then
            e.C & dbfile & ";Persist Security Info=False" 
        End If
          If e.name ="Access" Then
            Dim dlg As new OpenFileDialog
            dlg.Filter = "Access文件|*.mdb"
            If dlg.ShowDialog = DialogResult.OK Then
                e.C & dlg.filename & ";Persist Security Info=False"
                filesys.WriteAllText(ipfile,dlg.filename,False)
            End If
        End If
    End If
Else   
    If e.name = "Access" Then
        Dim dlg As new OpenFileDialog
        dlg.Filter = "Access文件|*.mdb"
        If dlg.ShowDialog = DialogResult.OK Then
            e.C & dlg.filename & ";Persist Security Info=False"
            filesys.WriteAllText(ipfile,dlg.filename,False)
        End If
    End If
End If

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/20 14:06:00 [只看该作者]

是不是不支持直接写计算机名,你改成ip地址看看。

 

关键是你看一下,选择数据源以后得到的连接字符串是什么。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/20 14:08:00 [只看该作者]

 再有,你这段代码肯定有问题,应该去掉

 

If e.name ="Access" Then
    Dim dlg As new OpenFileDialog
    dlg.Filter = "Access文件|*.mdb"
    If dlg.ShowDialog = DialogResult.OK Then
        e.C & dlg.filename & ";Persist Security Info=False"
        filesys.WriteAllText(ipfile,dlg.filename,False)
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
drcqh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:3911 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 15:43:00 [只看该作者]

三楼这段代码前有个else,没粘上去


 回到顶部
帅哥哟,离线,有人找我吗?
drcqh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:3911 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 15:45:00 [只看该作者]

发布后的项目文件中打不开项目属性,看不了选择数据源以后的连接字符串

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/20 15:51:00 [只看该作者]

 那你去看看ip.txt里面内容是什么。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/20 15:52:00 [只看该作者]

 看6楼,这一段,你必须去掉才行啊。

 

If e.name ="Access" Then
    Dim dlg As new OpenFileDialog
    dlg.Filter = "Access文件|*.mdb"
    If dlg.ShowDialog = DialogResult.OK Then
        e.C & dlg.filename & ";Persist Security Info=False"
        filesys.WriteAllText(ipfile,dlg.filename,False)
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
drcqh
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:3911 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 16:00:00 [只看该作者]

代码粘上去怎么变了

[此贴子已经被作者于2014-10-20 16:04:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/20 16:04:00 [只看该作者]

 代码没有问题。

 

 你对比一下每次的ip.txt的内容有什么不同。


 回到顶部
帅哥哟,离线,有人找我吗?
drcqh
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:346 积分:3911 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 16:08:00 [只看该作者]

帖子上连接字符串写上去一发表怎么就变了?

[此贴子已经被作者于2014-10-20 16:09:29编辑过]

 回到顶部
总数 11 1 2 下一页