VPF::Не удаётся "соедениться" к серверу БД

Janger

Дата 28.10.2013, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: нет
Всего: 1

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  buf: string[240];
  error: boolean;
  detach1,detach2:string;
  f: TextFile;
  er: integer;
  i,Level: integer;
begin
        if Button1.Caption = 'Пуск' then
        begin
          StatusBar1.SimpleText:='Дождитесь, идет подключение к серверу баз данных';
          Screen.Cursor:= crSQLWait;
          error:=false;
          ADOConn:=TADOConnection.Create(Form1);
          ADOConn.LoginPrompt:=False;
          ADOConn.Provider:='SQLOLEDB.1';
          ADOConn.Name:='Adoconnection1';
          ADOConn.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog='+DB+';Data Source='+Server;
          ADOConn.LoginPrompt := False;

        try ADOConn.Open;

        except
          Screen.Cursor:= crDefault;
          StatusBar1.SimpleText:='Не удалось установить соединение с сервером баз данных';
          showmessage('Не удается установить соединение с сервером баз данных');
          error:=true;
          ADOConn.Free;
          Exit;
        end;

Можете сказать, что я упустил?

Illusion Dolphin

Дата 28.10.2013, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63

Цитата

Можете сказать, что я упустил?

Ошибку

http://www.delphibasics.co.uk/Article.asp?Name=Exceptions

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Akella

Дата 29.10.2013, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Обязательно к прочтению и пониманию:
http://forum.vingrad.ru/forum/topic-353769.html
http://forum.vingrad.ru/topic-48020/125.html
http://www.gunsmoker.ru/2008/10/x-y-z.html
http://citforum.ru/howto/smart-questions-ru.shtml#intro

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »