| |
| |
|
| - page 1 - |
|
holmol93 | allô miteinander 
je suis récente ici et seulement depuis Kurzem avec xProfan unterwegs. Version wäre X2.
qui xProfan Livres habe je trop diesem Thema déjà durchsucht, habe cependant aucun spezifische (et pour mich nachvollziehbare) Solution trouvé...
Verzeiht si je un peu dumm frage ou bien so
prenons à, je hätte une banque de données de Schülern.
Gespeichert sommes qui habituel données comment nom et Adresse, Gebursdatum et qui super. dans unterschiedlichen pour cela dans qui Struktur definierten Spalten.
je voudrais ensuite une liste aller Schülernamen, qui dans super 5 sommes, auflisten.
cela heisst, je devrait dans qui DB d'abord einmal avec db("seek") pour einem Datensatz avec super 5 chercher. là hört mon Verständnis mais déjà sur, qui Funktion liefert mir oui seulement une Datensatz, den zutreffendsten... 
comment devrait je cela oui c'est ca angehen?
Greetz,
Danny |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
H.Brill | qui Anzahl Datensätze brauchst du encore pas la fois.
il y a oui Système zum Abfragen, ici %dbEof
la fois so aus dem Stehgreif :
Code :
Déclarer Satznr&
ClearList ' unsichtbare Listbox effacer
@db("Go", "Top") ' sur 1. Datensatz springen
WhileNot %dbEof ' Systemvariable, qui Fin Of File prüft
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' dernier Param. = Genauigkeit
' dans deinem piège z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
Si Satznr& > 0 ' DS trouvé
' avec db("Get",...) ou bien db("GetField", ...) champ ou bien Felder auslesen
' et z.B. dans qui unsichtbare et ClearList gelöschte Listbox écrivons
' z.B. AddStrings db("get", "Feldname 1") + db("get", "Feldname 2") usw.
' db("Seek",...) positionné oui sur gefundenen DS
EndIf
db("Go", "Next") ' prochaine 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. | 24.04.2013 ▲ |
|
| |
|
|
|
RGH | allô Danny,
pour qui cherche avec db("seek") ist qui aktuelle Datensatz la première Fundstelle. là qui cherche toujours beim aktuellen Datensatz beginnt, vas Du anschließend avec db("go","NEXT") sur den prochain Datensatz et cherches erneut avec db("seek"). ensuite wird qui zweite Datensatz qui super trouvé. cela wiederholst Du dans einer Boucle so longtemps, jusqu'à ne...aucune Datensatz plus trouvé wird.
Salut
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 | 24.04.2013 ▲ |
|
| |
|
|
holmol93 | Hey Roland,
viiielen Dank pour qui schnelle Info, cela hab je pas gewusst, dass qui "seek"- cherche beim aktuellen Datensatz anfängt trop chercher... J'ai pensé, qui cherchez chaque fois de Anfang à et ensuite wäre je oui toujours sur den selben Datensatz gekommen... So ergibt cela pour mich mais une Sinn!
cela heisst, je lese Anfangs aus, wieviele Gesamtdatensätze une banque de données hat et lasse qui Boucle solange courir, jusqu'à oui c'est ca cet Anzahl lire ist
Werde es justement einmal ausprobieren, si je à la maison suis
Greeetz,
Danny |
|
| |
| |
| |
|
|
H.Brill | qui Anzahl Datensätze brauchst du encore pas la fois.
il y a oui Système zum Abfragen, ici %dbEof
la fois so aus dem Stehgreif :
Code :
Déclarer Satznr&
ClearList ' unsichtbare Listbox effacer
@db("Go", "Top") ' sur 1. Datensatz springen
WhileNot %dbEof ' Systemvariable, qui Fin Of File prüft
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' dernier Param. = Genauigkeit
' dans deinem piège z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
Si Satznr& > 0 ' DS trouvé
' avec db("Get",...) ou bien db("GetField", ...) champ ou bien Felder auslesen
' et z.B. dans qui unsichtbare et ClearList gelöschte Listbox écrivons
' z.B. AddStrings db("get", "Feldname 1") + db("get", "Feldname 2") usw.
' db("Seek",...) positionné oui sur gefundenen DS
EndIf
db("Go", "Next") ' prochaine 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. | 24.04.2013 ▲ |
|
| |
|
|
holmol93 | Heyyy H.Brill
Vielen lieben Dank pour qui Mühe, c'est qui Allzwecklösung pour pratique chacun DB Ausleseanfrage, qui je mir überlegt habe, démence Hätte avant allem pas gedacht, dass es pour seulement so wenige Zeilen Voir le texte source nécessaire
sur jeden le cas vielen herzlichen Dank hat sur Anhieb geklappt, aussi cela écrivons avec cela dans ChoiceBoxen et autre Elemente
Gruess,
Danny |
|
| |
| |
| |
|
(928)
Deutsch
English
Français
Español
Italia