主题：外部数据源问题

请问老师：

我在项目文件所在目录下建了一个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

 

 

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

 

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

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

 

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

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

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

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

 看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

代码粘上去怎么变了

 代码没有问题。

 

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

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