Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ms sql connect string sorun.
#1
Kendi pc de baglantıda sıkıntı yok. Fakat serverda çalıştırdıgımda baglanmıyor nedeni ne olabilir.


   data.DataModule1.ADOConnection1.connected := false;
       data.DataModule1.ADOConnection1.CommandTimeOut := 5;
   data.DataModule1.ADOConnection1.ConnectionTimeOut := 5;
      a := tinifile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
      constr := 'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=' + a.ReadString('CONFIG', 'UserId', '') + ';';
      constr := constr + 'Password=' + a.ReadString('CONFIG', 'Password', '') + ';';
      constr := constr + 'Initial Catalog=' + a.ReadString('CONFIG', 'DatabaseName', '') + ';';
      constr := constr + 'Data Source=' + a.ReadString('CONFIG', 'DatabaseServer', '') +
      ';Extended Properties="Server SPN="""""';
        data.DataModule1.ADOConnection1.KeepConnection := FALSE;
        data.DataModule1.ADOConnection1.LoginPrompt := FALSE;
        data.DataModule1.ADOConnection1.ConnectionString := constr;
      data.DataModule1.ADOConnection1.connected := true;

İni dosyası içi

[CONFIG]
UserId=sa
Password=1
DatabaseName=MERKEZ
DatabaseServer=192.168.1.33\SQLEXPRESS
 
Cevapla
#2
Serverde Bağlantı yolu doğrumu
Cevapla
#3
Neden olmuyor sorusuna doğrudan cevap vermek çok zor.
ConnectionString 'in değerini ve bağlantı sırasında oluşan hata mesajını paylaşırsanız, sanırım daha hızlı yardımcı olabiliriz.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#4
(12-01-2017, Saat: 13:06)meteyus Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlKendi pc de baglantıda sıkıntı yok. Fakat serverda çalıştırdıgımda baglanmıyor nedeni ne olabilir.


   data.DataModule1.ADOConnection1.connected := false;
       data.DataModule1.ADOConnection1.CommandTimeOut := 5;
   data.DataModule1.ADOConnection1.ConnectionTimeOut := 5;
      a := tinifile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
      constr := 'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=' + a.ReadString('CONFIG', 'UserId', '') + ';';
      constr := constr + 'Password=' + a.ReadString('CONFIG', 'Password', '') + ';';
      constr := constr + 'Initial Catalog=' + a.ReadString('CONFIG', 'DatabaseName', '') + ';';
      constr := constr + 'Data Source=' + a.ReadString('CONFIG', 'DatabaseServer', '') +
      ';Extended Properties="Server SPN="""""';
        data.DataModule1.ADOConnection1.KeepConnection := FALSE;
        data.DataModule1.ADOConnection1.LoginPrompt := FALSE;
        data.DataModule1.ADOConnection1.ConnectionString := constr;
      data.DataModule1.ADOConnection1.connected := true;

İni dosyası içi

[CONFIG]
UserId=sa
Password=1
DatabaseName=MERKEZ
DatabaseServer=192.168.1.33\SQLEXPRESS
 

Merhaba,
Aşağıdaki şekilde deneyebilir misiniz?


DatabaseServer=192.168.1.33\SQLEXPRESS
    Yerine sadece İp girin
DatabaseServer=192.168.1.33


  
 a := tinifile.Create(ExtractFilePath(Application.EXEName)+'ayarlar.ini');
 with data.DataModule1.ADOConnection1 do
 Try
   Try
     connected         := false;
     CommandTimeOut    := 5;
     ConnectionTimeOut := 5;
     ConnectionString  :='';
     ConnectionString  :='Provider=SQLOLEDB;Data Source='+ a.ReadString('CONFIG', 'DatabaseServer', '')+';'+
                         'Initial Catalog='+a.ReadString('CONFIG', 'DatabaseName', '')+';'+
                         'User ID='+a.ReadString('CONFIG', 'UserId', '')+';'+
                         'Password='+a.ReadString('CONFIG', 'Password', '');
     LoginPrompt       :=False;
     Connected         :=True;

   except on E: Exception do
     Begin
       Application.MessageBox(PWideChar('Bağlantı Esnasında Hata Oluştu!'+#10+PChar(E.Message)),'Hata!',MB_OK);
       Exit;
     End;
   End;
 Finally
   ShowMessage('Bağlantı Kuruldu!');
 End;
Cevapla
#5
İlginize teşekkür ederim. Serverda firewall kapalı olmasına karşın 1433 ve 1434 portlarına izin verince bağlantı sağlantı. Smile
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  String içindeki kelimelerin baş harflerini büyük harfe çevirme adelphiforumz 0 238 22-12-2017, Saat: 12:29
Son Yorum: adelphiforumz



Konuyu Okuyanlar: 1 Ziyaretçi