Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Beginners";
Current archive: 2010.12.19;
Download: [xml.tar.bz2];

Down

One button works, the other does not (adding records to the database) Find similar branches


Первокурсница ©   (2010-09-25 17:32) [0]

Доброго времени суток! =)
У меня маленькая проблемка которая возникла наверняка из-за моей невнимательности. Есть БД с таблицами Town и Metео - БД о погоде в разных городах. В таблице Town поля Kod_Goroda(счётчик, ключ) Nazvanie (текст), Oblast (текст), Chislo_Giteley(числовой). В таблице Meteo поля Counter (счётчик, ключ), Kod_Goroda (числовой), Data (текст), Pogoda (текст), Temperatura (числовой). Связь "1-ко-многим" по полям Kod_Goroda обоих таблиц. Мне нужно через Дельфи с помощью операции INSERT добавлять записи в обе эти таблице и чтобы все записи таблицы (в т.ч. и только что добавленные) тут же отображались в DBGrid1 и DBGid2. Вот процедуры для двух кнопок:
procedure TForm1.BitBtn6Click(Sender: TObject); {Добавление новых записей в БД табл. Town}
begin
ADOQuery1.Active:=false;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("INSERT INTO Town");
ADOQuery1.SQL.Add("(Nazvanie, Oblast, Chislo_Giteley)");
ADOQuery1.SQL.Add("VALUES(""+Edit3.Text +"", ""+Edit4.Text+"", "+Edit5.Text+")");
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:="SELECT*FROM Town";
ADOQuery1.Open;
end;

procedure TForm1.BitBtn7Click(Sender: TObject); {Добавление новых записей в БД табл. Meteo}
begin
ADOQuery2.Active:=false;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add("INSERT INTO Meteo");
ADOQuery2.SQL.Add("(Kod_Goroda, Data, Pogoda, Temperatura)");
ADOQuery2.SQL.Add("VALUES("+Edit2.Text+", ""+Edit6.Text+"", ""+Edit7.Text+"", "+Edit8.Text+")");
ADOQuery2.ExecSQL;
ADOQuery2.SQL.Text:="SELECT*FROM Meteo";
ADOQuery2.Open;
end;

Первая процедура работает нормально, всё добавляет, всё отображается как надо. Вторая не работает вообще-ничего не добавляется и ничего соответственно не отображается. Помогите пожалуйста! :(



Плохиш ©   (2010-09-25 18:45) [1]

Надо поставить точку остановки в процедуру и пройтись по шагам.



Первокурсница ©   (2010-09-25 19:12) [2]

Всё, заработало, спасибо =*



Anatoly Podgoretsky ©   (2010-09-25 19:22) [3]

> Freshman (25.09.2010 17: 32: 00) [0]

Сделай точку останова здесь ADOQuery2.Active:=false;



Pages: 1 whole branch

Forum: "Beginners";
Current archive: 2010.12.19;
Download: [xml.tar.bz2];

Top









Memory: 0.56 MB
Time: 0.021 c
15 - 1283891373
Jury
2010-09-08 00:29
2010.12.19
Happy Birthday ! 8 September 2010 Wednesday


15 - 1284205341
Servy
2010-09-11 15:42
2010.12.19
Databases and Uniqueness


15 - 1283798468
Yuri Zotov
2010-09-06 22:41
2010.12.19
This time - transactions


2 - 1285069581
guest
2010-09-21 15:46
2010.12.19
Why does not it work?


15 - 1283804001
Who would doubt
2010-09-07 00:13
2010.12.19
Delete System Volume Info folder permanently





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
English French German Italian Portuguese Russian Spanish