动态配置ODBC的问题请教高手！

Question

设置个输入界面，把ADOConnection1.ConnectionString中的项对应输入，然后再合并成一个字符串赋值给ADOConnection1.ConnectionString不就可以了。

Answer 1

呵呵，这个简单呀
比如你加入一个button让用户配置ADOConnection，你可以在这个button的onclick里面写procedure TForm1.Button2Click(Sender: TObject);
var
  MyString:string;
begin
  MyString := PromptDataSource(Handle, MyString);
  showmessage('连接字符串是:'+MyString);
end;

Answer 2

呵呵，这个简单呀
比如你加入一个button让用户配置ADOConnection，你可以在这个button的onclick里面写procedure TForm1.Button2Click(Sender: TObject);
var
  MyString:string;
begin
  MyString := PromptDataSource(Handle, MyString);
  showmessage('连接字符串是:'+MyString);
end;

Answer 3

呵呵，这个简单呀
比如你加入一个button让用户配置ADOConnection，你可以在这个button的onclick里面写procedure TForm1.Button2Click(Sender: TObject);
var
  MyString:string;
begin
  MyString := PromptDataSource(Handle, MyString);
  showmessage('连接字符串是:'+MyString);
end;

Answer 4

use ADOCONED;
EditConnectionString(ADOConnection1);
即可弹出设置连接字符串的对话框

Answer 5

var
  AdoConn:TAdoConnectionimplementation
{$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 OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database 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 OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
  AdoConn.Connected:=True;
end 关键是
promptdatasource(窗口句柄，初始化的连接字符串）窗口句柄可以是nil,初始化的连接字符串可以为空串，返回值就是用户设置好的连接字了

Answer 6

在窗体里加入一个button，在onclick里写如下代码让用户自己配置ConnectionStringprocedure TForm1.Button2Click(Sender: TObject);
var
  MyString:string;
begin
  MyString := PromptDataSource(Handle, MyString);
  showmessage('连接字符串是:'+MyString);
end;

Answer 7

设置个输入界面，把ADOConnection1.ConnectionString中的项对应输入，然后再合并成一个字符串赋值给ADOConnection1.ConnectionString不就可以了。
。同意

Answer 8

Hi, Try these functions...  They are defined in the ADODB.Pas file...  Check for other functinos also...function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
function GetDataLinkFiles(FileNames: TStrings; Directory: string = ''): Integer;Hope this helps...

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
var
s :String;
begin
  s:=PromptDatasource(Form1.handle,s);
  showMessage(s);
end;
end.
我想这就是你所想要的答案了。