Форум программистов [Powered by Invision Power Board]

Код

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;