Помощь - Поиск - Пользователи - Календарь
Полная версия: Добавление и ошибка
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Крастb
Здравствуйте! Помогите пожалуйста решить проблему.
Не могу сделать добавление. Добавляю в таблицу, которая состоит из нескольких (связаный в квери). Все создано в парадоксе. Пытался по разному, но ошибка Query1: Cannot modify a read-only dataset, методами разными делал (append, append record). Query1.RequestLive ставлю в true, но толку нет. Не знаю как сделать. Вот программа сама (точнее ее наработка) http://ifolder.ru/15269326 Форма №4. Посмотрите пожалуйста.

Буду очень благодарен!
volvo
Цитата
Буду очень благодарен!
Я тоже буду тебе очень благодарен, если ты уберешь ссылку на iFolder, который пытается загрузить мне вместо архива всякую ненужную живность. Убери все exe-шники, временные копии и остальные ненужные файлы, и прикрепи свой проект сюда...
volvo
Уууу... Да у тебя вирус в Дельфе:
Цитата
02/12/2009 17:05:42 SYSTEM 1672 Sign of "Win32:Induc" has been found in "http://stg199.ifolder.ru/download/?15269326&qrX3dtq569acrb%2B9wy9qbA%3D%3D\1\Project1.exe" file.
, читай вот это: Пользователи Дельфи от 4-ой до 7-ой версий срочно...
Крастb
Цитата(volvo @ 2.12.2009 18:30) *

Уууу... Да у тебя вирус в Дельфе:
, читай вот это: Пользователи Дельфи от 4-ой до 7-ой версий срочно...

Удалил вроде. По инструкции сделал все.
Прикрепил файл Нажмите для просмотра прикрепленного файла
volvo
Ты издеваешься? Я ж просил тебя, убери из архива EXE-шник, нет, ты опять туда зараженный файл запихал:

Крастb
Ой, из 2й папки забыл вот нормальный Нажмите для просмотра прикрепленного файла
Вот так пишу
Код
Module3.Query2.SQL.Add ('Insert into osn.db (fam) values (edit6.text)');

но не работает почему то

и там на форме не обчные комбобоксы а DBlookUpCombobox должен быть
volvo
Цитата
Вот так пишу
Module3.Query2.SQL.Add ('Insert into osn.db (fam) values (edit6.text)');
но не работает почему то
Хм... И ГДЕ? Название файла и номер строки можно показать, где это такое написано.

Цитата
и там на форме не обчные комбобоксы а DBlookUpCombobox должен быть
Чего ж ты его туда не поставил? На кой черт мне тогда твой проект, если там НЕ ТО, ЧТО ДОЛЖНО БЫТЬ??? Хочешь помощи - присоединяй проект, который компилируется и запускается, и ХОТЯ БЫ отображает что-то, и не задизейблено в нем все что только можно, хрен поймешь куда и чего идти, и как вообще добраться до того, что там ДОЛЖНО БЫЛО БЫТЬ, как выясняется. Путь воспроизведения ошибки приведи: "Нажать это, потом это, потом сделать это, нажать туда-то, ан оно не работает, хотя должно". А ты вывалил проект, нате вам, разбирайтесь в 33 Кб бреда...

Про названия нормальные ничего не слышал никогда? Что мне должно сказать
    BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Edit2: TEdit;
Edit6: TEdit;
TabSheet3: TTabSheet;
Label3: TLabel;
DBGrid3: TDBGrid;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
Edit3: TEdit;
TabSheet4: TTabSheet;
Label4: TLabel;
DBGrid4: TDBGrid;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn19: TBitBtn;
BitBtn20: TBitBtn;
Edit4: TEdit;

вот это, например? Какая кнопка за что отвечает? Хинт: НЕ У ВСЕХ УСТАНОВЛЕНА КИРИЛЛИЧЕСКАЯ КОДИРОВКА ПО УМОЛЧАНИЮ, запомните уже это. И если так хотя бы по названиям контролов можно ориентироваться, то в твоем случае проще закрыть проект, удалить его с диска и поставить тему в игнор.
Крастb
Вот - Нажмите для просмотра прикрепленного файла
Форма 4. BitBtn1 - это кнопка, которая добавляет запись.
DBLookupComboBox1 связан, если можно на нем пример тоже показать, как добавить данные из него в таблицу.
В самом конце процедуры Bitbtn1Click следующий код

Код
DataModule3.Query2.Close;
DataModule3.Query2.SQL.Clear;
DataModule3.Query2.SQL.Add ('Insert into info.db (fam) values (''' + edit6.text + ''')');


Этот код - попытка записать хотя бы фамилию.

Вроде как все объяснил
Крастb
Спасибо. Сам разобрался.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.