Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

работа с TADOConnection [D6, MSSQL]

Vlad2 © (2002-08-23 09:02:00)
Здравствуйте !
Как корректно передать компоненту 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".

Vlad2 (2002-08-23 10:17:00) [1]
Да, так оно всё и есть, Спасибо.
Только, кажется, лучше использовать свойство adoconn.Properties.
Хотелось бы еще дифференцировать ошибки соединения (неверное имя, пароль, имя сервера), но в Help о свойстве adoconn.Errors что-то совсем мало.

Zev (2002-08-23 10:03:00) [2]
//-------------------------------------
// 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;

AlexSam (2002-08-23 10:00:00) [3]
Лично в моей программе я использую запись в ini файле
ConnectionString = "Provider=SQLOLEDB.1;Password=av;Persist Security Info=True;User ID=asdkuv_view;Initial Catalog=asdkuv;Data Source=gdpsql"

wicked (2002-08-23 09:30:00) [4]
если для mssql, то пока менять не собираются...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »