Олег Киреев

galex спасиБО. Всё получилось. С Уважением. Олег.

СпасиБО за ответ. 1.На простой запрос SELECT * FROM Tab_Izv всё срабатывает. А что даёт команда PUBLIC ? 2.Использую старинное BDE. Все запросы кроме тех в которых есть поля дат отлично срабатывают. А вот с датами у меня загвоздка. Поставить приложение менеджера у меня нет прав администратора. Работаю на ощупь. С Уважением. Олег.

Здравствуйте Rusland. Обратите внимание что Ot и Doo это переменные. В запросе в скобках ' ' они участвуют как в прямом запросе. При выполнении запроса ругается "capability not supported". Что делать? С Уважением. Олег.

Здравствуйте galex. Попробовал. При выполнении ругается " table does not exist". Хотя на гриде вся таблица загружается. Что делать? С Уважением. Олег.

Здравствуйте уважаемые члены сообщества. Пожалуйста. Подскажите где ошибка в синтаксисе запроса к БД Oracle в котором мне надо из указанного пользователем поля отдела выбрать данные в промежутке дат. Ранее обращаясь к Access я дел так: var Ot,Doo: Integer; Ot:=Trunc(bsSkinDateEdit7.Date); Doo:=Trunc(bsSkinDateEdit8.Date); Query1.Active:=False; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM Tab_Izv where Otdel like '+#39+ bsSkinComboBox1.Text+ '%' +#39+ ' AND Data between '+ inttostr(Ot)+' and '+inttostr(Doo) +' ORDER BY Nomer' ); Query1.Active:=True; и все отлично работает но вот к Oracle так не получается пробую так: var Ot,Doo: String; Ot:=bsSkinDateEdit7.Text; Doo:=bsSkinDateEdit8.Text; Query1.Active:=False; Query1.SQL.Clear; Query1.SQL.Add('SELECT * Tab_Izv where OTDEL like '+#39+ bsSkinComboBox1.Text+ '%' +#39+ ' AND DATA between (to_char('+ Ot+','+''''+'dd.mm.yyyy'+''''+')) and (to_char('+ Doo+','+''''+'dd.mm.yyyy'+''''+')) ORDER BY NOMER' ); Query1.Active:=True; Ругается на пропуск оператора. Где же ошибка??? С Уважением. Олег.

Приложение Записная книжка с паролем v1.0 для OS Android без каких либо условий и рекламы для смартфонов с диагональю экрана 4...7 дюймов. СпасиБО ЭМБАРКАДЕРО ! Note_Book_v.6.apk

Решение: Делать в своём приложении скрытыми компонентами отслеживание изменения в базе. Олег.

Здравствуйте Белов. Замечание принимаю. Прошу прощения. Оказалось просто моя невнимательность. Не на тот Query повесил запрос. Отличий Виндовса от Андроида здесь нет. С Уважением. Олег.

СпасиБО всем. Разобрался. Тему закрываем. С Уважением. Олег.

Всем спасиБо. Разобрался. Тему можно закрывать. С Уважением. Олег.

СпасиБо. Попробую. С Уважением. Олег.

Здравствуйте уважаемые члены сообщества. Пожалуйста подскажите почему не отфильтровываются данные (вообще не реагирует) в Гриде при наборе текста в Едите. Код на процедуру изменения Едита такой: //Найти запись procedure TForm_Tabl_Knijka.Edit_Poisk_ZapisChange(Sender: TObject); begin Query_Tab_Zapisy_Poisk.Active:=False; Query_Tab_Zapisy_Poisk.SQL.Clear; Query_Tab_Zapisy_Poisk.SQL.Add('SELECT * FROM Tab_Zapisy where Soderjanie like '+#39+Edit_Poisk_Zapis.Text+'%'+ #39+' ORDER BY Soderjanie' ); Query_Tab_Zapisy_Poisk.Active:=True; end; В приложении для Виндовс всё отлично реагирует. А в телефоне под Андроид ноль внимания и даже когда нажимаю кнопочку с кривой стрелочкой. С Уважением. Олег.

СпасиБо Крапоткин. А можно еще вопрос по фильтрации данных в на телефоне в Андроиде. На процедуру изменения Едита пишу так: //Найти запись procedure TForm_Tabl_Knijka.Edit_Poisk_ZapisChange(Sender: TObject); begin Query_Tab_Zapisy_Poisk.Active:=False; Query_Tab_Zapisy_Poisk.SQL.Clear; Query_Tab_Zapisy_Poisk.SQL.Add('SELECT * FROM Tab_Zapisy where Soderjanie like '+#39+Edit_Poisk_Zapis.Text+'%'+ #39+' ORDER BY Soderjanie' ); Query_Tab_Zapisy_Poisk.Active:=True; end; В Видовсе всё отлично работает сразу при наборе отфильтровывает. На телефоне ноль внимания и даже когда нажимаю кривую стрелку. Что у меня не так? С Уважением. Олег.

Да Крапоткин. СпасиБО. Я раньше столкнулся с тем чтобы обновить базу приходилось полностью удалять приложение с телефона и устанавливать снова. (Я служил под Екатеринбургом возле посёлка Белоярского в 1988/89гг. Интересно как там всё изменилось?) С Уважением. Олег.

Александр спасиБО. Интуитивно я об этом догадывался но проверил по Вашему совету. Так оно и есть. С Уважением. Олег.

Здравствуйте Крапоткин. СпасиБО за ответ. Я задеплоил файл базы от сюда ... \Android\Debug\Project_ZapKnijka\assets\internal\. Правильно ли я понимаю что этот файл базы должен поменяться? Если нет. Тогда подскажите где же запрятался файл базы который меняется? С Уважением. Олег.

Здравствуйте Rusland. Я не понял Вашего вопроса. Поясните пожалуйста. С Уважением. Олег.

Здравствуйте. Да деплою. Смотрю файл и там тоже откуда деплою. Пусто. Не знаю где посмотреть. В самом приложении всё нормально. Видны данные в гриде. Я их и дополняю и удаляю из приложения. Но посмотреть как в Win в Accesse нигде не могу. Уж не знаю как быть. С Уважением. Олег.

Здравствуйте Александр. СпасиБО за ответ. Query_Parol это не видимый компонент TFDQuery. Я уже так пробовал заносить: Query_Parol.SQL.Text := 'INSERT INTO Tab_Parol (Parol) VALUES (:P)'; Query_Parol.ParamByName('P').Value := Edit_Parol.Text; Query_Parol.ExecSQL; Query_Parol.Transaction.Commit; Query_Parol.Refresh; и так: Query_Parol.Insert; Query_Parol.FieldByName('Parol').AsString:=Edit_Parol.Text; Query_Parol.Post; Query_Parol.Refresh; ничего не вижу в файле базы архива apk. Подскажите что не так. С Уважением. Олег.

Здравствуйте wamaco. СпасиБО за ответ. Поясните пожалуйста подробнее что за commit. Мне известно только past. С Уважением. Олег.

Здравствуйте уважаемые члены сообщества. Пожалуйста подскажите ответ на такой вопрос. Почему после процедуры Ввести приложения для ОС Андроид: //Ввести procedure TForm_Glavn_ZapKnijka.Button_Vvod_ParolClick(Sender: TObject); begin try Query_Parol.Insert; Query_Parol.FieldByName(‘Parol’).AsString:=Edit_Parol.Text; Query_Parol.Post; Query_Parol.Refresh; Query_Zabyl.Insert; Query_Zabyl.FieldByName(‘Vopros’).AsString:=ComboBox_Vopros.Items.Text; Query_Zabyl.FieldByName(‘Otvet’).AsString:=Edit_Otvet.Text; Query_Zabyl.Post; Query_Zabyl.Refresh; Showmessage(‘Введено.’); Label1.Text:=Query_Parol.FieldByName(‘Parol’).AsString; except on e: Exception do begin Showmessage(‘Ошибка ввода. Попробуйте ещё раз.: ‘+e.Message); end; end; end; В Label1 появляется нужный текст а в самой базе DB.db3 пусто? Хотя подключение к файлу базы без ошибок. Проверяю в обоих файлах в папке проекта и в папке \assets\internal. Все поля пусты. С Уважением. Олег.

СпасиБо за ответ. Да Вы правы. Я так и сделаю. С Уважением. Олег.

Витальджи. Вы меня рассмешили. СпасиБО. А если серьезно тогда прошу Вас расталкуйте мне подробно как в своем приложении на клике на кнопку появилось бы меню с выбором дисков или мест куда скачать файл а после того как пользователь указал например storage/sdcard/проекты сюда из http:........................ указанной в коде ссылке скачался файл. Какими может быть надо дополнительными пользоваться компонентами? С Уважением. Олег. Буду ждать Вашего ответа.

СпасиБо за шутку. Олег.