| |
| |
|
| - Page 1 - |
|
holmol93 | Hello together 
i'm new here and first since Kurzem with xProfan on the way. Version would X2.
The xProfan Lehrbücher have I To this Topic already search, have however no specific (and me nachvollziehbare) Solution found...
Verzeiht if I a little bit stupid question or so
take we on, I had a data base of Schülern.
Gespeichert are The usual data How name and address, Gebursdatum and the class. In unterschiedlichen for the in the structure definierten Split.
i want then a list all Schülernamen, The in class 5 are, List.
the means, I should in the DB first once with db("seek") to one Datensatz with class 5 search. there hears my understanding but already on, The function supply me Yes only a Datensatz, whom zutreffendsten... 
How should I the very concern?
Greetz,
danny |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
H.Brill | The amount Datensätze do you need not yet time.
there's Yes System-Variables to that inquire, here %dbEof
time so from the Stehgreif :
code :
Declare Satznr&
ClearList ' unsichtbare Listbox delete
@db("Go", "Top") ' on 1. Datensatz jumping
WhileNot %dbEof ' Systemvariable, The End Of File checks
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' last Param. = accuracy
' in your entrapment z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
If Satznr& > 0 ' DS found
' with db("Get",...) or db("GetField", ...) area or boxes read
' and z.B. into unsichtbare and ClearList erased Listbox write
' z.B. AddStrings db("Get", "Feldname 1") + db("Get", "Feldname 2") etc.
' db("Seek",...) positioniert Yes on found DS
EndIf
db("Go", "Next") ' next DS
EndWhile
@Listbox$("Gefundene Datensätze", 1) |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 04/24/13 ▲ |
|
| |
|
|
|
RGH | Hello danny,
to the Search with db("seek") is the actually Datensatz The first Fundstelle. there The Search always at actually Datensatz begins, go You subsequently with db("go","NEXT") on the next Datensatz and seek anew with db("seek"). Then the second Datensatz the class found. the wiederholst You in a Loop such a long time, To no Datensatz More found becomes.
Greeting
Roland |
|
| |
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 04/24/13 ▲ |
|
| |
|
|
holmol93 | Hey Roland,
viiielen Thanks for speedy Info, the Have I do not known, that The "seek"- Search at actually Datensatz starting to search... I thought, The seek jedesmal of beginning on and then would I Yes always on the same Datensatz come... so yields the for me but a sense!
the means, I read initially from, wieviele Gesamtdatensätze a data base has and let The Loop as long as walk, To very these amount read is
will be it straight once try, if I daheim be
Greeetz,
danny |
|
| |
| |
| |
|
|
H.Brill | The amount Datensätze do you need not yet time.
there's Yes System-Variables to that inquire, here %dbEof
time so from the Stehgreif :
code :
Declare Satznr&
ClearList ' unsichtbare Listbox delete
@db("Go", "Top") ' on 1. Datensatz jumping
WhileNot %dbEof ' Systemvariable, The End Of File checks
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' last Param. = accuracy
' in your entrapment z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
If Satznr& > 0 ' DS found
' with db("Get",...) or db("GetField", ...) area or boxes read
' and z.B. into unsichtbare and ClearList erased Listbox write
' z.B. AddStrings db("Get", "Feldname 1") + db("Get", "Feldname 2") etc.
' db("Seek",...) positioniert Yes on found DS
EndIf
db("Go", "Next") ' next DS
EndWhile
@Listbox$("Gefundene Datensätze", 1) |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 04/24/13 ▲ |
|
| |
|
|
holmol93 | Heyyy H.Brill
Vielen loves Thanks for trouble, this is The Allzwecklösung for useful each DB Ausleseanfrage, The I me consider have, deliriousness would have been particularly not virtual, that it for only so little Lines View source needed
On each drop many cordial Thanks has on attempt worked, too the write so in ChoiceBoxen and others items
Gruess,
danny |
|
| |
| |
| |
|
(2.058)
Deutsch
English
Français
Español
Italia