regeditte dsn ayarları oluşturma
Tarih
25/04/2012 21:49
Konu Sahibi
accessman
Yorumlar
3
Okunma
1611
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi akşamlar
be eklediğim kod delphi için
otomatik ODBC bağlantısı yapmak için
bunu accessda yapmam lazım

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    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;

@benbendedeilem
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
şö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.
@benbendedeilem
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.022
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,08:03
Çözüldü 
Basit bir örnek hazırladım regeditte Etis dizini ve alt dizinler yok ise ekleniyor.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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


Ek Dosyalar
regeditdeneme.rar
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
teşekkürler
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Personel Veritabanı oluşturma ? adebisi 3 161 17/11/2016, 12:45 atoz112
  İki Tarih Arası Rapor oluşturma Erhan Altay 9 643 10/10/2016, 11:08 atoz112
  bağımsız değişken oluşturma ve bağımsız değişkene değer atama drdeliTR 4 190 09/10/2016, 18:37 atoz112
  Accessde Ürün Reçetesi Oluşturma Mrv Tprk 17 636 02/07/2016, 14:00 atoz112
  Kodla Tablo oluşturma ve Forma veri çağırma ve tabloya gönderme ask200075 5 285 01/06/2016, 15:42 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya