Seite 2 von 3
Re: String konvertieren
Verfasst: 06.06.2022 17:04
von STARGÅTE
Tut mir leider Wolfvater Loki, aber ich glaube ich bin hier nicht der einzige, der immer noch nicht versteht was du willst.
In dem Moment wo du etwas in ein InputRequester eingibst und es zurück geben lässt, ist es doch bereits ein String (was auch sonst?).
Du kannst diesen String ganz normal im Select benutzen und dann auch in deine Datenbankabfrage einbetten.
Code: Alles auswählen
Define String.s = InputRequester("", "", "")
Select String
Case "Neuron"
; Bla Kecks
Code: Alles auswählen
DatabaseQuery(#Database, "SELECT * FROM Table WHERE Text = '"+EscapeString(String)+"'")
Re: String konvertieren
Verfasst: 06.06.2022 17:20
von mk-soft
???
Code: Alles auswählen
Define word.s, sql.s
word = InputRequester("Abfrage", "Word:", "")
sql = "Select * from tabelle where spalte = '" + word + "'"
Debug sql
Re: String konvertieren
Verfasst: 06.06.2022 17:31
von Wolfvater Loki
STARGÅTE hat geschrieben: 06.06.2022 17:04
Tut mir leider Wolfvater Loki, aber ich glaube ich bin hier nicht der einzige, der immer noch nicht versteht was du willst.
In dem Moment wo du etwas in ein InputRequester eingibst und es zurück geben lässt, ist es doch bereits ein String (was auch sonst?).
Du kannst diesen String ganz normal im Select benutzen und dann auch in deine Datenbankabfrage einbetten.
Code: Alles auswählen
Define String.s = InputRequester("", "", "")
Select String
Case "Neuron"
; Bla Kecks
Code: Alles auswählen
DatabaseQuery(#Database, "SELECT * FROM Table WHERE Text = '"+EscapeString(String)+"'")
Das geht vermutlich hier vielen so. Das Problem, was ich hatte, war folgendes:
Code: Alles auswählen
beispiel$ = InputRequester("Titel","Text:","")
umwandeln = Val(beispiel$)
Select umwandeln
Case 1
sql$ = ""
. . .
EndSelect
Da wars so, dass man nur Zahlen umwandeln konnte. Ich möchte aber Wörter umwandeln lassen.
Re: String konvertieren
Verfasst: 06.06.2022 17:58
von mk-soft
Ein Word wird in einen String abgelegt und ist kein Wert!
Um Wörter werte zu hinterlegen kann man Maps verwenden. Maps sind Case sensitive.
Code: Alles auswählen
Global NewMap words.i()
Define word.s
words("neutron") = 1
words("protron") = 2
word = InputRequester("Abfrage", "Word:", "")
If FindMapElement(words(), word)
Select words()
Case 1
Debug "1"
Case 2
Debug "2"
EndSelect
Else
Debug "Not found"
EndIf
Re: String konvertieren
Verfasst: 06.06.2022 18:17
von Axolotl
Dein Problem mit dem Beispiel läßt sich auf STRING so anpassen:
Code: Alles auswählen
; beispiel$ = InputRequester("Titel","Text:","")
; umwandeln = Val(beispiel$)
; Select umwandeln
; Case 1
; sql$ = ""
; . . .
; EndSelect
;
beispiel$ = InputRequester("Titel","Text:","")
Select beispiel$
Case "Eingabe" :Debug "Eingabe eingegeben!"
sql$ = ""
; . . .
EndSelect
Der Befel VAL wandelt den String beispiel$ in eine Integer Zahl. Das muss man aber für Select nicht unbedingt machen...
Re: String konvertieren
Verfasst: 06.06.2022 20:03
von Wolfvater Loki
Habt vielen Dank. Dies hat mir bei meinem Projekt weiter geholfen. Vielen Dank.
Re: String konvertieren
Verfasst: 06.06.2022 23:02
von jacdelad
Nur aus Neugier und weil ich es offenbar auch nicht verstanden habe: welcher Code hat dir denn jetzt geholfen?
Re: String konvertieren
Verfasst: 10.06.2022 19:02
von bobobo
mal so ausm Kopf
eingabe.s="Neuron"
abfragesatz.s="select * from tabelle where name like '%@@@%'"
ergebnis.s=replacestring(abfragesatz,"@@@",eingabe)
; ergibt im ergebnis.s select * from tabelle where name like '%Neuron%'
meinste sowas?
grüsse
Re: String konvertieren
Verfasst: 10.06.2022 20:44
von Thorsten1867
Code: Alles auswählen
Word$ = InputRequester("Datenbank", "Befehl eingeben", "")
Select Trim(Word$)
Case "Neuron"
Case "Elektron"
Case "..."
EndSelect
Re: String konvertieren
Verfasst: 10.06.2022 20:47
von Thorsten1867
Code: Alles auswählen
Word$ = Trim(InputRequester("Datenbank", "Befehl eingeben", ""))
SQL$ = "select * from tabelle where name like '%" + Word$ + "%'"