Kod: Tümünü seç
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;