请问在程序里怎么弹出IDE环境下的ADO控件设置connectiongstring的窗口（好象API可以实现)(0分)

？

heheprocedure TMainForm.mnuStartNewDatasourceClick(Sender: TObject);
begin
if DataModule2.ADOConnection1.Connected then
DataModule2.ADOConnection1.Close;
DataModule2.ADOConnection1.ConnectionString := PromptDataSource(Application.Handle, DataModule2.ADOConnection1.ConnectionString);
DataModule2.ADOConnection1.Open;
end;

没有分的问题：（

非常感谢，不知道您在CSDN上有帐号吗？我这里没分了，那里可以给分的

开玩笑的
没分就算了
这些知识我也是在dfw上学的

请问PromptDataSource的使用方法
好像在DELPHI中不能直接使用上面的代码
是不是要在USER 里面加入什么单元
另外问个问题,有VB关于这个API函数的说明么
谢谢

你需要USES ADODB单元
这个应该不是API吧

引用 Microsoft OLE DB Service Component 1.0 Type Libary
Private Sub Command1_Click()
Dim x As New MSDASC.DataLinks
Dim c As New ADODB.Connection
x.PromptEdit c
Debug.Print c.ConnectionString
c.Open
End Sub

连分都不给，真小气，当然没人回答了[]

API函数好像是getconnectionstring;

var
AdoConn:TAdoConnection

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AdoConn.Connected:=False;
AdoConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;Data Source=';
AdoConn.ConnectionString:=AdoConn.ConnectionString+'d:/ipcard.mdb'+';';
AdoConn.ConnectionString:=AdoConn.ConnectionString+'Mode=Share Deny None;Extended Properties="";Locale Identifier=1028;Jet OLEDB:System database="";';
AdoConn.ConnectionString:=AdoConn.ConnectionString+'Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;';
AdoConn.ConnectionString:=AdoConn.ConnectionString+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;';
AdoConn.ConnectionString:=AdoConn.ConnectionString+'Jet OLEDBon''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
AdoConn.Connected:=True;
end

uses adodb;

然后就是调用
promptdatasource(窗口句柄，初始化的连接字符串）

窗口句柄可以是nil,初始化的连接字符串可以为空串，返回值就是用户设置好的连接字了

反正左轻候的离线浏览器中就有这个功能吧。