wenn ich eine Variable mit der Filterbedingung belege, und die dann in den SELECT einbauen will - wie mache ich das korrekt?
also z. B.
Code: Alles auswählen
cFilter := "name = 'Schulze'"
SELECT * FROM adressen WHERE [cFilter]
Moderator: Moderatoren
Code: Alles auswählen
cFilter := "name = 'Schulze'"
SELECT * FROM adressen WHERE [cFilter]
Code: Alles auswählen
SELECT * FROM adressen INTO object aArray
Code: Alles auswählen
SELECT * FROM adressen INTO object aArray WHERE adressr = 1
Code: Alles auswählen
SELECT * FROM adressen WHERE adressr = 1 INTO object aArray
Code: Alles auswählen
FUNCTION leseSaetzeInArray(cAlias, cFeld, cWert)
oStmt := USqlStatement():new()
oStmt:createVirtualTableFromWorkArea(cAlias)
oStmt:fromChar("SELECT * FROM " + cAlias + " WHERE " + cFeld + "=::wert")
oStmt:wert := cWert
oStmt:build():query(USQL_RESULT_OBJECTS, @aData)
RETURN aData
Code: Alles auswählen
? cAlias->vorgang + " " + Var2Char(cAlias->reihefolge) + ": "
ein"Angebot 2: "
schreibt."Angebot 2.00: "
Code: Alles auswählen
aStructure := (cAlias)->(DbStruct())
...
// Der SELECT oben schreibt logische Felder als 0 oder 1. Was der restliche Code nicht versteht. Siehe PDR 7494
FOR i := 1 TO Len(aStructure)
IF aStructure[i][2] = "L"
AAdd(aFelder, aStructure[i][1])
ENDIF
NEXT
IF Len(aFelder) >= 1
FOR i := 1 TO Len(aArray)
FOR j := 1 TO Len(aFelder)
IF aArray[i]:&(aFelder[j]) = 0
aArray[i]:&(aFelder[j]) := .F.
ELSE
aArray[i]:&(aFelder[j]) := .T.
ENDIF
NEXT
NEXT
ENDIF
// Der SELECT oben schreibt numerische Felder auf mind. 2 Dezimalstellen um. Was alten Code brechen kann bei Ausgaben. Siehe PDR 7507
aFelder := {}
FOR i := 1 TO Len(aStructure)
IF aStructure[i][2] = "N"
AAdd(aFelder, aStructure[i])
ENDIF
NEXT
IF Len(aFelder) >= 1
FOR i := 1 TO Len(aArray)
FOR j := 1 TO Len(aFelder)
aArray[i]:&(aFelder[j][1]) := Val(Str(aArray[i]:&(aFelder[j][1]), aFelder[j][3], aFelder[j][4]))
NEXT
NEXT
ENDIF
Bei Xbase++ gibt es intern zwar LONG also ohne Nachkomma oder aber die mit Nachkommastellen,Jan hat geschrieben: ↑Mo, 06. Jun 2022 18:04 Im Laufe der Arbeiten damit hab ich noch zwei Bugs gefunden. Die Alaska beide als PDR anerkannt hat.
2) Ein realer Bug ist, das numerische Werte aus einem Feld im Format Nn.0 im DataObject hinterher im Format Nn.2 steht.
Wenn man in der weiteren Verarbeitung darauf vertraut daß das Zahlenformat stimmt, dann gibt das Merkwürdigkeiten. Im einfachsten Fall kann das z. B. sein das ein