请问如何才在应用程序中让用户自己来配置数据库的连接呢？

Question

我在公用模块有个数据库连接，在DataEnvironment中有数据库连接。

Answer 1

使用.ini文件，将配制信息记录到.ini文件中

Answer 2

将配制信息记录到.ini文件中,再在程序中读取配置信息，进行数据库的配置

Answer 3

使用INI的方式存取文件参数
在d盘根目录新建 aaa.ini文件模拟程序
'模块中
Option Explicit'-------------------------
'声明
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long'获得设置
Public Function MyGetSetting(Section As String, KeyName As String, DefaultValue As String) As String    Dim X As Long
    Dim Holder As String * 255    X = GetPrivateProfileString(Section, KeyName, DefaultValue, Holder, 254, "d:\aaa.ini")
    MyGetSetting = Left$(Holder, InStr(Holder, Chr$(0)) - 1)End Function'保存设置
Public Sub MySetSetting(Section As String, KeyName As String, KeyValue As String)    Dim X As Long    X = WritePrivateProfileString(Section, KeyName, KeyValue, "d:\aaa.ini")End Sub'窗体中
Private Sub Command1_Click()
    '保存变量
    MySetSetting "服务器名", "服务器名", "sv"
    MySetSetting "用户名", "用户名", "sa"
    MySetSetting "密码", "密码", "aaaa"
    MySetSetting "数据库名", "数据库名", "Mydatabase"
    MsgBox "保存成功"
End SubPrivate Sub Command2_Click()
    '取出变量
    MsgBox MyGetSetting("服务器名", "服务器名", "")
    MsgBox MyGetSetting("用户名", "用户名", "")
    MsgBox MyGetSetting("密码", "密码", "")
    MsgBox MyGetSetting("数据库名", "数据库名", "")
End Sub

Answer 4

'你也可以通过这种方式要求用户配置后得到的结果sConnect来连接
'引用 microsoft  ole db service component type 1.0
'然后添加
 Private objDataLink As New MSDASC.DataLinks
    Dim sConnect As String
          Set objDataLink = New MSDASC.DataLinks
          sConnect = objDataLink.PromptNew

Answer 5

'你也可以通过这种方式要求用户配置后得到的结果sConnect来连接
'引用 microsoft  ole db service component type 1.0
'然后添加
 Private objDataLink As New MSDASC.DataLinks
    Dim sConnect As String
          Set objDataLink = New MSDASC.DataLinks
          sConnect = objDataLink.PromptNew这个办法最好
我的程序都是采用的这个方法
推荐

Answer 6

一般是存INI文件，或者是写入注册表

Answer 7

楼上的方案都有一个问题，就是必须每个client端都需要配置，这样不是最好，最好能够中间有台代理，将这些信息都放在哪儿！具体怎么实现，可以参考uf u8！

Answer 8

我已经实现了 ini文件的功能，正在做dll的功能，现在正在学习，谢谢大家的帮助！

Answer 9

我的同学建议用dll,大家认为如何？