肯定可以的，做个窗口，设置一个数据库文件绝对路径，保存在某个地方，比如txt文件
BeforeConnectOuterDataSource事件去读取这个路径，
If e.name = "成绩" Then
e.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 设置的绝对路径 & "成绩数据.accdb;Persist Security Info=False"
End if
或者让用户选择
示例三
如果希望能够在打开项目的时候，自动出现一个对话框，让用户可以自由选择外部数据文件，可以在BeforeConnectOuterDataSource事件中加入下面的代码：
If e.Name = "连接名称" Then
Dim dlg As New OpenFileDialog
dlg.Filter= "Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.Ok Then
e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"
End If
End if
[此贴子已经被作者于2022/12/23 16:40:54编辑过]
加好友 
发短信
Post By：2022/12/23 15:37:00 [显示全部帖子]
