Преглед за печат
Аз си мисля, че никак няма да е зле да позачетеш някоя книжчица по темата и след това, ако има нещо неясно, да питаш.
С папагалско повтаряне на код предложен от друг ще стигнеш до задънена улица след недълго време.
Отделно че постановките на въпросите ти издават, че на моменти не си наясно как и защо го правиш.
Правилно, не съм запознат с компонентите за база данни на делфи. Нека се опитам да пообясня проблема ...
Намерих код който частично решава проблема ми (само мога да си направя извадка от таблицата), но не успях да го адаптирам за промяна на запис.
#############
1. Drop a TSQLConnection component on the form. Set the ConnectionName to MySQLConnection and set LoginPrompt to False. Set the Params property to the connection property and then set Connected to True.
2. Drop a TSQLQuery component on the form and set its SQLConnection property to the TSQLConnection component in step 1. Then click on the SQL property and type:
SELECT *
FROM stdcodes
WHERE areacode = :areacode
Then click on the Params property and set the DataType and ParamType properties of the areacode param.
with SQLQuery1 do
begin
Close;
ParamByName('areacode').Value := somevalue;
Open;
// Loop thru the result set.
while not Eof do
begin
// Get the values of individual fields in the result set.
x := FieldByName('country').AsString;
y := FieldByName('areacode').AsInteger;
Next;
end;
end;
#####################
В моя случай имам таблица 'pet', полета - name, owner, species
Трябва ми програмата ми да прави това:
UPDATE pet
SET owner =ownernew
WHERE name =: nameask
където ownernew и nameask са променливи string тип, зададени от друга част на програмата.
Искам тази команда да се изпълнява само когато
Name = nameask
и
owner = 0 (при по-горното условие)
ПРИМЕРНА ТАБЛИЦА:
name owner species
Balkan Ben dog
Sunshine NULL NULL
На езика на ПАскал ми трябва :
nameask:=SunShine;
ownernew:=Dani;
If name = SunShine and owner = NULL then owner = ownernew;
РЕЗУЛТАТНА ТАБЛИЦА:
name owner species
Balkan Ben dog
Sunshine Dani NULL
Би ли пояснил с какво се различават "командите за манипулиране на MySQL таблици" и "SQL командите за SQL таблици"? И понеже очевидно за пръв път виждаш Делфи, как се надяваш да направиш читаво приложение, че и да работи? Ей така от първия път. С помощ от някакъв форум? Не казвам, че е трудно. Но все ще ти е необходимо да имаш някаква представа КАКВО правиш, КАК го правиш и ЗАЩО го правиш точно така.Цитат:
Първоначално публикувано от neverman
Пожелавам ти успех!
щом за няколко месеца без да разбирам особено от паскал и нищо от делфи съм направил програмка с 3000 реда код ... явно бързо уча от форумите ... въпроса ми не е да се развивам в тази област, а просто да си завърша програмата.
Ако някой може да помогне ... мога само да съм ви благодарен, иначе здраве да е.
Добре, де. Не говоря на Delphi, но ти си го казал
Защо не добавишКод:UPDATE pet
SET owner =ownernew
WHERE name =: nameask
и да си решиш проблема?Код:AND owner = 0
на лаготитам си е така (или през MySQL клиент написано) си е така ... въпроса е под delphi 7 как да напиша кода.
Не познавам компонентите на Delphi 7 за база данни и от 1 седмица цикля да чета литература и форуми как да се напише... още не съм успял.
Би ли споделил заглавието на тази Литература? Учудващо за мен е, че след 1 седмица четене не си прочел това, което обикновено е още в първа глава, втора страница на която и да е книга за работа с бази данни.Цитат:
Първоначално публикувано от neverman
Още по-голямо недоумение у мен буди изречението:
И за да видиш, че нямам за цел да се заяждам с теб, дори напротив, всячески се опитвам да ти помогна, карайки те да Четеш, та ще ти дам един жокер.Цитат:
Първоначално публикувано от neverman
Потърси книжката на Андрей Сорокин - Delphi - разработка баз данных, но понеже е цели 463 страници, а ти сигурно си зает човек, прескочи направо на 203 страница, "Введение в язык SQL.
(ако не можеш да я намериш, 61 MB е, мога да ти я предоставя някъде за теглене)
Borland Delphi - Database Application Developers Book.pdf
Delphi.NET ...
ne razbiram osobeno ruski, no pomosht bih priel, ako se govori po temata, mislia che moga da se opravia s primerite, dai link pls.
A za zaiajdaneto ... tuk sam da tarsia pomosht ... koeto znachi che sam dosta nachinaesh. Znam si nivoto, predpolagam vasheto.
Искаш да кажеш, че си чел тази http://portal.aauj.edu/portal_resour...opers_book.pdf тънка книжка, но не си успял да стигнеш до страница 115 "Using SQL in applications"?
Или си стигнал, но въпреки картинката на стр.118 пак не си разбрал как става номера?
/И не пиши на ШЛОКАВИЦА, ако обичаш /
препрочетох го наново ... и все още не мога да си изпалня заданието. Успявам единствено да си направя извадката на конкретния запис от таблицата, но не мога да зацепя как да поправя този запис в самата таблица...
от това което разбрах е, че Query може да се използва или само с Select (извадки) или само за запис и поправка на записи (Insert, Update, Delete ...) ... т.е. се ползва или Open или ExecSQL. Но до тук ... повече за сега не съм успял да измисля.
Като не искате да помогнете, ще си помагам сам :) Сори, че ви занимавам
много сложно беше да изпишете един такъв код ... чак се чудя за какъв чеп си правя труда да питам тук ... 1000 литератури, 1000 коментара колко знаем, а един глупав алгоритам не можете да изпишете без да се покаже колко сме начетени ... макар да не видях код, а само колко сме начетени ...
Ади, ако някой друг има проблеми по темата, може да пита ... туко виж сам му намерил отговор без да се налага да учи руски и да прочете цялата българска и чуждестранна литература преди да получил елемтарен отговор на елементарния си въпрос.
// Insert record
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Insert into country(NAME,CAPITAL,CONTINENT,AREA,POPULATION)
values(
''A_My_Country'',
''A_My_Capital'',
''A_My_Continent'',
1,
1)');
ExecSQL;
end;
Table1.Refresh;
end;
// Delete record
procedure TForm1.Button2Click(Sender: TObject);
begin
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Delete from country where name=''A_My_Country''');
ExecSQL;
end;
Table1.Refresh;
end;
//Update record
procedure TForm1.Button3Click(Sender: TObject);
begin
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Update country set name=''A_Your_Country''
where name=''A_My_Country''');
ExecSQL;
end;
Table1.Refresh;
end;
Благодарим ти, о, най-велики neverman! За това, че сподели кода си с нас, недостойните. Ще ти издигнем паметник в знак на вечна благодарност.
Black Adder, неузнаваем си. Опитвам се да те заместя(не имитирам), но, колкото и да искам, не бих могъл да достигна съвършенството ти.
След като имаш намерениегоспод да пази хората които ще го купуват от теб.Цитат:
Първоначално публикувано от neverman
Браво, когато искаш, виждаш че можеш. Изписа 3000 реда питане, в 2 страници вече тема, вместо на четеш. Тва мързела е велика сила.Цитат:
Първоначално публикувано от neverman
Верно че то и тоя код си го краднал накъде готово от нета, ама карай, важно е че си се потрудил.
Благодаря и за споделянето на тъй скъпоценно придобитите ти знания, но както се казва 'Това го знае всяко хлапе' (което си е писало домашните)
А сега след като откри топлата вода, можеш да си измиеш и краката и да лягаш :-memnon
Black Adder : ти да нямаш някакаъв проблем с комуникирането ? излизай малко повече сред хора ... комплексирането е лошо състояние в днешни времена, лекувай се.
А за задачката тук, ако разчитах на Вас, нямаше да мога и началото на програмата да напиша преди да прочета всичко за компютрите излязло до сега.
Ти ако и така програмираш, сигурно едвам се изхранваш ... интернета да го прочиташ целия за да пуснеш малко "топла вода" ... не е лесно. Не си оправдавай мързела с мен ... теб те мързи да пишеш "детски кодове"... ако въобще можеш разбира се.
Знаеш ли, просто намери си друго място да избиваш болестните си състояния.
Казвам модераторите да локват тази тема вече, изчерпа се темата.
Мерси на всички които помогнаха с код.
neverman, сладурче, имаш бири от мен - колкото искаш. Живи и здрави да сте - ти и всички като теб. Докато има повече хора като теб, ще има хляб и за тези като мен :)