- Код: Выделить всё
function TMainFrm.SQLList(ss:AnsiString):Byte;
begin
QueryL.Active:=False;
QueryL.SQL.Clear;
QueryL.SQL.Add(ss);
SQLList:=0;
try
QueryL.Open;
except
QueryL.Active:=False;
ConnectList.Connected:=False;
MessageDlg(SysToUtf8('Ошибка чтения '+ss),mtError,[mbOk],0);
SQLList:=1;
end;//try
end;
Запись:
- Код: Выделить всё
function TMainFrm.SQLWork(ss:AnsiString):Byte;
begin
QueryL.Active:=False;
QueryL.SQL.Clear;
QueryL.SQL.Add(ss);
SQLWork:=0;
try
QueryL.ExecSQL;
except
QueryL.Active:=False;
ConnectList.Connected:=False;
MessageDlg(SysToUtf8('Ошибка записи в БД '+ss),mtError,[mbOk],0);
SQLWork:=1;
end;//try
end;
Используем:
- Код: Выделить всё
//читаем
if SQLList('select * from tbl_name where ...')=0 then .....
//редактируем
if SQLWork('update tbl_name set oborud='''+string.Cells[]+'''' where ....')=0 then...
//новая запись
if SQLWork('insert into tbl_name set oborud='''+string.Cells[]+'''',field1=1,field2=2,.... ')=0 then...
