Daily Archives: 24.08.2015

Delphi. DBExpress. SQLMonitor

Posted on 24.08.2015 by Stanislav_Panteleev

Для отладки и просмотра списка операций, которые проводит Delphi, оперируя данными есть замечательный компонент SQLMonitor; Как его настроить?

В FormCreate достаточно написать
//SQLMonitor...
Sqlmonitor1.SQLConnection:=sqlconnection1;
sqlmonitor1.FileName:='Mylog.log';
Sqlmonitor1.AutoSave:=true;
sqlmonitor1.Active:=true;

В FormCreate достаточно написать

//SQLMonitor...

Sqlmonitor1.SQLConnection:=sqlconnection1;

sqlmonitor1.FileName:='Mylog.log';

Sqlmonitor1.AutoSave:=true;

sqlmonitor1.Active:=true;

Posted in Без рубрики | Comments Off

Базы данных и Delphi. DBExpress. Первые шаги

Posted on 24.08.2015 by Stanislav_Panteleev

Всем привет – это список постов, которые я написал, пока сам учился работе с БД в Delphi. Я выбрал относительно простую технологию DBExpress. У неё есть недостатки, но для обучения и простых прожектов, она, на мой взгляд, идеальна. Если что-то … Continue reading →

Posted in DBExpress, Delphi, Без рубрики | Comments Off

Delphi. DBExpress. Число инструкций в момент времени

Posted on 24.08.2015 by Stanislav_Panteleev

Максимальное и текущее число инструкций можно посмотреть так…

procedure TMainForm.Button8Click(Sender: TObject);

begin
showmessage('Максимальное число инструкций '+inttostr(sqlconnection1.MaxStmtsPerConn)+#13#10+
'Сейчас выполняется инструкций '+ inttostr(sqlconnection1.ActiveStatements));
end;

procedure TMainForm.Button8Click(Sender: TObject);

begin

showmessage('Максимальное число инструкций '+inttostr(sqlconnection1.MaxStmtsPerConn)+#13#10+

'Сейчас выполняется инструкций '+ inttostr(sqlconnection1.ActiveStatements));

end;

Настроить максимальное число инструкций можно непосредственно на сервере.

Posted in Без рубрики | Comments Off

Delphi. DBExpress. Транзакции

Posted on 24.08.2015 by Stanislav_Panteleev

Как узнать поддерживает ли в принципе Ваш сервер транзакции?

procedure TMainForm.Button6Click(Sender: TObject);
begin

if sqlconnection1.Connected then
begin
if  sqlconnection1.TransactionsSupported then showmessage('Поддерживаю транзакции')
else showmessage('Не поддерживаю транзакции');

end;
end;

procedure TMainForm.Button6Click(Sender: TObject);

begin

if sqlconnection1.Connected then

begin

if sqlconnection1.TransactionsSupported then showmessage('Поддерживаю транзакции')

else showmessage('Не поддерживаю транзакции');

end;

Posted in DBExpress, Delphi, Без рубрики | Comments Off

Daily Archives: 24.08.2015

Delphi. DBExpress. SQLMonitor

Базы данных и Delphi. DBExpress. Первые шаги

Delphi. DBExpress. Число инструкций в момент времени

Delphi. DBExpress. Транзакции

MY PROJECTS

Recent Posts

Categories