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


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

主题:外部数据源问题

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


加好友 发短信
等级:小狐 帖子:326 积分:3723 威望: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

 

 


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


加好友 发短信
等级:小狐 帖子:326 积分:3723 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 15:43:00 [显示全部帖子]

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


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


加好友 发短信
等级:小狐 帖子:326 积分:3723 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 15:45:00 [显示全部帖子]

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

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


加好友 发短信
等级:小狐 帖子:326 积分:3723 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 16:00:00 [显示全部帖子]

代码粘上去怎么变了

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

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


加好友 发短信
等级:小狐 帖子:326 积分:3723 威望:0 精华:0 注册:2013/1/7 17:39:00
  发帖心情 Post By:2014/10/20 16:08:00 [显示全部帖子]

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

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

 回到顶部