ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
25/04/2012 21:49
Konu Sahibi
accessman
Yorumlar
3
Okunma
1918
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
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

Aktif Üye
Kullanici Avatari
Aktif Üye
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.951
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,15:40
Çö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

Aktif Üye
Kullanici Avatari
Aktif Üye
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
Çözüldü Sql İle İlişkili Combobox Oluşturma tsots 8 374 09/09/2017, 04:13 ozanakkaya
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.115 14/07/2017, 08:32 Gokcen Akan
Çözüldü Firma Cari Hesap Listesi Oluşturma Hk. ALTANs 2 232 09/06/2017, 12:16 ALTANs
Çözüldü Siparişleri Detaylı Sorgu Oluşturma U.ALTUN 3 454 30/05/2017, 14:54 atoz112
Çözüldü Öğrenci Yurdu Veri Tabanı Oluşturma ikaantaskin 3 376 28/05/2017, 17:13 atoz112
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.