| |
| |
|
| - Página 1 - |
|
holmol93 | ¡Hola miteinander 
Yo bin neu hier y sólo seit Kurzem con xProfan unterwegs. Versión wäre X2.
El xProfan Lehrbücher Yo a diesem Thema ya durchsucht, habe sin embargo no spezifische (y para mich nachvollziehbare) Solución gefunden...
Verzeiht si yo una wenig dumm frage más o menos
Nehmen wir a, Yo hätte una Datenbank de Schülern.
Gespeichert son el üblichen Daten como Name y Adresse, Gebursdatum y el Klasse. In unterschiedlichen para el en el Struktur definierten Spalten.
Yo möchte entonces una Liste aller Schülernamen, el en Klasse 5 son, auflisten.
Das heisst, Yo debería en el DB zuerst una vez con db("seek") una Datensatz con Klasse 5 suchen. Como hört mein Verständnis aber ya en, el Función liefert me sí sólo una Datensatz, el zutreffendsten... 
Como debería Yo el genau angehen?
Greetz,
Danny |
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
H.Brill | El Anzahl Datensätze necesidad du todavía no veces.
Lo son sí Systemvariablen para Abfragen, hier %dbEof
Tiempo así de el Stehgreif :
Code :
Declarar Satznr&
ClearList ' unsichtbare Listbox löschen
@db("Go", "Top") ' en 1. Datensatz springen
Sinestar encargado %dbEof ' Systemvariable, el End Of File prüft
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' letzter Param. = Genauigkeit
' en deinem Falle z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
If Satznr& > 0 ' DS gefunden
' con db("Get",...) oder db("GetField", ...) Feld oder Felder auslesen
' y z.B. en el unsichtbare y ClearList gelöschte Listbox escribir
' z.B. AddStrings db("get", "Feldname 1") + db("get", "Feldname 2") usw.
' db("Seek",...) positioniert sí en gefundenen DS
EndIf
db("Go", "Next") ' nächster 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 | ¡Hola Danny,
después de el Búsqueda con db("seek") es el aktuelle Datensatz el erste Fundstelle. Como el Búsqueda siempre beim aktuellen Datensatz beginnt, gehst Usted anschließend con db("go","NEXT") en el nächsten Datensatz y suchst erneut con db("seek"). Dann se el zweite Datensatz el Klasse gefunden. Das wiederholst Usted en uno Bucle así largo, a kein Datensatz mehr gefunden se.
Saludo
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 para rápido Info, el tener Yo no gewusst, dass el "seek"- búsqueda beim aktuellen Datensatz anfängt a suchen... Pensé, el sucht jedesmal de Anfang a y luego wäre Yo sí siempre en el selben Datensatz gekommen... So ergibt el para mich aber una Sinn!
Das heisst, Yo lese Anfangs de, wieviele Gesamtdatensätze una Datenbank ha y lasse el Bucle solange laufen, a genau esta Anzahl eingelesen es
Werde lo gerade una vez ausprobieren, si yo daheim bin
Greeetz,
Danny |
|
| |
| |
| |
|
|
H.Brill | El Anzahl Datensätze necesidad du todavía no veces.
Lo son sí Systemvariablen para Abfragen, hier %dbEof
Tiempo así de el Stehgreif :
Code :
Declarar Satznr&
ClearList ' unsichtbare Listbox löschen
@db("Go", "Top") ' en 1. Datensatz springen
Sinestar encargado %dbEof ' Systemvariable, el End Of File prüft
Satznr& = db("Seek", "Feldname", "Suchbegriff", 2) ' letzter Param. = Genauigkeit
' en deinem Falle z.B. : Satznr& = db("Seek", "Klasse", "5", 2)
If Satznr& > 0 ' DS gefunden
' con db("Get",...) oder db("GetField", ...) Feld oder Felder auslesen
' y z.B. en el unsichtbare y ClearList gelöschte Listbox escribir
' z.B. AddStrings db("get", "Feldname 1") + db("get", "Feldname 2") usw.
' db("Seek",...) positioniert sí en gefundenen DS
EndIf
db("Go", "Next") ' nächster 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 para el Mühe, el Es el Allzwecklösung para praktisch jede DB Ausleseanfrage, el Yo überlegt habe, Wahnsinn Hätte antes allem no pensamiento, dass lo dafür sólo así wenige Zeilen Ver código fuente benötigt
Auf cada Fall vielen herzlichen Dank ha en Anhieb geklappt, auch el Carta así en ChoiceBoxen y otro Elemente
Gruess,
Danny |
|
| |
| |
| |
|
(908)
Deutsch
English
Français
Español
Italia