Скачать: CL | DM;

работа с TADOConnection   Найти похожие ветки 

← →
Vlad2   (2002-08-23 09:02) [0]

Здравствуйте !
Как корректно передать компоненту ADOConn: TADOConnection имя сервера ?
Сейчас я делаю так:
// где-то ранее установлено значение ServerName: string
procedure TForm1.setServerName;
var
countProp, i: Integer;
nameProperty: string;
begin
nameProperty := UpperCase("Data Source");
countProp := ADOConn.Properties.Count - 1;
for i := 0 to countProp do
if UpperCase(ADOConn.Properties[i].Name) = nameProperty then
ADOConn.Properties[i].Value := ServerName;
end;
Я не уверен,
что имя сервера - это всегда свойство "Data Source".

---

← →
wicked ©   (2002-08-23 09:30) [1]

если для mssql, то пока менять не собираются...

---

← →
AlexSam   (2002-08-23 10:00) [2]

Лично в моей программе я использую запись в ini файле
ConnectionString = "Provider=SQLOLEDB.1;Password=av;Persist Security Info=True;User ID=asdkuv_view;Initial Catalog=asdkuv;Data Source=gdpsql"

---

← →
Zev   (2002-08-23 10:03) [3]

//-------------------------------------
// MS SQL Server соединение
//---------------------------------------

My_User := . . . // пользователь
sWorkSer := . . . // имя сервера
sPassWord := . . . // пароль
sWorkBase := . . . // имя базы

with ADOConnection do begin
Close ;
ConnectionString :=
"Provider=SQLOLEDB.1;" +
"Password=" + sPassWord + ";" +
"Persist Security Info=True;"+
"User ID=" + My_User + ";" +
"Initial Catalog=" + sWorkBase + ";" +
"Data Source=" + sWorkSer ;
DefaultDatabase := sWorkBase ;
try
Open( My_User, sPassWord ) ;
except
{ . . .}
end;
end;

---

← →
Vlad2   (2002-08-23 10:17) [4]

Да, так оно всё и есть, Спасибо.
Только, кажется, лучше использовать свойство adoconn.Properties.
Хотелось бы еще дифференцировать ошибки соединения (неверное имя, пароль, имя сервера), но в Help о свойстве adoconn.Errors что-то совсем мало.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c