主题：[原创]【瓜和尚百例，新书预热】数据源自动设置至注册表

'从注册表中读取值

Dim xigua_dir As String

xigua_dir = Registry.GetValue("HKEY_CURRENT_USER\Software\xigua","xigua_dir","0")

'判断注册表中配置的数据库路径值是否为空 如为空 则

If xigua_dir="0" Then

    '打开对话框,选择文件,保存数据库路径至注册表,赋值给数据源

    If e.Name = "数据源名称" Then

        Dim dlg As New OpenFileDialog

        dlg.Filter= "Access文件|*.mdb"

        If dlg.ShowDialog = DialogResult.Ok Then

            Registry.SetValue("HKEY_CURRENT_USER\Software\xigua","xigua_dir",dlg.FileName)

            

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

        End If

    End If

    '否则

Else

    '判断该数据库文件是否存在 如存在 则

    If FileSys.FileExists(xigua_dir) Then

        

        '赋值给数据源

        If e.Name = "数据源名称" Then

            e.C & xigua_dir & ";Persist Security Info=False"

            

        End If

        '否则

    Else

        '打开对话框,选择文件,保存数据库路径至注册表,赋值给数据源

        If e.Name = "数据源名称" Then

            Dim dlg As New OpenFileDialog

            dlg.Filter= "Access文件|*.mdb"

            If dlg.ShowDialog = DialogResult.Ok Then

                Registry.SetValue("HKEY_CURRENT_USER\Software\xigua","xigua_dir",dlg.FileName)

                

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

            End If

        End If

        '判断结束

    End If

    '判断结束

End If

貌似数据源连接字符串部分被屏蔽了，大家自行修正 ConnectionString

或者见附件实例吧。