Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Добавление и ошибка

Автор: Крастb 2.12.2009 21:34

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

Буду очень благодарен!

Автор: volvo 2.12.2009 22:07

Цитата

Буду очень благодарен!

Я тоже буду тебе очень благодарен, если ты уберешь ссылку на iFolder, который пытается загрузить мне вместо архива всякую ненужную живность. Убери все exe-шники, временные копии и остальные ненужные файлы, и прикрепи свой проект сюда...

Автор: volvo 2.12.2009 22:30

Уууу... Да у тебя вирус в Дельфе:

Цитата

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.

, читай вот это: http://forum.pascal.net.ru/index.php?showtopic=24629 срочно...

Автор: Крастb 2.12.2009 23:14

Цитата(volvo @ 2.12.2009 18:30)

Уууу... Да у тебя вирус в Дельфе:
, читай вот это: http://forum.pascal.net.ru/index.php?showtopic=24629 срочно...

Удалил вроде. По инструкции сделал все.
Прикрепил файл

1.rar ( 329.63 килобайт ) Кол-во скачиваний: 390

Автор: volvo 3.12.2009 3:58

Ты издеваешься? Я ж просил тебя, убери из архива EXE-шник, нет, ты опять туда зараженный файл запихал:

Эскизы прикрепленных изображений

Автор: Крастb 3.12.2009 4:25

Ой, из 2й папки забыл вот нормальный 1.rar ( 51.54 килобайт ) Кол-во скачиваний: 386

Вот так пишу

Код

Module3.Query2.SQL.Add ('Insert into osn.db (fam) values (edit6.text)');

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

и там на форме не обчные комбобоксы а DBlookUpCombobox должен быть

Автор: volvo 3.12.2009 6:58

Цитата

Вот так пишу

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 3.12.2009 7:48

Вот - 1.rar ( 50 килобайт ) Кол-во скачиваний: 384

Форма 4. BitBtn1 - это кнопка, которая добавляет запись.
DBLookupComboBox1 связан, если можно на нем пример тоже показать, как добавить данные из него в таблицу.
В самом конце процедуры Bitbtn1Click следующий код

Код

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

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

Вроде как все объяснил

Автор: Крастb 8.12.2009 3:14

Спасибо. Сам разобрался.