Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen izmirlikemal »

Delphi Kod İle ADOConnection Oluşturup Kod ile bağlantı kurmak.

Bilgi Notu:

Delphi 10.2 versiyonu, MSSQL Management Studio V17.7 programı ile de Bilgisayarımdaki MSSQL veritabanına offline ulaşıyorum ve veri alabiliyorum. Bu işlemleri yaparken bildiğimiz gibi hazır ADOQuery ile ADOConnection nesnelerini kullanıyoruz. İşletim sistemim Windows10 Home 64bit.

Sorunum :

ADOConnection nesnesini oluşturup bağlantı kurarken, Bilgisayar adını ve veritabanı(Database) adı kod ile girmek zorundayız. Buraya kadar problem yok;

Ancak bu yazılan programı derleyip İnstallShield türü bir program ile setup.exe haline getirip başka PC veya PC lere kurduğumuzda, veritabanı adı değişmeyecek, ancak PC adı muhakkak ki değişecek, bu sorunu nasıl aşacağız.

Bilgilendirirseniz size minnetar olurum. Teşekkürler.
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen sabanakman »

Her bilgisayarda çalışan programa ait ayarların tutulduğu bir dosya oluşturabilirsiniz. Burada da ayar bilgisi olarak ana bilgisayar ismini yazabilirsiniz. Mesela bu iş için .ini dosyalar kullanılabilir.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen izmirlikemal »

sayın arkadaşım sabanakman;
Bugüne kadar .ini uzantılı bir dosya oluşturmadım, sanırım windows not defterinde yazıp uzantısını "ini" olarak kaydedeceğiz. Konu ile ilgili .ini
dosyası paylaşmanız mümkün mü?
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen sabanakman »

Bunun için TIniFile sınıfını kullanabilirsiniz ama benim tavsiyem TMemIniFile kullanılması yönünde olacaktır. Basitçe bir ayar yazan ve okuyan örnek..:

Kod: Tümünü seç

uses Inifiles;

function iniDosyaAdi:String;
begin
  Result:=ChangeFileExt(Application.ExeName, '.ini');
end;

function AyarOku(const AyarAdi:String):String;
begin
  with TMemIniFile.Create(iniDosyaAdi) do try
    Result:=ReadString('Genel', AyarAdi, '');
  finally
    Free;
  end;
end;

function AyarYaz(const AyarAdi, Deger:String):String;
begin
  with TMemIniFile.Create(iniDosyaAdi) do try
    WriteString('Genel', AyarAdi, Deger);
    UpdateFile;
  finally
    Free;
  end;
end;
Burada verilen örnek metotları ayar yazmak veya okumak için aşağıdaki şekilde kullanmak mümkün olacaktır. Mesela örnek projenin .exe ismiyle aynı olan bir ini dosyası şekildeki gibi olsun.
program.exe ile aynı yerde bulunan program.ini dosya içeriği yazdı:[Genel]
AnaMakine=192.168.1.23
Böyle bir dosyada aşağıdaki kodla 192.168.1.23 değeri okunacaktır.

Kod: Tümünü seç

BilgisayarAdi:=AyarOku('AnaMakine');
AyarYaz prosedürünü de kullanarak dosyaya başka isimlerde başka değerleri yazabilirsiniz.

Kod: Tümünü seç

AyarYaz('Tarih', DateToStr(Date));
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen izmirlikemal »

Başlıkda ki Konuyu henüz açıklığa kavuşturamadım.İlgilenecek dostlara Teşekkür ederim.
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen ihalilcoban »

ADOConnection oluşturma ve bağlanma kodunuzu paylaşabilir misiniz? Başka türlü ne yapmak istediğiniz net bir biçimde anlaşılmayacak
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen izmirlikemal »

ihalilcoban dostum!
Kod hazırlamadım ki paylaşayım. İlk sorduğum sorunum hala geçerli. Konu dağıldı gördüğüm kadarıyla. Asıl derdim ini dosyası oluşturmak değil.Benim için Ini dosyasi şu an için tali sorun,"Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak." başlıklı yazı problemim. İyi çalışmalar dilerim.
ertank
Kıdemli Üye
Mesajlar: 1648
Kayıt: 12 Eyl 2015 12:45

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen ertank »

Merhaba,

Yapmak istediğiniz anladığım kadarıyla tamamen kod ile database bağlantısı kurmak. Bunu aşağıdaki şekilde yapmanız mümkün olabilir. Kullanıcı adı ve şifre bilgilerini kendis sisteminizdeki şekilde düzenlemeniz gerekecektir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  AdoCon: TADOConnection;
begin
  AdoCon := TADOConnection.Create(Self);
  try
    AdoCon.ConnectionString := 'Provider=SQLNCLI11.1;User ID="DATABASE_KULLANICI_ADI";password="SIFRE";Initial Catalog=master;Data Source=localhost';
    try
      AdoCon.Connected := True;
    except
      on E: EDatabaseError do
      begin
        ShowMessage('Bağlantı sağlanamadı. Hata: ' + AnsiQuotedStr(E.Message, '"'));
        Exit();
      end;
    end;

    ShowMessage('Database bağlantısı sağlandı');
  finally
    AdoCon.Free();
  end;
end;
ConnectionString çok farklı şekilde oluşturulabilir. Kendi ihtiyacınıza uygun olanını araştırıp sizin belirlemeniz gerekir.
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.

Mesaj gönderen izmirlikemal »

ertank dostum merhaba...
Evet uygulamamda yapmak istediğim buydu. Bir iki değişiklkle uyguladım olumlu sonuç aldım. Size ve ilgilenen tüm arkadaşlarımıza teşekkür ederim.
Cevapla