主题：[已解决]数据源设置

使用自定义用户登录窗口

 

局域网内部使用Access数据源

 

 

在BeforeConnectOuterDataSource 中写如下代码

 

If Connections.TryConnect(e.ConnectionString) = False Then
    Dim dlg As New OpenFileDialog
    dlg.Filter= "Access文件|*.mdb"
    If dlg.ShowDialog = DialogResult.Ok Then
        e.C & dlg.FileName & ";Persist Security Info=False"
    End If
End If

 

如何写代码 如果链接不通则选择数据源 选择一次后 如果通 下次不弹出选择数据源对话框

论坛拦截了你的代码，使得你贴出的代码不完整。

用txt文件上传吧。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档 (3).txt

谢谢狐爸

居然txt文件的内容，也被截断了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档 (3).rar

压缩包可以了吧

还是不完整，看来不关文本文件的事情，你是复制的代码已经有问题。

上传之前，请检查你粘贴到文本文件的代码是不是已经有问题的了。

也许是我写的代码就不完整，让狐爸误解了吧

看了几遍帮助里面关于数据源的内容，还是不太懂

请帮忙看看

 

此主题相关图片如下：qq截图未命名.png

下面的是什么意思？

 

 e.C & dlg.FileName & ";Persist Security Info=False"

哦，没仔细看。重新上传

 

此主题相关图片如下：qq截图未命名.png

运行代码在程序目录下创建了文件ad.txt

为什么重新打开不能按照ad.txt中的地址设置数据源呢？