Subject  
   ADO를 이용하여 동적으로 odbc의 알리아스를 생성하는 방법


다음과 같이 하시면 됩니다...
참고하시기 바랍니다....^^

  ADOConnection2.Connected  := False;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if  Reg.OpenKey('SOFTWAREODBCODBC.INIodbc Data Sources', True) then
        Reg.WriteString('SQLTEST','SQL Server');{'ADO_TEST' <-- odbc Alias}
    if  Reg.OpenKey('SoftwareODBCodbc.INISQLTEST', True) then begin
        Reg.WriteString ('DATABASE','Pubs');
        Reg.WriteString ('DBQ','Pubs');
        Reg.WriteString ('Description','SQLTEST');
        Reg.WriteString ('Driver','C:WINNTSYSTEM32SQLSRV32.dll');
        Reg.WriteInteger('DriverID',25);
        Reg.WriteString ('FIL','SQLTEST');
        Reg.WriteString ('LastUser','sa');
        Reg.WriteInteger('SafeTransactions',0);
        Reg.WriteString ('Server','SERVER');
        Reg.WriteString ('UID','sa');    {사용자ID}
        Reg.WriteString ('PWD','');      {PASSWORD}
    end;
    if  Reg.OpenKey('SOFTWAREODBCodbc.INISQLTESTEnginesJet', True) then begin
        Reg.WriteString ('ImplicitCommitSync','');
        Reg.WriteInteger('MaxBufferSize',2048);
        Reg.WriteInteger('PageTimeout',5);
        Reg.WriteInteger('Threads',3);
        Reg.WriteString ('UserCommitSync','Yes');
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
  ADOConnection2.Connected  := True;

이 소스를 약간 수정해서 odbc는 잡아줬습니다. 꼭 답변 부탁드립니다.