Delphi+access adotable

[VasilisKm]

Добрый день... пишу програмку на дельфи в связке с базой на Access.
И вроде все работает но есть одно "но".
В базе работает несколько человек, но коннект происходит один для всех по одной строке коннекта в адоконнект и уже в самой программе в зависимости от пароля определяется кто и скакими правами. суть проблемы в чем?

если один пользователь добавлет запись в базу данных то он эту запись в базе данных и видит сразу.
другой пользователь эту запись почемуто не видит пока не переконнектится к базе. (такое чувство что adotable при коннекте подкачала в себя всю таблицу и потом тока по мере надобности отправляет туда инфу) Вопрос. как принудительно обновить содержание adotable?

[artemavd]

Commit или что там в Access есть подобное.

[evg_m]

такое чувство что adotable при коннекте подкачала в себя всю таблицу

Именно так он и делает. Только не при коннекте, а при открытии (Open). Хотя если стоит (Active=True) то открытие происходит сразу же после соединения. Отсюда делаем вывод

как принудительно обновить содержание adotable

Заново открыть таблицу.
Close; Open;
или же просто спользовать Requery;

[VasilisKm]

evg_m спасибо..
requery то что доктор прописал. пробовал и рефреш, пробовал и open - не то.

[evg_m]

пробовал и open - не то.

чтобы заново открыть ее(TADOTable) надо сначала закрыть.

[Sciv]

Сообщение от VasilisKm

evg_m спасибо..
requery то что доктор прописал. пробовал и рефреш, пробовал и open - не то.

Странно... рефреш прекрасно работает. Только надо сначала контролы дисаблить, чтоб таблица у пользователя при обновлении не моргала.

И кстати, когда пользуетесь Open - у Вас курсор в таблице уйдет на First. То есть придется делать как-то так примерно:

Id:=Table.FieldByName('ID').value; //Запоминаем текущий элемент
Table1.DisableControls; 
Table1.Close;
Table1.Open;
Table1.EnableControls;
Table1.Locate('ID',varArrayOf(ID),[]);

[Yurk@]

Сообщение от Sciv

И кстати, когда пользуетесь Open - у Вас курсор в таблице уйдет на First. То есть придется делать как-то так примерно:

Id:=Table.FieldByName('ID').value; //Запоминаем текущий элемент
Table1.DisableControls; 
Table1.Close;
Table1.Open;
Table1.EnableControls;
Table1.Locate('ID',varArrayOf(ID),[]);

предложу свой вариант:

var
bm :pointer;
begin
bm:=Table1.GetBookmark;
Table1.DisableControls; 
Table1.Close;
Table1.Open;
Table1.EnableControls;
if Table1.BookmarkValid(bk)
  then Table1.GotoBookmark(bk)
  else Table1.First;