Merhaba uzun zamandır kullandığım bir*procedure paylaşmak istiyorum. Bu procedure*ile SQL Server' a kolaylıkla bağlanabilirsiniz.
procedure Veritabanina_Baglan(Sifre : String; Kullanici : String; Veritabani_Adi : String;Server_IP: String; SQL_Server_Adi : String; *Baglanti:TADOConnection);
var
*i: integer;
begin
*try
* *if SQL_Server_Adi = '' then
* *begin
* * *Baglanti.Connected * * * *:= False;
* * *Baglanti.ConnectionString := 'Provider=SQLOLEDB.1'+';Password='+Sifre+';Persist Security Info=True '+';User ID ='+Kullanici+';Initial Catalog='+Veritabani_Adi+';Data Source='+Server_IP+';';
* *end
* *else
* *begin
* * *Baglanti.Connected * * * *:= False;
* * *Baglanti.ConnectionString := 'Provider=SQLOLEDB.1'+';Password='+Sifre+';Persist Security Info=True'+';User ID ='+Kullanici+';Initial Catalog='+Veritabani_Adi+';Data Source='+Server_IP+'\'+SQL_Server_Adi+';';
* *end;
* *Baglanti.Connected := True;
* *if Baglanti.Connected then
* *begin
* *end;
* except
* *MessageDlgTranslated('Bağlantı kurulamadı.',mtError,[mbOK],mbOK,0);
*end;
end;
procedure Veritabanina_Baglan(Sifre : String; Kullanici : String; Veritabani_Adi : String;Server_IP: String; SQL_Server_Adi : String; *Baglanti:TADOConnection);
var
*i: integer;
begin
*try
* *if SQL_Server_Adi = '' then
* *begin
* * *Baglanti.Connected * * * *:= False;
* * *Baglanti.ConnectionString := 'Provider=SQLOLEDB.1'+';Password='+Sifre+';Persist Security Info=True '+';User ID ='+Kullanici+';Initial Catalog='+Veritabani_Adi+';Data Source='+Server_IP+';';
* *end
* *else
* *begin
* * *Baglanti.Connected * * * *:= False;
* * *Baglanti.ConnectionString := 'Provider=SQLOLEDB.1'+';Password='+Sifre+';Persist Security Info=True'+';User ID ='+Kullanici+';Initial Catalog='+Veritabani_Adi+';Data Source='+Server_IP+'\'+SQL_Server_Adi+';';
* *end;
* *Baglanti.Connected := True;
* *if Baglanti.Connected then
* *begin
* *end;
* except
* *MessageDlgTranslated('Bağlantı kurulamadı.',mtError,[mbOK],mbOK,0);
*end;
end;