AccessTr.neT

Tam Versiyon: regeditte dsn ayarları oluşturma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
iyi akşamlar
be eklediğim kod delphi için
otomatik ODBC bağlantısı yapmak için
bunu accessda yapmam lazım

Kod:
procedure TDTM_MAIN.DTM_MAINCreate(Sender: TObject);
    var
      Reg: TRegistry;
      VAR_ETIS_DIZINI:string;
    begin
      VAR_EXE_VERSIYON:='6.0';
      DTB_ETIS.LoginPrompt:=True;

      VAR_PROGRAM_DIZINI := ExtractFilePath(Application.ExeName);
      VAR_ETIS_DIZINI:=Copy(VAR_PROGRAM_DIZINI,1,Pos('\PROGRAMS\',Uppercase(VAR_PROGRAM_DIZINI)));//Programin ana dizini bulunuyor....

      // Etis dsn i kontorl ediliyor yoksa olusturuluyor
      Reg := TRegistry.Create;
      try
        Reg.RootKey:=HKEY_CURRENT_USER;
        if not Reg.OpenKey('Software\ODBC\ODBC.INI\Etis',False) and DirectoryExists(VAR_ETIS_DIZINI+'ASA\Win32\') then
            begin
              Reg.OpenKey('Software\ODBC\ODBC.INI\Etis',True);
              Reg.WriteString('AutoStop','YES');
              Reg.WriteString('Delphi','Yes');
              Reg.WriteString('DatabaseFile',VAR_ETIS_DIZINI+'Databases\Etis.db');
              Reg.WriteString('Driver',VAR_ETIS_DIZINI+'ASA\Win32\dbodbc8.dll');
              Reg.WriteString('Integrated','NO');
            end;
      finally
        Reg.CloseKey;
        if not   Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
          ShowMessage('Bilgisayarinizin ODBC sisteminde problem var...')
        else
        begin
          Reg.WriteString('Etis','Adaptive Server Anywhere 8.0');
        end;
        Reg.CloseKey;
        Reg.Free;
      end;
    end;
şöylede açıklama yapmış
-----
MySQL icin nasil yapacaginizi tam olarak bilemiyorum ama bunu nasil ogreneceginizin yontemini biliyorum. Soyle ki:

Kendi makinanizda bir DSN vardir zaten. Makinanizda Regedit ile Registry'ye girin. HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources altinda sizin ODBC DSN'iniz ile ilgili deger oldugunu goreceksiniz...
ayrica DSN adinin Etis oldugunu varsayarsak ayrica HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Etis isimli bir key oldugunu da goreceksiniz ve o key'in icinde sizin ODBC DSN'deki parametrelerin degerlerinin var oldugunu goreceksiniz.

İster programinizin kurulumu sirasinda kurulum programi tarafindan isterseniz Delphi icinden kodla bu degerleri eklediginiz taktirde ODBC DSN'ininiz hazir olacaktir.
Basit bir örnek hazırladım regeditte Etis dizini ve alt dizinler yok ise ekleniyor.

ReadRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "serino", "S", "", Serial
Me.Metin1 = Serial

If Me.Metin1 = "" Then

WriteRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "AutoStop", "S", "Yes"
WriteRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "Delphi", "S", "Yes"
WriteRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "DatabaseFile", "S", CurrentProject.Path & "\Databases\Etis.db"
WriteRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "Driver", "S", CurrentProject.Path & "\ASA\Win32\dbodbc8.dll"
WriteRegistry "HKCU", "Software\ODBC\ODBC.INI\Etis", "Integrated", "S", "No"
End If

regeditdeneme.rar
teşekkürler
Otomatik ODBC bağlantısı için