主题：外部数据源问题

是不是不支持直接写计算机名，你改成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

 那你去看看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的内容有什么不同。

 

是的。代码应该是没有问题的，关键看ip.txt怎么变化。