String konvertieren

[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)+"'") 

[mk-soft]

???

Code: Alles auswählen

Define word.s, sql.s

word = InputRequester("Abfrage", "Word:", "")

sql = "Select * from tabelle where spalte = '" + word + "'"

Debug sql

[Wolfvater Loki]

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.

[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

[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...

[Wolfvater Loki]

Habt vielen Dank. Dies hat mir bei meinem Projekt weiter geholfen. Vielen Dank.

[jacdelad]

Nur aus Neugier und weil ich es offenbar auch nicht verstanden habe: welcher Code hat dir denn jetzt geholfen?

[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

[Thorsten1867]

Code: Alles auswählen

Word$ = InputRequester("Datenbank", "Befehl eingeben", "")
Select Trim(Word$)
  Case "Neuron"
    
  Case "Elektron"
    
  Case "..." 
    
EndSelect

[Thorsten1867]

Code: Alles auswählen

Word$ = Trim(InputRequester("Datenbank", "Befehl eingeben", ""))

SQL$ = "select * from tabelle where name like '%" + Word$ + "%'"