Vielen Dank für das tolle Konvertierungstool.
Mir ist ein Fehler aufgefallen:
Code: Alles auswählen
result = InitDatabase()
If result = 0
MessageRequester("Fehler", "Die ODBC-Schnittstelle konnte nicht initialisiert werden.")
End
EndIf
result = OpenDatabase(#DB, "test", "", "")
If result = 0
MessageRequester("Fehler", "Die Datenbank <test> konnte nicht geöffnet werden.")
End
EndIf
UseDatabase(#DB)
request$ = "SELECT * FROM test"
If DatabaseQuery(request$)
Repeat
result = NextDatabaseRow()
If result
text$ = GetDatabaseString(0)+Chr(10)+GetDatabaseString(1)+Chr(10)+GetDatabaseString(2)
EndIf
Until result = 0
EndIf
End
wird konvertiert in
Code: Alles auswählen
; Converted by PBSourceConverter on 16.05.2006 / 10:34
result = InitDatabase()
If result = 0
MessageRequester("Fehler", "Die ODBC-Schnittstelle konnte nicht initialisiert werden.")
End
EndIf
result = OpenDatabase(#DB, "test", "", "")
If result = 0
MessageRequester("Fehler", "Die Datenbank <test> konnte nicht geöffnet werden.")
End
EndIf
request$ = "SELECT * FROM test"
If DatabaseQuery(#DB,request$)
Repeat
result = NextDatabaseRow(#DB)
If result
text$ = GetDatabaseString(#DB,0)
EndIf
Until result = 0
EndIf
End
Der Teil "+Chr(10)+GetDatabaseString(1)+Chr(10)+GetDatabaseString(2)" geht verloren.
Es wäre schön, wenn sich der Fehler beheben ließe.
Vielen Dank.
