Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];

Вниз

добавление записи в БД   Найти похожие ветки 

 
Съедобный   (2008-12-16 07:54) [0]

Поставил на форму 3 компонента: Query, DataSource и DBGrid. Связал их свойства между собой. В сетку выводятся данные из БД через Query.
Подскажите пожалуйста как мне добавить запись в БД. Я делаю:
Query1.Insert;
Query1.Fields[2].AsString :="Тест";
Query1.Post;

Мне выдаётся ошибка: Query1: Cannot modify a read-only dataset.
Что то не перевёл в режим редактирования. А что?

Спасибо


 
начинающий 5   (2008-12-16 07:59) [1]

requestlive=true


 
съе   (2008-12-16 08:19) [2]

а редактировать как?


 
съе   (2008-12-16 08:19) [3]

и удалять как?


 
начинающий 5   (2008-12-16 08:21) [4]


> съе   (16.12.08 08:19) [2]
> а редактировать как?

Query1.edit;


> и удалять как?

Query1.delete;

совет дня "ПОЧИТАЙ ЛИТЕРАТУРЫ"


 
съе   (2008-12-16 08:43) [5]

Смотрите...я выполняю запрос на сортировку
 Query1.SQL.Clear;
 Query1.SQL.Add("SELECT * FROM baza.DB ORDER BY tb");
 Query1.Active :=true;
У меня сортируются данные. А когда я хочу редактировать запись, у меня вылазиит всё таже ошибка - read-only, хотя мой код по нажатию кнопки
procedure TForm1.Button3Click(Sender: TObject);
begin
 Query1.RequestLive :=true;
 Query1.Edit;
 Query1.Fields[2].AsString :="ТЕСТ";
 Query1.Post;
end;
до сортировки выполняется верно
после запроса - ...........
удаляется там всё


 
съе   (2008-12-16 08:49) [6]

после сортировки таблица становится read-only и код Query1.RequestLive :=true; не влияет никак. Что может быть


 
начинающий 5   (2008-12-16 08:50) [7]

Query1.RequestLive :=true;
Query1.SQL.Clear;
Query1.SQL.Add("SELECT * FROM baza.DB ORDER BY tb");
Query1.Active :=true;


 
начинающий 5   (2008-12-16 08:53) [8]

все таки надо почитать


 
Sergey13 ©   (2008-12-16 09:03) [9]

> [6] съе   (16.12.08 08:49)

F1 + Updating a read-only result set + See also


 
съе   (2008-12-16 09:11) [10]

начинающий 5 в твоем случае работает, применительно к моей проге - нет


 
съе   (2008-12-16 09:49) [11]

Правдо...никак не могу понять и не найду ничего общего. Сортирую...
procedure TForm1.Button1Click(Sender: TObject);
begin
 Query1.RequestLive :=true;
 Query1.SQL.Clear;
 Query1.SQL.Add("SELECT * FROM baza.DB ORDER BY tb");
 Query1.Active :=true;
end;
У меня стоит  Query1.RequestLive :=true;
После сортировки удаляю
procedure TForm1.Button4Click(Sender: TObject);
begin
 Query1.RequestLive :=true;
 Query1.Delete;
end; - у меня не удаляется. Пишет ошибку Table is read only. Хотя  Query1.RequestLive :=true; Менял во всех сочетаниях true - false ВСЁ РАВНО ПОСЛЕ СОРТИРОВКИ ВЫВОДИТ ОШИБКУ. Неполучается


 
съе   (2008-12-16 09:50) [12]

Без сортировки - всё замечательно


 
Медвежонок Пятачок ©   (2008-12-16 09:58) [13]

все верно. все так и должно быть


 
съе   (2008-12-16 10:08) [14]

медвежок запусти код и проверь работоспособность....
у меня не пашет


 
Медвежонок Пятачок ©   (2008-12-16 10:09) [15]

я верю.


 
Sergey13 ©   (2008-12-16 10:13) [16]

> [14] съе   (16.12.08 10:08)

Ты пишешь пример к разделу в хелпе, который я указал?


 
съе   (2008-12-16 10:44) [17]

сергей13 ненайду указанного тобой



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.005 c
3-1213861475
кот
2008-06-19 11:44
2009.02.01
не проходят запросы


15-1228646258
axis_of_evil
2008-12-07 13:37
2009.02.01
копировать пользователя


2-1229451089
Nyashka
2008-12-16 21:11
2009.02.01
Паскальчик.


2-1229686658
Дмитрий
2008-12-19 14:37
2009.02.01
сохранение DFM


15-1228478578
Ega23
2008-12-05 15:02
2009.02.01
Сменить иконку у приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский