Ich möchte mit PureBasic auf meine SQL Datenbank zugreifen, Jetzt die Frage, geht das nur über Microsoft MS-DOS Konsole?
Wie kann ich es machen dass die Abfrage in einem normalen Windows Fester oder ähnlichem Stattfindet?
Und wie kann ich es machen, dass ich bei "Command$ = Input()" den Befehl nicht mehr manuell eingeben muss, sondern dass es automatisch abläuft ? Der Befehl lautet : select top 100 *from Datenbank1
Ich wäre euch sehr dankbar wenn ihr mir etwas nachhelfen könnt!
Hier ist der Code:
Code: Alles auswählen
If InitDatabase() = 0
MessageRequester("Error", "Can't initialize Database (ODBC v3 or better) environment", 0)
End
EndIf
OpenConsole()
Dim DatabaseType.s(4)
DatabaseType(0) = "Unknown"
DatabaseType(1) = "Numeric"
DatabaseType(2) = "String"
DatabaseType(3) = "Float"
If ExamineDatabaseDrivers()
While NextDatabaseDriver()
PrintN(DatabaseDriverName()+" - "+DatabaseDriverDescription())
Wend
EndIf
If OpenDatabaseRequester(0)
PrintN("Database successfully opened !")
PrintN("Type EXIT to quit.")
PrintN("Command example: select * from user;")
Repeat
Print("SQL Command: ")
Command$ = Input()
PrintN("")
Select UCase(Command$)
Case "EXIT"
Quit = 1
Default
If DatabaseQuery(Command$)
NbColumns = DatabaseColumns()
PrintN("NbColums: " + Str(NbColumns))
For k=0 To NbColumns-1
PrintN(DatabaseColumnName(k) + " - " + DatabaseType(DatabaseColumnType(k)))
Next
PrintN("")
Print ("Press return to continue") : Input()
PrintN("")
PrintN("Query Result -------------------------------------")
While NextDatabaseRow()
For i=1 To NBColumns-1
Print(GetDatabaseString(i)+" ")
Next i
PrintN("")
Wend
PrintN("--------------------------------------------------")
Else
PrintN("Bad Query !")
EndIf
EndSelect
Until Quit = 1
Else
MessageRequester("Info", "Operation canceled", 0)
EndIf
End
Wenn die Anmeldedaten so stimmen!!!