Цитата:
|
то выползет неизвестная ошибка :-(
|
отчего ж она неизвестная то? )) ... ее просто нужно прочитать и превести)) и станет она "известной" )
upd: и вот это
Цитата:
Код:
Q.SQL.Clear;
Q.SQL.Text := 'SELECT * FROM referent';
Q.Open; // Вот тут программа падает
|
было бы неплохо заменить на
Код:
Q.Close;
Q.SQL.Text := 'SELECT * FROM referent';
try
Q.Open;
except
on E:Exception do
ShowMessage('при открытии запроса произошла ошибка: ' + E.Message);
end;