Часть II
Q>:
(DB2) Можно ли подсоединиться к другой БД из SP?
A>:
В DB2 можно. Если хочешь все корректно делать, ставь
distributed unit of work для всех соединений. Такое с гарантией
отработает.

Lilya A. Kozlenko
li@relex.ru

Q>:
В процессе работы программы изменилась структура БД (alter table etc.).
Программа продолжала успешно открывать таблицы, но запросы посылались в
соответствии со старой схемой данных. Как исправить?
A>:
В установках BDE (Configuration utility или BDEAdmin) можно выставить
SCHEMA CACHE = FALSE (не кэшировать схему данных).

Но в некоторых случаях ошибки такого рода все-таки происходят. В таком случае
необходимо воспользоваться методом TDatabase.FlushSchemaCache после каждого
изменения метаданных.

Alex Kaganoff
(2:5030/82.50)

Посмотри настройки BDE "SCHEMA CACHE DIR" , если пусто, то скорее всего в
рабочем каталоге твоей программы должен объявиться некий(некие) .ini файл(ы), в
котором хранятся указания на файлы, в которых храниция информация о кэше схемы
БД. Удали их.
/К сожалению точных названий файлов не помню, имел этот гимор имел года
полтора назад, убрал кэш и забыл/

Sergey Klochkovski
(2:5080/60.3)

Q>:
Как в Delphi сбросить кэш БД на диск?
A>:
uses BDE {в Delphi 1.x не помню, но вроде bdeprocs};

dbiSaveChanges

На Delphi 1.x (16bit) дополнительно вызовите эту процедуру -

procedure DropCache; assembler;
asm
  mov ah,$0D
  int $21
end;

Boris Podchezertseff
(2:5020/898.15)

Q>:
Как сделать так, чтобы в DBGrid напротив некоторых строк можно было бы
галочку поставить?
A>:
Ну примерно тaк (лишнее мaло-мaло порезaл, больно много его, но идея виднa

нa сервере - тaблицa Advertis.DB, первичный ключ ID - autoincrement.
Ha локaльном диске - тaблицa Founds.DB, с полем Advertis: integer, по которому
есть индекс, и tblFounds.IndexFieldNames = 'Advertis'.

Ha гриде:

=== cut ===

procedure TMainForm.dbgWorkDblClick(Sender: TObject);
begin
  TriggerRowSelection;
end;

procedure TMainForm.TriggerRowSelection;
begin
  if dmFile.AdvertisCount <> 0 then begin
    with dmFile do if not tblFounds.FindKey([tblAdvertisID.Value]) then begin
      tblFounds.AppendRecord([tblAdvertisID.Value]);
    end else begin
      tblFounds.Delete;
    end;
    dbgWork.Refresh;
  end;
end;

procedure TMainForm.dbgWorkDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DataCol = 0 then with dmFile, dbgWork.Canvas do begin
    FillRect(Rect);                          {clear the cell}
    if tblFounds.FindKey([tblAdvertisID.Value]) then begin
      TextOut(Rect.Left, Rect.Top, 'ь');
    end;
  end;
end;

=== cut ===

Окaзывaется, я переопределял рисовaние гридa, a не вычислял поле. Не помню
точно, но кaжется, чтобы не перечитывaть тaблицу нa кaждый дaблклик, a только
перерисовaть грид.

А колонкa для гaлки в гриде определялaсь тaк:

=== cut ===
  with dmFile, dbgWork.Columns do begin
    BeginUpdate;
    Clear;

    {check mark}
    nc := Add;
    nc.Width := 14;
    nc.Font.Name := 'Wingdings';
    nc.Font.Size := 11;
    nc.Alignment := taRightJustify;
    nc.Title.Caption := 'ю';
    nc.Title.Font.Name := 'Wingdings';
    nc.Title.Font.Size := 10;
    nc.Title.Alignment := taCenter;

[skip определения остaльных колонок]

    EndUpdate;
  end;

=== cut ===

Вроде всё.
Ну, кaк нaпечaтaть/обрaботaть только помеченное, сaм рaзберёшься. У меня тaм
нaкручено чего-то с фильтрaми, думaю, можно проще.

Что кaсaется других способов - можно вместо временной тaблицы попользовaть
список, мaссив или in-memory table.

Dmitry Shikhman (Дмитрий Шихман)
(2:468/13.32)

Q>:
(PX) Что нужно сделать для нормальной работы в одноранговой сети
с базами Paradox?
A>:
BDE Config/Admin - нa вклaдке System устaнови LOCAL SHARE в TRUE!

Здесь комментарий -

В Help параметр LOCAL SHARE описан как:
AA> === Cut ===
AA> The ability to share access to local data between an active BDE
AA> application and an active non-BDE application.  Set to TRUE if you need to
AA> work with the same files through both a BDE and a non-BDE application at
AA> the same time.  (It is not necessary to set LOCAL SHARE to TRUE if you do
AA> not need to have both applications open at the same time.)  Default: FALSE.
AA> === Cut ===

Дaк читaл я вышеизложенное, и рaсценивaю его кaк тумaнопускaтельство. А
подозревaю, что просто у BDE для скорости есть свой внутренний кэш (или, может,
мехaнизм блокировок в пaмяти), и для двух приложений _нa_одном_компьютере_ оно
всё делaет хорошо, a вот если приложение нaходится нa другом компьютере (и
лезет в БД через другую копию BDE), то у него есть доступ только к фaйлaм нa
диске (кaк и у non-BDE application).

Скорее всего, борлaнд отключaет эти хитрости у сетевых дисков. Но для
_локaльного_ дискa, который рaсшaрен по сети, он этого, похоже, не сделaл
И BDE нa фaйл-сервере не зaботится о прaвильных индексaх и блокировкaх нa диске
(т.е. не ожидaет, что кто-то мог испрaвить индекс, покa оно ворон считaло).

А этa устaновкa _зaстaвляет_ его рaботaть по стaрым пaрaдоховым соглaшениям.

Что и требовaлось.

PS Инaче говоря, следует считaть, что network is non-BDE application, и тогдa
это не есть бaгa

Dmitry Shikhman (Дмитрий Шихман)
(2:468/13.32)

Q>:
(IB) При попытке регистрации UDF возникает ошибка (udf not defined).
Что не так?
A>:
1) Располагайте DLL в каталоге Interbase/Bin, или в одном из каталогов,
в которых ОС обязательно будет произведен поиск этой библиотеки
(для Windows это %SystemRoot% и %Path%);
2) При декларировании функции не следует указывать расширение модуля (в Windows
по умолчанию DLL):

declare external function f_SubStr
  cstring(254), integer, integer
returns
  cstring(254)
entry_point "Substr" module_name "UDF1"

Где UDF1 - UDF1.DLL.

Alexey Malinin
(2:5057/19.18)

Q>:
При выполнении некоторых живых запросов, возвращающих единственную запись,
BDE ругается "multiple records found, but only one was expected". Как лечить?
A>:
Запросы вида

  SELECT c, b, a, q FROM T WHERE b = :b,

где ключ c, но Дельфы посчитали ключом  a. Интересный запрос, да? Такое
впечатление, что, поскольку ключом в исходной таблице являлсь третья колонка,
то Дельфы посчитали ключом третью колонку. Перестановкой SELECT a, b, c, q...
все исправилось. Я решил теперь использовать в таких (live) запросах только
SELECT *.

Victor V. Metelitsa
(2:5077/13)

Q>:
Требуется информация о принципе и порядке работы с TUpdateSQL
для работы с неживыми запросами.
A>:
Кидаешь UpdateSQL на форму, после чего в том SQL, который ты собираешься
редактировать, устанавливаешь в UpdateObject имя этого UpdateSQL. После этих
дел по дабл-клику на UpdateSQL выдаётся редактор, в котором ты должен для
каждой из таблиц,входящих в твой запрос, указать набор полей, являющихся
уникальным ключём _таблицы_, и набор полей, которые требуется редактировать.
В общем случае возможны глюки с редактированием, если в числе изменяемых полей
будут элементы ключа. Указав все поля, давишь кнопку Generate SQL и в
результате у тебя генерятся запросы на редактирование, добавление и удаление,
которые прописываются в том же UpdateSQL. Обычно эти запросы никакого
дополнительного редактирования не требуют. После всех
этих дел ты можешь нормально редактировать запрос, как обычную таблицу.

Некоторые моменты.

Для того, чтобы всё это нормально работало, нужно, чтобы в TQuery были включены
RequestLive и CashedUpdates. Соответственно, для подтверждения изменений нужно
вызывать TQuery.ApplyUpdates и TQuery.CommitUpdates, либо
TDatabase.ApplyUpdates, а для отмены - CancelUpdates.

Если меняешь структуру таблиц, то не забывай менять  списки полей в UpdateSQL,
иначе можешь получить неприятный сюрприз - будешь долго сидеть и думать,
почему при редактировании/добавлении некоторые поля не прописываются .

-- Отрезано --

Насчёт CachedUpdates.
Сия хреновина придумана для того, чтобы обеспечить сохранение/отмену
редактирования/добавления/удаления сразу нескольких записей. Принцип
совершенно элементарен: если CachedUpdates  включен, то все производимые
изменения в датасете по команде Post фиксируются не в базе, а во временном
файле на винте клиента. Для того, чтобы прописать изменения в таблице
(физически), необходимо вызвать для соответствующего запроса последовательно
методы ApplyUpdates и CommitUpdates, а для отмены ВСЕХ изменений (начиная от
последнего выполненного CommitUpdates), вызвать CancelUpdates.
Кроме того, метод ApplyUpdates у TDataBase. Этому методу нужен список
датасетов, и он производит их обновление в одной транзакции.

Практическое применение, например, такое: на форме редактирования с
гридом и набором кнопок Добавить, Удалить, Редактировать, ОК, Отмена,
вешаешь на первые три кнопки обработчики с Insert, Delete и Edit
соответственно,на ОК - такой примерно обработчик:

with DataSet do begin
  if State in [dsEdit,dsInsert] then Post;
  ApplyUpdates;
  CommitUpdates;
end;

а на Отмену такой:

with DataSet do begin
  if State in [dsEdit,dsInsert] then Cancel;
  CancelUpdates;
end;

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

Ivan Kudryashov
jony@chat.ru

Q>:
(DB2) Как заставить работать DB2 через протокол IPX?
A>:
=== begin DB2IPX.TXT ===
Связь Win-клиента c DB2 в сети Netware

           Настройка доступа к DB2
         --------------------------

  1. Связь с использованием протокола IPX/SPX.
-----------------------------------------------

Возможны два варианта доступа:
        - через сервер NETWARE;
        - прямая адресация.

  1.1. Конфигурация для доступа через сервер.
------------------------------------------------------

Замечание. Проверялся доступ через сервера NW 3.11 и 3.12.
           Для 4.х нужно еще разобраться.

  1.1.1.  DB2 Сервер.
---------------------

- должна быть установлена OS/2 Warp или OS/2 Warp Connect.

- включена поддержка NETWARE;

- в CONFIG.SYS в переменную среды DB2COMM добавить (через запятую) IPXSPX и
перезагрузить систему;

- создать командный файл DBIPXSET.CMD :
  |------------------------------------------------------------------
  |db2 update dbm cfg using fileserver <NWSERVER> objectname dbserver
  |------------------------------------------------------------------
        где - <NWSERVER> - имя сервера;

- выполнить командный файл DBIPXSET.CMD ;

- перестартовать сервер базы данных;

- создать командный файл DBIPXREG.CMD :
  |----------------------------------------------------------------
  |db2 register nwbindery user <USERNAME>
  |----------------------------------------------------------------
        где - <USERNAME> - имя пользователя, обладающего правами
администратора на сервере <NWSERVER> ;

- выполнить командный файл DBIPXREG.CMD ;

- ответить на запрос пароля.

  1.1.2. WINDOWS - клиент.
--------------------------

- установить WINDOWS 3.1 или WfWG 3.11;

- установить клиента NETWARE от версии 4.х
- при установке влючить поддержку WINDOWS;
- установить клиента DB2 для WINDOWS;
- используя программу Client Setup описать новый узел - сервер базы
данных :
        Name - <любое имя>
        Protocol - IPX/SPX
        File server - <NWSERWER>
        Object name - dbserver
- описать базу данных и разрешить доступ к ней через ODBC.

  1.2. Конфигурация для доступа через прямую адресацию
----------------------------------------------------------

  1.2.1.  DB2 Сервер.
---------------------

- см. п 1.1.1.

- найти в директории x:\sqllib\misc программу  DB2IPXAD.EXE и
выполнить ее;
- записать полученный адрес.

  1.2.2. WINDOWS - клиент.
--------------------------

- см. п. 1.1.2. (первые три);
- используя программу Client Setup описать новый узел - сервер базы
данных :
        Name - <любое имя>
        Protocol - IPX/SPX
        File server - *
        Object name - <адрес полученный от DB2IPXAD.EXE>
-  описать базу данных и разрешить доступ к ней через ODBC.

=== end DB2IPX.TXT ===

Sergei Babain
(2:5058/88.23)

Q>:
Можно ли в TDBGrid pазpешить только опеpации UPDATE записей
и запpетить INSERT/DELETE ? И как это сделать?
A>:
А я делаю так. а DataSource к которому прицеплен Grid вешаю Event OnStateChange
при ентом обрабатываю

if DBGrid1.DataSource.DataSet.State in [dsEdit, dsInsert] then
   DBGrid1.Options:=DBGrid1.Options+goRowSelect
else
   DBGrid1.Options:=DBGrid1.Options-goRowSelect;

Дело в том что если у Grid'а стоит опция goRowSelect из Grid'а невозможно
добавить запись. у а когда програмно вызываешь редактирование то курсор
принимает обычный вид и все Ok Ob.

Denis Kim
(2:5020/799.2)

Лучше "not State in dsEditModes"

Max Belugin
(2:5020/484.28)
belugin@bsd.lanit.ru

Q>:
(MSSQL) Как поймать свой RAISEERROR в Delphi?
A>:
Отлавливать нужно NativeCode напpимеp так:

procedure TFDMUtils.GeneralError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
  var i: Word;
      ExtInfo : String;
begin
  ExtInfo := '';

if (E is EDBEngineError) then begin
  if (EDBEngineError(E).Errors[0].NativeError = 0) then begin // Local Error
         if EDBEngineError(E).Errors[0].Errorcode = 9732 then
            ExtInfo := DataSet.FieldByName(trim(copy(E.Message,
29,20))).DisplayLabel;
.......................................
      end else begin       // Remote SQL Server error
          ExtInfo := ExtractFieldLabels(DataSet, E.Message);
          case EDBEngineError(E).Errors[0].NativeError of
               233, 515 :
                 Alert('Ошибка','Не все поля заполнены ! '+ExtInfo );
               547      :
                 if (StrPos(PChar(E.Message), PChar('DELETE')) <> nil ) then
                     Alert('Ошибка пpи удалении','Имеются подчиненные записи,
удаление (изменение) невозможно! '+ExtInfo )
                 else
                 if (StrPos(PChar(E.Message), PChar('INSERT')) <> nil ) then
                    Alert('Ошибка пpи вставке','Отсутствует запись в
МАСТЕР-таблице! '+ExtInfo )
                 else
                 if (StrPos(PChar(E.Message), PChar('UPDATE')) <> nil ) then
                    Alert('Ошибка пpи обновлении','Отсутствует запись в
МАСТЕР-таблице! '+ExtInfo );
               2601     :
                 Alert('Ошибка','Такая запись уже есть!' );
               else
                 Alert('Ошибка','Неизвестная ошибка, код - '+
                        inttostr(EDBEngineError(E).Errors[0].NativeError)
+ExtInfo);
          end;
      end;
  end;
end;
------------------------------------------------------
Этот код был заточен под MSSQL, но не нужно пытаться его использовать, а лучше
по этому пpимеpу написать свою.

Sergey Gristchuk
gristchuk@usa.net
(2:463/209.31)

> --- added in v3
Q>:
Как заставить компонент реагировать на изменения в TDataSource?
A>:
TFieldDataLink. За D2 не скажу, а в D1 в Help'е его нет, pеализован в
\DELPHI\SOURCE\VCL\DBTABLES.PAS.

VV>   Более конкретный вопрос: Как заставить произвольные объекты
VV> (предположительно формы) реагировать на изменения в каком-то DataSource?

type
  TMyForm = class(TForm)
    {...}
    Table1: TTable;
    DataSource1: TDataSource;
  private
    FDL : TFieldDataLink;
    procedure RecChange(Sender: TObject);
  public
    {...}
  end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  FDL:=TFieldDataLink.Create;
  FDL.OnDataChange:=RecChange;
  FDL.DataSource:=DataSource1;
  FDL.FieldName:='MyFieldName';
end;

procedure TTabEditDlg.FormDestroy(Sender: TObject);
begin
  FDL.Free;
end;

procedure TTabEditDlg.MasterChange(Sender: TObject);
begin
  {... тут pеагиpуй на изменения ...}
end;

Eugene Polkin
(2:5001/12.3)

Q>:
В Delphi 3 ползунок TDBGrid иногда может находится не только в трех
фиксированных позициях. Что для этого нужно?
A>:
Здесь отрывки из исходников VCL -

==========
unit DBGrids;
procedure TCustomDBGrid.UpdateScrollBar;
var
  SIOld, SINew: TScrollInfo;
begin

[skipped]

>      if IsSequenced then

      begin
        SINew.nMin := 1;
        SINew.nPage := Self.VisibleRowCount;
        SINew.nMax := RecordCount + SINew.nPage -1;
        if State in [dsInactive, dsBrowse, dsEdit] then
          SINew.nPos := RecNo;  // else keep old pos
      end
      else
      begin
        SINew.nMin := 0;
        SINew.nPage := 0;
        SINew.nMax := 4;
        if BOF then SINew.nPos := 0
        else if EOF then SINew.nPos := 4
        else SINew.nPos := 2;
      end;

[skipped]

unit dbtables;
function TBDEDataSet.IsSequenced: Boolean;
begin
  Result := (FRecNoStatus = rnParadox) and (not Filtered);
end;
==========

Ilya Andreev
(2:5030/55.28)

То есть, к примеру, все будет работать "красиво" на таблицах BDE, если они:
а) таблицы Paradox;
б) на них не установлен фильтр.
TClientDataSet в режиме singletier (briefcase) также работает "красиво".

Q>:
(Desktop) Можно ли использовать результаты выполнения одного TQuery для другого TQuery?
A>:
Если Вы работаете с локальными БД, то Вам поможет -

DbiMakePermanent(SourceQuery.Handle, RName, false);

Ilya Andreev
(2:5030/55.28)
Sergey Sukhanov
(2:5019/1.32)

Q>:
(DB2/NT) Как создать БД в кодировке CP1251?
A>:
     Вот такая конструкция проходит на DB2 2.1.2/NT и UDB5/NT...

=== Cut ===
CREATE  DATABASE Efes2
USING CODESET 1251 TERRITORY RU
COLLATE USING IDENTITY;
=== Cut ===

Ilia Starkov
(2:5061/2.21)

Q>:
(Oracle) Подскажите, как на Oracle 7.3.2.3 (Solaris x86) поменять compatible на
7.3.2.3 (c 7.1.0.0)?
A>:
Ставить в initmybase.ora
compatible = "7.3.2.3"
и после старта с новым параметром сделать
ALTER DATABASE RESET COMPABILITY;
И рестартовать базу.

Alexander Medvedev
(2:5010/3.88)

Q>:
(IB) Как получить результирующим полем разницу между хранимой датой и текущей
датой?
A>:
   SELECT CAST((поле_с_датой -"NOW") AS INTEGER)
   FROM MyBase

Получишь результат в днях.

Andrey K.Yazev
(aky@infra.sar.nnov.ru)

Q>:
(D3) Как добится верной работы фильтра на запросах и на неиндексированных таблицах?
(Т.е. при работе программы наблюдалась следующая картина:
в результате очередной фильтрации оставалось
видно 4 записи из восьми. Добавляем букву к фильтру, остается, допустим,
две. Убираем букву, которую только что добавили, в гриде все равно видно
только две записи.)
A>:
Эта проблема была в D3 только на TQuery, а в D3.01 появилась и в TTable.
Лечится так (простой пример):

procedure TMainForm.Edit1Change(Sender: TObject);
begin
  if length(Edit1.Text) > 0 then begin
    Table1.Filtered := TRUE;
    UpdateFilter(Table1);
  end
  else Table1.Filtered := FALSE;
end;

procedure TMainForm.UpdateFilter(DataSet: TDataSet);
var
  FR: TFilterRecordEvent;
begin
  with DataSet do begin
    FR := OnFilterRecord;
    if Assigned(FR) and Active then begin
      DisableControls;
      try
        OnFilterRecord := nil;
        OnFilterRecord := FR;
      finally
        EnableControls;
      end;
    end;
  end;
end;

Pavel Krasikov
(2:5005/7)

> --- changed in v3
Q>:
(PX, DBF) Подскажите, плз, как упаковать базу (dBase,Paradox) в runtime?
A>:
Для dBase:

uses
   DbiProcs;

with Table do
begin
   OldState := Active; Close;
   Exclusive := True; Open;

   DbiPackTable(DBHandle, Handle, nil, nil, True);
   {^ здесь можно добавить check()}

   Close; Exclusive := False;
   Active := OldState;
   { при желании можно сохранить закладку }
end;

Для Paradox:

DbiDoRestructure(DBHandle, 1, ?, nil, nil, nil, False); { см. dbiProcs.int }

Вместо ? указатель на массив длинных таких структур с описанием
реструктуризации. Кто делал на Px, я думаю, дадут пример.

Pavel Kulchenko
(2:465/66)

Это насчет упаковки db (может что-то и лишнее, что-то можно
сделать по-дpугому, но pаботает )

Пpимеp для Paradox:

Uses BDE; // for D3, для D2 непомню (что-то типа DbiProc и еще что-то)

// для пpимеpа
tLog : TTable; // таблица юзающая d:\db\log.db

var
     TblDesc:  CRTblDesc;
     rslt   :  DBIResult;
     Dir    :  String; //имеется в виду huge string т.е. {$H+}
     hDb    :  hDbiDb;

begin
  tLog.Active:=False; //деактивиpуем TTable

  SetLength(Dir, dbiMaxNameLen + 1);
  DbiGetDirectory(tLog.DBHandle, False, PChar(Dir));
  SetLength(Dir, StrLen(PChar(Dir)));

  DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0, nil, nil, hDb);

  DbiSetDirectory(hDb, PChar(Dir));

  FillChar(TblDesc, sizeof(CRTblDesc), 0);
  StrPCopy(TblDesc.szTblName, 'd:\db\log.db');
                              // здесь должно быть полное имя файла
                              //котоpое можно: а) ввести pуками;
                              //б) вытащить из пpопеpтей таблицы;
                              //в) вытащить из алиаса;
                              //г) см. FAQ
  StrCopy(TblDesc.szTblType, szParadox);
                             //BTW тут может и szDBase стоять

  TblDesc.bPack := TRUE;

  DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False);
  DbiCloseDatabase(hDb);

end;

// можно еще чеки ввести, но облом

Robert Gluvchinskiy
(2:463/102.108)

> --- added in v2
Q>:
Неожиданно возник следующий вопрос :
Каким образом можно узнать где физически располагается локальная база
данных, если известно имя Alias-а ?
A>:
1. По таблице (фактически по Database) получить физическое местонахождение.
Прим. Database можно создать явно, если нет, Дельфи сама его создаст, доступ
по Table(Query).Database

uses
  DbiProcs;

function GetDirByDatabase(Database: TDatabase): string;
var
  pszDir: PChar;
begin
  pszDir := StrAlloc(255);
  try
    DbiGetDirectory(Database.Handle, True, pszDir);
    Result := StrPas(pszDir);
  finally
    StrDispose(pszDir);
  end;
end;

2. По алиасу.

function GetPhNameByAlias(sAlias: string): string;
var
  Database: TDatabase;
  pszDir: PChar;
begin
  Database := TDatabase.Create(nil);                 {allocate memory}
  pszDir := StrAlloc(255);
  try
    Database.AliasName := sAlias;
    Database.DatabaseName := 'TEMP';   {requires a name -- is ignored}
    Database.Connected := True;    {connect without opening any table}
    DbiGetDirectory(Database.Handle, True, pszDir);     {get the dir.}
    Database.Connected := False;                          {disconnect}
    Result := StrPas(pszDir);                    {convert to a string}
  finally
    Database.Free;     
    StrDispose(pszDir);
  end;
end;

Pavel Kulchenko
(2:465/66)

Q>:
Как записать в BLOB поле большой текст (>255) из DELPHI?
A>:
var S: TBlobStream;
    B: pointer;
    c: integer;

Table1.Edit;
S := TBlobStream.Create(Table1BlobField as TBlobField, bmWrite); {кажется, так}
C := S.Write(B, C);
Table1.Post;
S.Destroy;

или так

var S: TMemoryStream;
    B: pointer;
    C: integer;

S := TMemoryStream.Create;
...
Table1.Edit;
S.Clear;
S.SetSize(C);
C := S.Write(B,C);
(Table1BlobField as TBlobField).LoadFromStream(S);
S.Clear;
Table1.Post;
...
S.Destroy;

Alexey Kats
(2:463/201.9)

Q>:
(DBF) Как открыть индексированную таблицу dBase, если нет файла *.MDX?
A>:
Для DBASE-таблицы встроенными средствами ты не перестроишь индекс,
если его нет.  Для этой цели мне пришлось написать процедуру для
физического удаления признака индексации в самом dbf файле и после ее
применения добавлять индексы заново. Для этого в заголовок файла dbf
по смещению 28(dec) записываешь 0. По другому никак не выходит(я долго
бился)- вот для Paradox таблиц все Ok.

Олег (GOS)
oleg@avia.cmw.ru

Q>:
(MSSQL) Можно ли вызвать Stored Procedure через TQuery, если она
не возвращает курсора?
A>:
В случае MS SQL нужно написать:
Query1.Sql:='declare @res'+#13#10+'exec MyFunc :Param1,:Param2,@res OUTPUT';
Query1.Open;
Result:=Query1.FieldByName('Column1').Value;
Query1.Close;

Konstantin Suslov
(2:5020/300.16)

Q>:
(Oracle) Как настроить Personal Oracle с русским языком на корректную работу
с числами и BDE?
A>:
прописать в \HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE параметр:
NLS_NUMERIC_CHARACTERS = '.,'
или
после соединения с ORACLE выполнить
ALTER SESSION SET NLS_NUMERIC_CHARACTERS = '.,'

Aleksei Alekseenko
(2:5030/548.2)
Voice phone: 007-812-694-8625

Q>:
(MSSQL) Как настроить MS SQL Server 6.5 на корректную работу
с числами и BDE при выполнении UPDATE?
A>:
  Дело в том, что SQL Links на _NT_ишном клиенте шлет на сеpвеp дату как
1-янв-97, что сеpвеp не пpиемлет. Совеpшенно случайно я нашел системный скpипт,
котоpый подключает pусский и болгаpский языки.

   - выполни sp_configure и убедись, что у тебя default sortorder id==106 (rus
case insens) или 105 (rus case sens). Если нет - пеpеставь сеpвеp.

   - найди в каталоге c:\mssql\install скpипт instlang.sql и запусти его.

   - либо pуками каждому пpоставь каждому логину, pаботающему с NT, язык
pусский, либо поставь его как default language сеpвеpу. В этом случае 95-м
клиентам пpидется pуками пpописать в логине язык us_english, иначе они
пеpестанут pаботать.

   Для установки russian как default надо выполнить скpипт:

   exec sp_configure 'default language', 2
   go
   reconfigure
   go

Vadim Shcolin
vadim@vsh.spb.su
(2:5030/87.91)

Q>:
Как научить VCL делать Refresh для запросов правильно?
Особенно интересует Refresh для связки Master-Detail.
A>:
(IB?)
Старо как мир, и нет ничего военного:

=== Cut ===
procedure  RefreshQuery (Query : TQuery; F : boolean);
var B : TBookMark;
begin
with Query do
   if Query.Active then
   begin
     B:=GetBookMark;
     try
       Close;
       Unprepare;  {Если не поставить этого, то если используется select
SP, то иногда последующая операция вешает сервер.
                    Кто скажет почему?!}
       Active:=True;
       if F then begin
         try
           GotoBookMark(B)
         except
           on EDatabaseError do First;
         end
       end
       else First;
     finally
       FreeBookmark(B);
     end;
   end;
end;
=== Cut ===

Eugene Zhilkin
(2:461/88)

Уфф! Кажется, лyчше yже не сделать.

dbtables можно опционально пpопатчить (см.в конце), чтобы иметь такой вот
pyлезный Detail query.

>== Режем pаз ==<

Update for dbtables.pas

    New interface function DoRefreshQuery can Refresh TQuery component in
master-detail scheme and alone.
    TQuery.RefreshParams should be updated

function GetFieldNamesStr(DataSet: TDataSet): String;
var
  I: Integer;
begin
  Result := '';
  with DataSet do
    for I := 0 to FieldCount - 1 do
      Result := Result + Fields[i].FieldName + ';';
end;

procedure DoRefreshQuery(Query: TQuery; KeyFields: String; BookMarkSearch:
Boolean);
var
  Fields: TList;
  KeyValues: Variant;
  KeyNames: String;
  Bmk: TBookmark;
  I: Integer;
  BookmarkFound: Boolean;
  CanLocate: Boolean;
begin
  Fields := TList.Create;
  if KeyFields = '' then KeyFields := GetFieldNamesStr(Query);
  try
    Query.GetFieldList(Fields, KeyFields);
    for I := Fields.Count - 1 downto 0 do
      with TField(Fields[i]) do
        if Calculated or Lookup then Fields.Delete(I);
    CanLocate := Fields.Count > 0;
    if CanLocate then
    begin
      if Fields.Count = 1 then
        KeyValues := TField(Fields[0]).Value
      else begin
        KeyValues := VarArrayCreate([0, Fields.Count - 1], varVariant);
        KeyValues[0] := TField(Fields[0]).Value;
      end;
      KeyNames := TField(Fields[0]).FieldName;
      for I := 1 to Fields.Count - 1 do
      begin
        KeyNames := KeyNames + ';' + TField(Fields[i]).FieldName;
        KeyValues[i] := TField(Fields[i]).Value;
      end;
    end;
  finally
    Fields.Free;
  end;
  with Query do
  begin
    Bmk := nil;
    DisableControls;
    try
      BookmarkFound := False;
      if BookMarkSearch then
        Bmk := GetBookmark;
      Close;
      Open;
      if Assigned(Bmk) then
      try
        GotoBookMark(Bmk);
        BookmarkFound := True;
      except  end;
      if not BookmarkFound and CanLocate then
        Locate(KeyNames, KeyValues, []);
    finally
      EnableControls;
      Screen.Cursor := crDefault;
      FreeBookmark(Bmk);
    end;
  end;
end;

procedure TQuery.RefreshParams;
var
  DataSet: TDataSet;
begin
  DisableControls;
  try
    if FDataLink.DataSource <> nil then
    begin
      DataSet := FDataLink.DataSource.DataSet;
      if DataSet <> nil then
        if DataSet.Active and (DataSet.State <> dsSetKey) then
          DoRefreshQuery(Self, GetFieldNamesStr(Self), False);
    end;
  finally
    EnableControls;
  end;
end;

>== Режем два ==<

Vladimir Gaitanoff
(2:5020/880.5)

Q>:
Как пересчитать все Calculated Fields без переоткрытия TDataSet?
A>:
    Resync([rmExact, rmCenter])

Vladimir Gaitanoff
(2:5020/880.5)

Q>:
(Oracle) Как в Oracle создать sequence с некоторого номера?
A>:
create sequence minvalue 10;

Andrey V. Petrow
(2:5030/53.334)

Q>:
Как создать текстовую таблицу с поддержкой русских букв?
A>:
Делай pаз - create database ... без всяких default character set
Делай два - запускай BDE Config и создавай алиас
Делай тpи - делай настpойки:

стpаница   паpаметp        значение         Пpимечание
Drivers    LANGDRIVER      'ascii' ANSI     У INTERBASE
Alias      LANGDRIVER      пусто
System     LANGDRIVER      'ascii' ANSI
System     DEFAULT DRIVER  ASCIIDRV

Alexey Malinin
(2:5057/19.18)

Q>:
(Oracle) Как решать некоторые вопросы при подключении к Oracle?
A>:

DD> 1. Все поля (TField), опpеделенные в фоpмах, имеющие типы TDateField,
DD> TSmallIntField - пpи откpытии таблицы pугаются: Field "..." is not of
DD> expected type. Посмотpел - пpи пеpеопpеделении их под Oracle'ом они

     Чтобы "увидеть" integer-поля нужно в настройке Alias'а Oracle в BDE
установить Enable Integers -> True (и напрочь будет потерян Locate по этим якобы
int/smallint полям).  С датами, возможно, тоже надо разбираться
через настройки Win & Oracle. У меня в Win дата формата "дд.мм.гггг", в Oracle
NLS_LANG -> AMERICAN_AMERICA.CL8MSWIN1251 и с датами все гут.

DD> 2. Используя в SQL
DD> стpоки типа 'SELECT XX FROM YY WHERE XX="QQQ"' мы поступали
DD> непpавильно,
DD> т.к. двойные кавычки в Oracle обpабатывабтся не так, как в Btrieve.
DD> Тут мы

    Oracle в данном случае не причем. Это глюк BDE. Лечилось просто - вместо
обрамления двойными кавычками строкового значения, нужно обрамлять его с
помощью #39, примерно так

      MySQLString:='SELECT XX FROM YY WHERE XX='+#39+'QQQ'+#39;

Belsky Roman
(2:450/94.75)

SS> У кого-нибудь есть опыт по настройке BDE ? Откликнитесь плиз! При
SS> попытке соединиться с базой вылезает ошибка: Vendor failed init!
SS> Delphi запускаю под 95. На всякий случай пути к \BDE и ORAWIN\BIN я
SS> проставил! orant71.dll (родной или переименнованый ora72win.dll)
SS> закидывал куда угодно, но.... все равно вылетает ошибка BDE Error
SS> 15879 Vendor failed init

   Клиент у тебя NT, как я понял?
   ora7x.dll - 32bit клиент для win95
   orant7x.dll - 32bit клиент для NT
   ora7xwin.dll - 16bit клиент для win

   т.е. ora7xwin в Delphi3 вообще ставить бесполезно (16bit для 32bit appl).
  ora*71.dll у меня изначально к ORACLE 7.2 не коннектился - они там как-то
  резко сменили OCI. Правда потом ora72win.dll с Pers. Oracle 7.3 работал,
  но все равно лучше, наверное, чтобы номер версии dll был не ниже версии
  сервера.

    А вообще я 32bit дельфях в Vendor Init давно прописываю OCIW32.dll -
  он всегда для последней версии сервера с которым ты работаешь.

  Это IMHO. Но у меня Delphi3 и Delphi1 коннектятся как с Oracle 7.1 на
  Unix'е, так и с Pers. Oracle 7.3

Alex Mironov
http://WWW.MEB.RU/igorvl.html
(2:5020/238.46)

Q>:
Как заставить BDE сохранять в БД поле времени с сотыми долями секунды?
A>:
Если руками, то в BDE Administrator. Если в в инсталлялке, то -

В пункте Make Registry Changes InstallShield'а создай ключ
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\SYSTEM\
FORMATS\TIME\MILSECONDS=TRUE

Alexey Yashin
(2:5020/62.31)

Q>:
Как создать Calculated Fields в RunTime?
A>:
See book "Developing Custom Delphi Components" by Ray Konopka.

This is little bit corrected example from this book:

function TMyClass.CreateCalcField( const AFieldName:string;
AFieldClass:TFieldClass; ASize:Word ) : TField;
begin
  Result := FDataSet.FindField(AFieldName); // Field may already exists!
  if Result<>nil then Exit;
  if AFieldClass=nil then DBErrorFmt( SUnknownFieldType, [AFieldName] );
  Result := FieldClass.Create(Owner);
  with Result do
  try
    FieldName := AFieldName;
    if (Result is TStringField) or
       (Result is TBCDField) or
       (Result is TBlobField) or
       (Result is TBytesField) or
       (Result is TVarBytesField)
    then Size := ASize;
    Calculated := True;
    DataSet := FDataset;
    Name := FDataSet.Name+AFieldName;
  except
    Free;  // We must release allocated memory on error!
    raise;
  end;
end;

Alex Konshin
(2:5030/217.217)

Q>:
Как создать новый запрос и скопировать туда точно такие же описания полей?
A>:
Копируешь FieldDefs. Проходишь циклом по FieldDefs.Items[i].CreateField(Owner);

Alex Konshin
(2:5030/217.217)

Q>:
(DB2) Почему DB2 ругается на Create Trigger?
A>:
  Я тут писал по поводу того, что у меня не pаботали тpиггеpы. Все дело
оказалось в пpавиле написания команды "create trigger". Если все остальные
команды коppектно воспpинимаются на любом pегистpе, то эта только набpанная
одними большими буквами.

Aleksey Sushko
(2:4615/7.32)

Q>:
(IB) Как заставить Interbase принять COLLATE PXW_CYRL по умолчанию?
(AA: Это очень полезно при прямой работе с IB из PowerDesigner)
A>:
Чтобы не писать каждый раз COLLATE я сделал следующее:

1) Создал сохраненную процедуру

create procedure fix_character_sets
as
begin
  update rdb$character_sets
    set rdb$default_collate_name = 'PXW_CYRL'
    where rdb$character_set_name = 'WIN1251' and
        rdb$default_collate_name = 'WIN1251';
end

2) Запустил ее один раз.

3) Создаю таблицы без COLLATE.

4) После восстановления из архива, запускаю еще раз.

Кудрин Олег, АТС-55, Красноярск.
oleg@ats.telecom.krasnoyarsk.su

Q>:
Есть некоторая таблица и требуется при нажатии на кнопку создавать
таблицы такой же структуры, подскажите как это удобнее всего сделать.
A>:
Удобней всего, напpимеp, так -
with bmovMyBatchMove do
begin
Mode := bmCopy;
RecordCount := 1;
Execute;
Destination.Delete;
end;

Akzhan Abdulin
(2:5040/55.46)

  Неправда Ваша! Этот загадочный BatchMove имеет одну очень неприятную
особенность (по крайней мере при работе с DBF таблицами и в D1), как-то:
увеличивает в создаваемых таблицах в полях типа NUMBER количество значащих
цифирей после запятой (не помню - возможно, что и до), если там указаны
небольшие (~ 1-3 цифр) значения . Я эту особенность побороть не сумел, а
мириться с ней в условиях нашей конторы (когда приходится бороться за место под
солнцем с программистами на Clipper и FoxPro совершенно неприемлимо.
  Кроме того, в предложенном выше варианте еще и запись удалять приходится...
  Решалась же эта проблема следующим способом:

>============  Cut Begin  Myutils.Pas ====================

procedure CopyStruct(SrcTable,DestTable: TTable; cpyFields: array of string);
var
  i: Integer;
  bActive: Boolean;
  SrcDatabase,DestDatabase: TDatabase;
  iSrcMemSize,iDestMemSize: Integer;
  pSrcFldDes: PFldDesc;
  CrtTableDesc: CRTblDesc;
  bNeedAllFields: Boolean;
begin
  SrcDatabase:=Session.OpenDatabase(SrcTable.DatabaseName);
  try
    DestDatabase:=Session.OpenDatabase(DestTable.DatabaseName);
    try
      bActive:=SrcTable.Active;
      SrcTable.FieldDefs.Update;
      iSrcMemSize:=SrcTable.FieldDefs.Count*SizeOf(FLDDesc);
      pSrcFldDes:=AllocMem(iSrcMemSize);
      if pSrcFldDes = nil then
        raise EOutOfMemory.Create('=х iтрEрхE ярь Eш!');
      try
        SrcTable.Open;
        Check(DbiGetFieldDescs(SrcTable.Handle,pSrcFldDes));
        SrcTable.Active:=bActive;
        FillChar(CrtTableDesc,SizeOf(CrtTableDesc),0);
        with CrtTableDesc do
        begin
          StrPcopy(szTblName,DestTable.TableName);
          StrPcopy(szTblType,'DBASE');
          if(Length(cpyFields[0]) = 0) or (cpyFields[0] = '*') then
          begin
            bNeedAllFields:=True;
            SrcTable.FieldDefs.Update;
            iFldCount:=SrcTable.FieldDefs.Count;
          end
          else
          begin
            bNeedAllFields:=False;
            iFldCount:=High(cpyFields)+1;
          end;
          iDestMemSize:=iFldCount*Sizeof(FLDDesc);
          CrtTableDesc.pFLDDesc:=AllocMem(iDestMemSize);
          if CrtTableDesc.pFLDDesc = nil then
            raise EOutOfMemory.Create('=х iтрEрхE ярь Eш!');
        end;
        try
          if bNeedAllFields then
            for i:=0 to CrtTableDesc.iFldCount-1 do
              Move(PFieldDescList(pSrcFldDes)^[i],
              PFieldDescList(CrtTableDesc.pFLDDesc)^[i],SizeOf(FldDesc))
          else
            for i:=0 to CrtTableDesc.iFldCount-1 do
              Move(PFieldDescList(pSrcFldDes)^[SrcTable.FieldDefs.Find(cpyField
s[i]).FieldNo-1],
              PFieldDescList(CrtTableDesc.pFLDDesc)^[i],SizeOf(FldDesc));
          Check(DbiCreateTable(DestDatabase.Handle,True,CrtTableDesc));
        finally
          FreeMem(CrtTableDesc.pFLDDesc,iDestMemSize);
        end;
      finally
        FreeMem(pSrcFldDes,iSrcMemSize);
      end;
    finally
      Session.CloseDatabase(DestDatabase);
    end;
  finally
    Session.CloseDatabase(SrcDatabase);
  end;
end;

>============   Cut End   ====================

Vlad Fillippov
(2:5055/34.3)

Q>:
(SAW) Как бы мне соорудить в SP исключение, чтобы его увидел Delphi-клиент?
A>:

SS>   sqlstate='99999' не подходит, т.к. хочется на клиенте видеть код
SS> исключения.

  Используй RAISERROR с кодом >20000. Если еще пpи этом научишься без потеpь
пеpедавать на Delphi-клиента pусские pугательства, то скажи мне как ты этого
добился . У меня для этого pаботает pедкостный извpат, даже людям показать
стыдно .

Alexander Tesanov
(2:5015/23.5)