Ĺadny brzuch
zrobiłem wyszukiwanie w bazie o to kod
procedure Tbaza.BitBtn2Click(Sender: TObject); var nazwisko : String[20]; begin nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); begin if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']) else ShowMessage('Brak nazwiska ' + nazwisko) end; end;
pytanie: jak zrobić aby nie przestawało szukania na pierwszym znalezionym rekordzie?
pilne jak ch**** czas mnie goni :(
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
mozesz sam zrobic funkcje wyszukujaca, czyli przejdziesz po wszystkich field'ach tabeli i sprawdzisz, czy zawieraja szukana wartosc...
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
mozesz sam zrobic funkcje wyszukujaca, czyli przejdziesz po wszystkich field'ach tabeli i sprawdzisz, czy zawieraja szukana wartosc...
pozdrawiam
pepsi^no1
jak to ma wyglądać nigdy się tym nie bawiłem :(
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
jak to ma wyglądać nigdy się tym nie bawiłem :(
Np. coś w tym stylu:
Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then [i]{ tutaj dajesz co Ci pasuje }[/i] Table1.Next; end;
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Np. coś w tym stylu:
Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then [i]{ tutaj dajesz co Ci pasuje }[/i] Table1.Next; end;
OXI zrobiłem w ten sposób ale nadal nie dziąła
var nazwisko : String[20]; i:integer; begin Table1.First; nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); for i:=0 to Table1.RecordCount-1 do begin Table1.Next; if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then { tutaj dajesz co Ci pasuje } if Table1['Nazwisko']=nazwisko then end; end;
co jast źle?
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
co jast źle?
A po co to dałeś ? : if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then
Locate jest niepotrzebne. Spróbuj zrobic tak jak napisałem.
A jeśli loPartialKey ma dla Ciebie znaczenie to do kodu, który podałem wyżej możesz sobie wstawić jeszcze Pos i nim sprawdzać tekst.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
To nie reaguje w ogóle :(
var nazwisko:string[20]; i:integer; begin nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then { tutaj dajesz co Ci pasuje } Table1.Next; end;
tabela paradox
Imie|nazwisko|mail|tel | | | może to pomoże :cry:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
To nie reaguje w ogóle :(
Nie bierz tak dosłownie wszystkiego co napisałem ;)
Pisząc { tutaj dajesz co Ci pasuje } miałem na myśli, żebyś zamiast tego wstawił to co Ci pasuje - czyli to co ma być wykonane jeśli zostanie znaleziony interesujący Cię rekord.
Poniżej jeszcze raz daje kod - z użyciem ShowMessage, które miałeś w swoim pierwszym poście (ale zamiast ShowMessage możesz dać co tam masz ochotę - np. blok begin-end i w nim więcej instrukcji).
nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']); Table1.Next; end;
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Nie bierz tak dosłownie wszystkiego co napisałem ;)
Pisząc { tutaj dajesz co Ci pasuje } miałem na myśli, żebyś zamiast tego wstawił to co Ci pasuje - czyli to co ma być wykonane jeśli zostanie znaleziony interesujący Cię rekord.
Poniżej jeszcze raz daje kod - z użyciem ShowMessage, które miałeś w swoim pierwszym poście (ale zamiast ShowMessage możesz dać co tam masz ochotę - np. blok begin-end i w nim więcej instrukcji).
nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']); Table1.Next; end;
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
No jak to nie ? Obkleiłem patentami lepiej niż MS Windowsa 8)
Ale spoko - wykosisz mi tym swoim kombajnem pole albo dwa to będziemy kwita ;)
Pepsi'emu (jak to się pisze... :-k) też byś coś przykombajnił bo on Ci pierwszy podrzucił "algorytm" :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
cytat:Asdef napisał:
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
No jak to nie ? Obkleiłem patentami lepiej niż MS Windowsa 8)
Ale spoko - wykosisz mi tym swoim kombajnem pole albo dwa to będziemy kwita ;)
Pepsi'emu (jak to się pisze... :-k) też byś coś przykombajnił bo on Ci pierwszy podrzucił "algorytm" :)
niestety na razie wezmę pług z piwnicy i zobaczę:lol: co da się zrobić
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
omawiany sposob przeszukiwania jest dosc wolny :/ mozesz rowniez sprobowac z komponentem TQuery i zapytaniem:
select * from twoja_tabelka where nazwisko like "Wi%";
takie zapytanie zwroci wszystkie osoby o nazwisku zaczynajacym sie od "Wi"...
i takie rozwiazanie generalnie powinno dzialac szybciej...
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
omawiany sposob przeszukiwania jest dosc wolny :/ mozesz rowniez sprobowac z komponentem TQuery i zapytaniem:
select * from twoja_tabelka where nazwisko like "Wi%";
takie zapytanie zwroci wszystkie osoby o nazwisku zaczynajacym sie od "Wi"...
i takie rozwiazanie generalnie powinno dzialac szybciej...
narazie zadam kilka teoretycznych pytań, co prawda zadaje je ostatnio często ale przecież do tego jest forum 8)
czy do tego komponentu konieczna jest znajomość SQL'a?
czy query tylko służy do przeszukiwania bazy ??
więcej pytań: jak juz coś poczytam na ten temat ;)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
czy do tego komponentu konieczna jest znajomość SQL'a?
Tak. Chociażby w małym stopniu - ale coś umieć musisz.
cytat:czy query tylko służy do przeszukiwania bazy ??
Nie tylko - możesz też kasować dane, dodawać nowe itp. (kłania się SQL ;))
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
[...]
dobra napisałem do kolegi który zna się na tych kwestiach lecz on wyjechał z polski i nie może mi pomóc bo robi po 11 godzin dziennie:(
rozmawiałem z gościem tylko innym że musze zrobić kwerenda SQL wybierająca?
wiem że w query tylko w którym miejscu i co wpisac czytam na ten temat lecz bez rezultatu wszystko takie jakieś powierzchowne...
bez konkretnych przykładu tylko są opisane zapytania ale gdy wezmę
we właściwościach ustawie active na true query wywala mi ""Query1: Ns statement available"
jak zdążyłem się domyśleć to właśnie przez to że nie mam kwerend :(
w accesie nie ma problemów ale w delphi jest to moja pierwsza baza
może by ktoś tak uczynny się znalazł i opisał coś na ten temat tylko bardziej dogłębnie :(
baza składa się z tabeli "paradox", componetów datasuorce1, session,
oraz zamiast dbtable, chce to wykonać na TQuery tak jak sugerował
pepsi
jest to naprawdę prymitywna baza składająca się tylko
z 4 kolumn imie nazwisko adres telefon...
baza nie ma być z aliasami dostęp aby maił każdy bez logowania :roll:
plis jest na życie albo śmierć :oops:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure Tbaza.BitBtn2Click(Sender: TObject); var nazwisko : String[20]; begin nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); begin if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']) else ShowMessage('Brak nazwiska ' + nazwisko) end; end;
pytanie: jak zrobić aby nie przestawało szukania na pierwszym znalezionym rekordzie?
pilne jak ch**** czas mnie goni :(
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
mozesz sam zrobic funkcje wyszukujaca, czyli przejdziesz po wszystkich field'ach tabeli i sprawdzisz, czy zawieraja szukana wartosc...
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
mozesz sam zrobic funkcje wyszukujaca, czyli przejdziesz po wszystkich field'ach tabeli i sprawdzisz, czy zawieraja szukana wartosc...
pozdrawiam
pepsi^no1
jak to ma wyglądać nigdy się tym nie bawiłem :(
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
jak to ma wyglądać nigdy się tym nie bawiłem :(
Np. coś w tym stylu:
Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then [i]{ tutaj dajesz co Ci pasuje }[/i] Table1.Next; end;
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Np. coś w tym stylu:
Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then [i]{ tutaj dajesz co Ci pasuje }[/i] Table1.Next; end;
OXI zrobiłem w ten sposób ale nadal nie dziąła
var nazwisko : String[20]; i:integer; begin Table1.First; nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); for i:=0 to Table1.RecordCount-1 do begin Table1.Next; if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then { tutaj dajesz co Ci pasuje } if Table1['Nazwisko']=nazwisko then end; end;
co jast źle?
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
co jast źle?
A po co to dałeś ? : if Table1.Locate('Nazwisko', Nazwisko,[loCaseInsensitive, loPartialKey]) then
Locate jest niepotrzebne. Spróbuj zrobic tak jak napisałem.
A jeśli loPartialKey ma dla Ciebie znaczenie to do kodu, który podałem wyżej możesz sobie wstawić jeszcze Pos i nim sprawdzać tekst.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
To nie reaguje w ogóle :(
var nazwisko:string[20]; i:integer; begin nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then { tutaj dajesz co Ci pasuje } Table1.Next; end;
tabela paradox
Imie|nazwisko|mail|tel | | | może to pomoże :cry:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
To nie reaguje w ogóle :(
Nie bierz tak dosłownie wszystkiego co napisałem ;)
Pisząc { tutaj dajesz co Ci pasuje } miałem na myśli, żebyś zamiast tego wstawił to co Ci pasuje - czyli to co ma być wykonane jeśli zostanie znaleziony interesujący Cię rekord.
Poniżej jeszcze raz daje kod - z użyciem ShowMessage, które miałeś w swoim pierwszym poście (ale zamiast ShowMessage możesz dać co tam masz ochotę - np. blok begin-end i w nim więcej instrukcji).
nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']); Table1.Next; end;
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Nie bierz tak dosłownie wszystkiego co napisałem ;)
Pisząc { tutaj dajesz co Ci pasuje } miałem na myśli, żebyś zamiast tego wstawił to co Ci pasuje - czyli to co ma być wykonane jeśli zostanie znaleziony interesujący Cię rekord.
Poniżej jeszcze raz daje kod - z użyciem ShowMessage, które miałeś w swoim pierwszym poście (ale zamiast ShowMessage możesz dać co tam masz ochotę - np. blok begin-end i w nim więcej instrukcji).
nazwisko:=InputBox('szukaj osoby w bazie', 'podaj nazwisko',''); Table1.First; for i:=0 to Table1.RecordCount-1 do begin if Table1['Nazwisko']=nazwisko then ShowMessage('Znalezione nazwisko ' + Table1['Nazwisko']); Table1.Next; end;
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
No jak to nie ? Obkleiłem patentami lepiej niż MS Windowsa 8)
Ale spoko - wykosisz mi tym swoim kombajnem pole albo dwa to będziemy kwita ;)
Pepsi'emu (jak to się pisze... :-k) też byś coś przykombajnił bo on Ci pierwszy podrzucił "algorytm" :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
cytat:Asdef napisał:
działa właśnie o coś takiego mi chodziło teraz troszke z tym pokombinuje i będzie noramlnie kombajn :lol2:
chyba nie nałozyłes na to praw autorskich ?:chytry:
No jak to nie ? Obkleiłem patentami lepiej niż MS Windowsa 8)
Ale spoko - wykosisz mi tym swoim kombajnem pole albo dwa to będziemy kwita ;)
Pepsi'emu (jak to się pisze... :-k) też byś coś przykombajnił bo on Ci pierwszy podrzucił "algorytm" :)
niestety na razie wezmę pług z piwnicy i zobaczę:lol: co da się zrobić
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
omawiany sposob przeszukiwania jest dosc wolny :/ mozesz rowniez sprobowac z komponentem TQuery i zapytaniem:
select * from twoja_tabelka where nazwisko like "Wi%";
takie zapytanie zwroci wszystkie osoby o nazwisku zaczynajacym sie od "Wi"...
i takie rozwiazanie generalnie powinno dzialac szybciej...
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
omawiany sposob przeszukiwania jest dosc wolny :/ mozesz rowniez sprobowac z komponentem TQuery i zapytaniem:
select * from twoja_tabelka where nazwisko like "Wi%";
takie zapytanie zwroci wszystkie osoby o nazwisku zaczynajacym sie od "Wi"...
i takie rozwiazanie generalnie powinno dzialac szybciej...
narazie zadam kilka teoretycznych pytań, co prawda zadaje je ostatnio często ale przecież do tego jest forum 8)
czy do tego komponentu konieczna jest znajomość SQL'a?
czy query tylko służy do przeszukiwania bazy ??
więcej pytań: jak juz coś poczytam na ten temat ;)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
cytat:Asdef napisał:
czy do tego komponentu konieczna jest znajomość SQL'a?
Tak. Chociażby w małym stopniu - ale coś umieć musisz.
cytat:czy query tylko służy do przeszukiwania bazy ??
Nie tylko - możesz też kasować dane, dodawać nowe itp. (kłania się SQL ;))
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
[...]
dobra napisałem do kolegi który zna się na tych kwestiach lecz on wyjechał z polski i nie może mi pomóc bo robi po 11 godzin dziennie:(
rozmawiałem z gościem tylko innym że musze zrobić kwerenda SQL wybierająca?
wiem że w query tylko w którym miejscu i co wpisac czytam na ten temat lecz bez rezultatu wszystko takie jakieś powierzchowne...
bez konkretnych przykładu tylko są opisane zapytania ale gdy wezmę
we właściwościach ustawie active na true query wywala mi ""Query1: Ns statement available"
jak zdążyłem się domyśleć to właśnie przez to że nie mam kwerend :(
w accesie nie ma problemów ale w delphi jest to moja pierwsza baza
może by ktoś tak uczynny się znalazł i opisał coś na ten temat tylko bardziej dogłębnie :(
baza składa się z tabeli "paradox", componetów datasuorce1, session,
oraz zamiast dbtable, chce to wykonać na TQuery tak jak sugerował
pepsi
jest to naprawdę prymitywna baza składająca się tylko
z 4 kolumn imie nazwisko adres telefon...
baza nie ma być z aliasami dostęp aby maił każdy bez logowania :roll:
plis jest na życie albo śmierć :oops:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum