在程序中調用ADO控件的ConnectionString設置框

　　在CB程序中使用ADO組件時，必須設置TADOConnection對象的ConnectString對象。這個步驟往往是在程序設計時就完成的，但是有時需要在程序中由用戶自由定義連接到的數據庫。經過閱讀ADO的VCL源代碼，我總結出了程序支行時定義連接信息的方法，見如下代碼：

void __fastcall TForm1::Button1Click(TObject *Sender)

{

   WideString sOld,sNew;

   sOld = AdoConnection->ConnectionString;//改變前或設計時指定的連接字符

   sNew = PromptDataSource((unsigned int)Handle,sOld);//如果點確定，則sNew爲新設的連接串，否則sNew=sOld

   AdoConnection->Connected = false;

   AdoConnection->ConnectionString = sNew;//重設連接字符

   AdoConnection->Connected = true;

}