Почему не робит??

[Stilet]

Это нужно вставить в свойство DatabaseName.
Query1.DataBaseName:=ExtractFilePat h(ParamStr(0))+'Protokol\';

[uraura]

Stilet спасибо тебе!

[Stilet]

Всегда пожалуйста )

[uraura]

for i:=1 to 25 do // цикл для отбора 25 строк случайным образом
begin
gl:=IntToStr(random(8)+1); // +1 потому что надо 1-9 а не 0-8
Query1.Close;
Query1.SQL.Clear;
fldvalue1:=gl;
Query1.SQL.Text:='SELECT MAX (Nvopr) FROM Vopros WHERE Glava =('+QuotedStr(gl)+')';
Query1.Open;
maxnvopr:= Query1.Fields[0].Value;
nv:=IntToStr(random(maxnvopr-1)+1);
end;
косяк в том что пара gl и nv повторяется как от этого избавиться

[uraura]

еще проблем
после нажатия кнопки открывается окно добавить, добавляю запись в таблицу закрываю окно а в DBGrid запись не отображается и только при перемещении ползунка DBGrid вверх или вниз появляется что сделать?

[Stilet]

А э-э-э... запрос переоткрываешь? По-моему при SQL нужно запрос переоткрывать коли добавляешь или меняешь записи.

[uraura]

если переоткрыть то проблем с курсором таблицы :-((