Mega Code Archive
Making your connection using windows data source window
<![CDATA[
Title: making your connection using windows data source window
Question: how to call the windows screen to set the odbc connection?
Answer:
in delphi - component - import component - import activex control - add - "C:\Program Files\Common Files\System\Ole DB\ oledb32.dll"
save this unit. and put this unit in the uses list
we use this to prompt the window.
uses ADODB, MSDASC_TLB;
procedure xxxx.GetNewConnection;
var
Connection: _Connection;
Datalinks : TdataLinks;
begin
Datalinks := TdataLinks.Create(self);
if Not (csDesigning in ComponentState) then
Connection := _Connection(IDataSourceLocator(Datalinks.PromptNew));
end;
]]>