关于ADO一问？请进！

[LLSS666]

在单文档中我用#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
no_namespace rename("EOF", "EndOfFile")
我想在程序运行时，单击某一菜单可以显示“数据连接属性”的对话框（就象ADO控件在对话框上点属性可以出来“数据连接属性”对话框）
或有什么好办法可以让用户自由选择
“microsoft OLE DB Provider for ODBC”
“microsoft OLE DB Provider for Orcle”
“microsoft OLE DB Provider for SQL Server”
....
并可以设置数据库名称，用户名，密码等
请指教

[qhq800]

去http://www.vckbase.com/看看
里的ADO的例子

[vc8]

可以用*.udl文件实现，vckbase有例子

[蒋晟]

// NOTE: UNCOMMENT FOLLOWING LINE IF USING MDAC 2.1 (ADO 2.1) and comment line with Msdasc.dll.
#import "C:\Program Files\Common Files\System\OLE DB\OLEDB32.dll" rename_namespace("dl20")

// NOTE: UNCOMMENT FOLLOWING LINE IF USING MDAC 2.0 (ADO 2.0) and comment above line.
//#import "G:\Program Files\Common Files\System\OLE DB\Msdasc.dll" rename_namespace("dl20")

using namespace dl20; // DataLinks #import
using namespace ado20; // ADO #import
HRESULT hr;
IDataSourceLocatorPtr dlPrompt = NULL;
_ConnectionPtr conn = NULL;

::CoInitialize( NULL );

//Launch DataLink connection dialog
hr = dlPrompt.CreateInstance(__uuidof(DataLinks));
conn = dlPrompt->PromptNew();
if ( conn!=NULL )
{
m_strConnect.Format( "%s", (char*) conn->ConnectionString );
UpdateData( FALSE );
}

[蒋晟]

// NOTE: UNCOMMENT FOLLOWING LINE IF USING MDAC 2.1 (ADO 2.1) and comment line with Msdasc.dll.
#import "C:\Program Files\Common Files\System\OLE DB\OLEDB32.dll" rename_namespace("dl20")

// NOTE: UNCOMMENT FOLLOWING LINE IF USING MDAC 2.0 (ADO 2.0) and comment above line.
//#import "G:\Program Files\Common Files\System\OLE DB\Msdasc.dll" rename_namespace("dl20")
//Reason: Datalink connection string builder, was moved to oledb32.dll in ADO2.1
//where as in ADO2.0 it was located in Msdasc.dll (ADO2.0)

#import "G:\Program Files\Common Files\SYSTEM\ADO\MSADO15.DLL" rename_namespace("ado20")
using namespace ado20;

using namespace dl20; // DataLinks #import
using namespace ado20; // ADO #import
HRESULT hr;
IDataSourceLocatorPtr dlPrompt = NULL;
_ConnectionPtr conn = NULL;

::CoInitialize( NULL );

//Launch DataLink connection dialog
hr = dlPrompt.CreateInstance(__uuidof(DataLinks));
conn = dlPrompt->PromptNew();
if ( conn!=NULL )
{
m_strConnect.Format( "%s", (char*) conn->ConnectionString );
UpdateData( FALSE );
}