więc tak.
Mam baze mysql pt.: gabinet. W niej tabelke pt.: pacjenci. I teraz chce sobie wybrać imie i nazwisko z tej tableki gdzie id= 3. Sformułować zapytanie potrafie i to mam. Ale teraz jak zrobić żeby ten komponent mi to przeniósł (imie i nazwisko) do kolejno: edit1 i edit2 ???
PS: nazwy pól to kolejno: id,imie,nazwisko
bardzo bym prosił o pomoc
powiedz mi jeszcze w czym odczytujesz te dane?? w TListView czy moze w TDBGrid ?? bo moze po prostu wystarczy zaznaczony rekord w ktoryms z tych komponentow przeniesc do odpowiednich komponentow. a z tym juz chyba nie ma problemow?
kurczak, z tego to nie korzystam. Wiesz, to mój pierwszy program z mysql, i nie wiem jak sie za to zabrać. Ale znalazłem gdzieś że sie uzywa komponentów z zakładki Data Acces itp, ale nie wiem jak sie ten komponent nazywa. Czy ktoś zna link ??
hm... mam wrazenie ze ty w ogole jeszcze tych danych nie odczytujesz??? jesli tak to chetnie pomoge... :-)
pobierz komponent do MySQLa np <url>http://www.productivity.org/projects/tmysql/download/tmysql-21b.zip </url>
Wrzucasz komponent na forme i nazywasz go np baza. Pod Buttona wrzucasz kod:
var il:integer;nazw,imie:string;
baza.Query.Reset;
baza.Query.Prepare('select imie, nazwisko from pacjenci where id=3','');
baza.Execute;
il:=baza.Query.dataCount;
if(il>0) then
begin
for x:=0 to il-1 do
begin
nazw:= baza.query.DataByFieldName(x,'nazwisko');
imie:= baza.query.DataByFieldName(x,'imie');
end;
end;
takie cos okolo, na sucho
Ale błedy mi wychodzą jak uruchomie program i klikne button to sie pokazuje w mysqlcommon.pas przy
FCurrentTaskData.Free;
i potem mnie przerzuca do for x:=0 to ile-1 do
Co z tym zrobic ??
---------------------------------------------------------------------
> hm... mam wrazenie ze ty w ogole jeszcze tych danych nie odczytujesz??? jesli tak to chetnie pomoge...
A ja chętnie wysłucham. Tylko nie wiem od czego zacząć. Bo dodać do bazy to umiem, ale odcytać ni chuchu.
Boze... nastepny komponent do baz danych?? ci ktorzy nie potrafia kozystac z standardowych komponentow bazodanowych i ida na latwizne niech sie nie dziwia ze wyskakuja jakies bledy...
Ja od siebie dodam jak zwykle, kiedy widzę hasło MySQL, żeby używać komponentów Zeos. Wtedy można tak to zrobić :
ZQuery1.First;
while not ZQuery1.Eof do begin
if ZQuery1.FieldByName('id').AsInteger = 3 then begin
Edit1.Text := ZQuery1.FieldByName('imie').AsString;
Edit2.Text := ZQuery1.FieldByName('nazwisko').AsString;
end;
ZQuery1.Next;
end;
A w kodach źródłowych Delphi możesz sobie poszukać przykładowego progsa, nazywa się Zeos6, żeby dokładniej zobaczyć, jak się tego używa. Albo jak się nie da ściągnąć, bo tam jakieś jaja ostatnio są, to pisz to ci przyślę.
Dobra ładnie, pieknie, w tym programie jest wykorzystane TDBGrid, a ja już chba 20 raz powtarzam że ja yego nie mam na żadnej zakładce !!! Nie mam tego komponentu, i nie wiem skąd go wziąć.
PS. I niech mi ktoś wytłumaczy jak zainsytalować zeosa. Tam jest tyle plików, że głowa boli ;-(
Dokładna instrukcja jak zainstalować Zeosa jest w pliku install.
Dobra ładnie, pieknie, w tym programie jest wykorzystane TDBGrid
W moim jest wykorzystane? Prawdę mówiąc nie widzę tu żadnego przykładu z DBGrid...
nie w twoim progsie, tylko w tym co mi poleciłeś do ściągnięcia (Zeos6). On z tego korzysta, i nie wiem skąd to wziąć.
================================
jak instaluje zeosa (ZDbware6) to mi pokazuje że nie ma dbrtl,
vcldb, visualclx, I co z tym zrobić ??
Wyślę ci mailem wersję bez dbgrida...
Dodałeś odpowiednie ściezki do library path?