Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Заблокирована таблица FOXа после ее создания/заполнения   Найти похожие ветки 

 
Str_alex ©   (2004-03-12 11:32) [0]

1. Создаю таблицу FOXа.
...
Query1.SQL.Add("create table tabl1 (n numeric(2,0),f character (10));
Query1.ExecSQL; ...

и т.д
2. Заполняю ее.
...
Query1.SQL.Add("insert into tabl1 values(:n,:f)");
цикл...

  Query1.ParamByName("n").AsInteger:=i;
  Query1.ParamByName("n").AsString:=PEREMENNAYA;
  Query1.ExecSQL;

конец цикла

И пока прога не закрыта, эта таблица заблокированна :-(
А пользоваться этой таблицей должны другие проги.

Что делать? (С) Чернышевский :-)


 
Andrey V. ©   (2004-03-12 11:36) [1]

Exclusive ?


 
Str_alex ©   (2004-03-12 11:50) [2]

Вот оно и есть. А как отключиться от этой таблицы?

Смысл: конвертер данных между новым оборудованием и старым ПО.
Старое ПО формирует данные в формате ФОКСа, потом конвертер
перегоняет в формат понимаемый оборудованием.

Таблица и должна создаваться/заполняться в ексклюзиве.
Но после ее заполнения "оборудование" должно "скушать"
сформированныю таблицу. Вот тут-то и облом-с.

Использую BDE.
procedure TfrmMain.CreateAllias;
{создание аллиасов}
begin
  with Session do
  begin
     ConfigMode := cmSession;
  try
     AddStandardAlias("My_Allias"",KatalogBD,"FOXPRO");
     finally
        ConfigMode := cmAll;
     end;
  end;
  with dbMyBD do
  begin
     databasename:="MyBD";
     LoginPrompt := False;
     Params.Values["PATH"] :=KatalogBD;
     DriverName:="Microsoft FoxPro Driver (*.dbf)";
     AliasName:="My_Allias";
  end;
end;

Дальше работаю так:

  q1.Close;
  q1.ParamCheck:=true;
  q1.SQL.Clear;
  q1.SQL.Add("insert into ""+KatalogBD+"\tabl1" ");
  ...
  q1.ExecSQL;


 
menart ©   (2004-03-12 12:27) [3]

под рукой нет делфей поставь в уровне доступа, ShareNotDeny, или около таго



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
14-1079698818
YurikGl
2004-03-19 15:20
2004.04.11
У меня частенько форум выдет следующее....


1-1079730518
Step[B.M.]
2004-03-20 00:08
2004.04.11
Как сграбить (к примеру) изображение с TEdit или TMemo


14-1082097710
Uriel
2004-04-16 10:41
2004.04.11
Тест на получение сертификата


14-1082233960
Yegorchic
2004-04-18 00:32
2004.04.11
http://delphigfx.mastak.ru/


14-1082402837
Gomosapin
2004-04-19 23:27
2004.04.11
Помогите решить простую задачу. Pascal