| |
|
|
E.T. | Hello all, I have one (nice) Datenbankprog, what too (yet) wonderful functions. now Have I but the trouble, that I a Search over one numerisches area not hinbekomme: I have from the DB a index over 4 numeric fields prepares (are ph.-numbers drin), the create works too. If I now in the index with @dbfind Search, I get but none hits in the index back. If I the same with the index for (name, First name) or (Geb.-date) make working it, only The stupid ph.numbers want not. the allocate the index works (lt.feedback) too, only becomes nothing found. The DB is opened, the index prepares, read the boxes with the ph.-numbers works too. only hold the Search in this index not. JEMAND NE IDEE?? or Have I there time again a gigant fallacy installed ??? CompileMarkSeparation
Proc DS_FindTel
Parameters Number$ Übergabe-String aus Eingabefeld
Declare Tel_Gef&, IDX%
If Left$(Number$,1) = 0 auf führende O prüfen
Number$ = @Del$(Number$,1,1)
EndIF
In folgenden 3 Zeilen hab ich schon probiert:
Spaces vorn, Spaces hinten, 0n vorn, 0n hinten
Auch auskommentiert, ums so zu lassen, wieS ist.
Hat alles nix geholfen, Ergebniss (Tel_Gef&) immer 0 > Nicht gefunden
While (@Len(Number$) < 15) Suchstring-Länge auf 15 setzen
Number$ = + Number$
EndWhile
IDX% = @dbIndex(IDX_Tel) verwendeten Index festlegen
IfNot IDX% FEHLER Index
@MessageBox(Index konnte nicht geöffnet werden !!!,INFO,262144+64)
Else oder weiter....
@dbGo(TOP) zur Sicherheit beim Test eingebaut, auch schon ohne probiert
Tel_Gef& = @dbfind(Number$,1)
Interne Programmier-Kontrolle, nur zur Info, wird dann entfernt
Gleich sieht man, ob was gefunden wurde !!!
Die zu suchende Nummer wird immer korrekt angezeigt (mit Spaces vorn,
hinten, 0n vorn oder hinten oder so wie übergeben, nur ohne führende Null,
je nach dem, was weiter oben in der Schleife gemacht wird (oder auch nicht,
wenn auskommentiert).
@MessageBox(Gesuchte Nummer : + Number$ +
Länge SuchString : + @str$(@Len(Number$)) +
Gefunden JA [1] / NEIN [0] : + @Str$(Tel_Gef&),INFO,262144+16) War noch nie da!!
Case Tel_Gef& : DS_Einlesen wenn gefunden, Datensatz einlesen
EndIf
@dbIndex(IDX_Name) Wieder Standart-Such-Index setzen
ENDPROC
hope, there can someone help, and hope moreover, the my XProfan10 finally ankommt.... |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/18/08 ▲ |
|
|
|
|
E.T. | Hi,
I mean, I have even self already what found: If I The Indexe particular create (each area one einzelner index, s.u), can I these too particular search and it'll what found. now functions but the following not, it'll only the ERSTE index search: CompileMarkSeparation the dazupacken of space can I me save, Have I even notice. now is the search with each individual index Yes not the stone the point, knows someone ne others Solution ??
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/18/08 ▲ |
|
|
|
|
Thomas Freier | The index-File Yes on first place not for Search needed. More for sortierte display. If you a input in four dB-Feldern seek, must You with FIND too viermal index. otherwise SEEK use. i think, that the automatic Search with one commands in several Datenbankfeldern in none Datenbankanwendung possible is. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 03/18/08 ▲ |
|
|
|
|
E.T. | with Search in Indizierten Felden becomes only the first taken - one ought to even too The Help RICHTIG reading (with several Indices counts the first index). Well, means Eigentor !! Habs now so made, then GEHTS: CompileMarkSeparation
Proc DS_FindTel
Parameters Number$ Übergabe-String aus Eingabefeld
Declare Tel_Gef&, IDX%
If Left$(Number$,1) = 0 auf führende O prüfen
Number$ = @Del$(Number$,1,1)
EndIF
Clear IDX%, Tel_Gef&
IDX% = @dbIndex(IDX_Tel_1,IDX_Tel_2,IDX_Fax_1,IDX_Fax_2,IDX_Handy_1,IDX_Handy_2)
ALLE Indexe überprüfen:
CaseNot IDX% : @MessageBox(Index konnte nicht geöffnet werden !!!,INFO,262144+64)
If IDX%
@dbIndex(IDX_Tel_1)
Tel_Gef& = @dbfind(Number$,1)
IfNot Tel_Gef&
@dbIndex(IDX_Tel_2)
Tel_Gef& = @dbfind(Number$,1)
EndIF
IfNot Tel_Gef&
@dbIndex(IDX_Fax_1)
Tel_Gef& = @dbfind(Number$,1)
EndIF
IfNot Tel_Gef&
@dbIndex(IDX_Fax_2)
Tel_Gef& = @dbfind(Number$,1)
EndIF
IfNot Tel_Gef&
@dbIndex(IDX_Handy_1)
Tel_Gef& = @dbfind(Number$,1)
EndIF
IfNot Tel_Gef&
@dbIndex(IDX_Handy_2)
Tel_Gef& = @dbfind(Number$,1)
EndIF
Interne Programmier-Kontrolle, nur zur Info, wird dann entfernt
Gleich sieht man, ob was gefunden wurde !!!
@MessageBox(Gesuchte Nummer : + Number$ +
Länge SuchString : + @str$(@Len(Number$)) +
Gefunden JA [1,2,...] / NEIN [0] : + @Str$(Tel_Gef&),INFO,262144+16)
Case Tel_Gef& : DS_Einlesen wenn gefunden, Datensatz einlesen
Else
@dbIndex(IDX_Name)
@dbGo(Top)
EndIf
@dbIndex(IDX_Name) Wieder Standart-Such-Index setzen
='./../../funzione-riferimenti/XProfan/return/'>Return Tel_Gef&
thereby is me noticed, there of course the to check on, whether any Indexe present are (row 8-10) functions, but with Return 0 (one index missing) one new allocate the To benutzenden index to that Program-discontinue lead. I knows, the to check on can I too differently make, is already strange...
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/18/08 ▲ |
|
|
|
|
Thomas Freier | at that Indizieren exists a Begrenzung for length the index. I faith its are 110 characters. means z.B. 4x Feldlänge n30 = 120= too much to that Indizieren. Please in the Help or here thereafter search or for each Suchvorgang in the program only one area index. the are still only some Program lines More, but less Problems. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 03/18/08 ▲ |
|
|
|
|
E.T. | @Thomas : thanks for your Answer. The index overlaid 4 (6) boxes a15 characters, means 60 (90) long. the ought to not the trouble his.
have to long consider now still on @dbseek rebuilt. so can I me too The Indexe save. thought hold only, the search in the index would faster...
Have of course now the Completed: the Überprüfung not any more (see 2 Posts moreover supra), but interestingly would already to know, whence the Program-discontinue comes.
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/18/08 ▲ |
|
|
|
|
Thomas Freier | the of me as possible Fehlerursache at Indizieren named met Yes not whom core. You erstellst Yes separated 6 *.ndx and quiz, whether tappt im dunkeln present are. How The *.ndx created go is Yes not obviously. whether itself there another Error eingeschlichen has? is there one unsauberer mixed from Alpha- and Num-Feldern? the search with index is already faster. One merkbarer Zeitgewinn is first with large Files feststellbar. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 03/18/08 ▲ |
|
|
|
|
E.T. | |
|
|
|
Thomas Freier | it sees so from, that any *.dbf and *.ndx startup opened, or. created go. Stößt You on The boundary the 15 opened Files (Help, reference)? there XProfan whom commands reIndex not knows, I had me it angewöhnt, The desired *.ndx first To produce, as they needed and is then is ensured, that any Datenbankänderungen grasped are. In such drop only one ndx-name, to Creation delete, request and Search and the even for each area in the sought go should. then is it in a short doWhile-Loop quizzed, if area-Nr. uses and be The boxes one after another lying. i'd too no Error Message spend, if The *.ndx No is, separate then automatically of dbfind To dbseek change. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 03/19/08 ▲ |
|
|
|
|
E.T. | it'll only EINE data base opened and different Indexe prepares, which then each with the edit to that sort used go (naturally always only of/ one, then time again another). the the search in a index over several boxes not working can comment I me so, the in the index any boxes in EINEM String stand. be I on it come with the Search in IDX_Name, which from name + First name prepares is. there must I the Suchbegriff for name too first on The (pretended) 30 to put top up, circa until First name To come. the functions but too wonderful.
what me now still stutzig power is the crash to the control, if then another index allocated becomes. happens too with @dbGo... etc. somewhere verhaspelt itself there what, habs only not yet found (and XPSE says too nothing).
Mario |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/19/08 ▲ |
|
|
|
|
Thomas Freier | @Mario: i think, you have your Program fully in the Grif and everything ausgelotet what machbar was. so How You The *.ndx verwendest, I have light doubt, whether the in the senses the Erfinders was. on this place Please I @Roland: as with the zulässigen amount of apertured *.ndx per *.dbf? with dBase III were seven. |
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 03/19/08 ▲ |
|
|
|
|
E.T. | @Thomas: thanks for your tröstenden words.
have now The whole Search to ph-numbers in my Prog on dbSeek rebuilt. there can I me couple (many) Indexe save (are in the meantime to Kundenwunsch alone 6 DB-Entries for ph-, Fax-, Handy- numbers become). The thought Thomas with the Number of Indexe is well, there itself Yes XProfan (of my Wissens) on whom DBaseIII - Standart holds, is it well possible, the there (with of my Use the Indexe) the bunny bury lying
(Oh, , short to Easter ought to the bunny Yes yet hoppeln, naja, by me are nevertheless 2 in the pan.... ).
the whole have I Yes through Umbau resolved, be but alledem tensely, whether Roland yet what moreover listen can.
Mario
P.s. today Have I finally my XProfan 10 get. there kanns Yes only rather go. and now schmeise I finally my keyboard lane and stick The new ran, which since 4 weeks there lying. If then not any more abundan a couple Anschläge are missing, go ggf. too The Error in my Quelltexten less. but one is supposed also its old (T..) endearing having.... (Diesen Posting at least 5time because of fehlender characters korrigiert - now reichts !!) |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 03/20/08 ▲ |
|
|
|