Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 155
- Kayıt: 10 Oca 2014 01:08
- Konum: izmir/Buca
Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.
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.
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.
- 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.
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. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
-
- Ü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.
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ü?
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ü?
- 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.
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..: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.AyarYaz prosedürünü de kullanarak dosyaya başka isimlerde başka değerleri yazabilirsiniz.
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;
Böyle bir dosyada aşağıdaki kodla 192.168.1.23 değeri okunacaktır.program.exe ile aynı yerde bulunan program.ini dosya içeriği yazdı:[Genel]
AnaMakine=192.168.1.23
Kod: Tümünü seç
BilgisayarAdi:=AyarOku('AnaMakine');
Kod: Tümünü seç
AyarYaz('Tarih', DateToStr(Date));
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
-
- Ü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.
Başlıkda ki Konuyu henüz açıklığa kavuşturamadım.İlgilenecek dostlara Teşekkür ederim.
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.
ADOConnection oluşturma ve bağlanma kodunuzu paylaşabilir misiniz? Başka türlü ne yapmak istediğiniz net bir biçimde anlaşılmayacak
-
- Ü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.
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.
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.
Re: Delphi Kodlarıyla ADOConnection Oluşturup Kod ile bağlantı kurmak.
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.
ConnectionString çok farklı şekilde oluşturulabilir. Kendi ihtiyacınıza uygun olanını araştırıp sizin belirlemeniz gerekir.
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;
-
- Ü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.
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.
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.