![]() |
| SuperStrict Import tm.SQLite Local db:Int 'Database Handle Local Command:String SQLite3_Open(":memory:", db) Command="CREATE TABLE Player(Name TEXT, Ranking INTEGER)" SQLite3_Exec(db, Command, Null, Null, Null) Command="INSERT INTO Player VALUES('Ronaldinho', 1)" SQLite3_Exec(db, Command,Null, Null, Null) Command="SELECT * FROM Player" SQLite3_Exec(db, Command, CallBack, Null, Null) SQLite3_Close(db) End Function CallBack:Int(user_data:Byte Ptr, num_cols:Int, value:Byte Ptr Ptr, column_name:Byte Ptr Ptr) For Local i:Int=0 Until num_cols Print String.FromCString(Column_name[i])+": "+String.FromCString(value[i]) Next Return 0 End Function |
| Building untitled2 Compiling:untitled2.bmx flat assembler version 1.64 3 passes, 4944 bytes. Linking:untitled2.debug.exe Executing:untitled2.debug.exe Name: Ronaldinho Ranking: 1 Process complete |
| SuperStrict |
| Import tm.SQLite |
| Local db:Int 'Database Handle Local Command:String |
| SQLite3_Open(":memory:", db) |
| Command="CREATE TABLE Player(Name TEXT, Ranking INTEGER)" SQLite3_Exec(db, Command, Null, Null, Null) |
| Command="INSERT INTO Player VALUES('Ronaldinho', 1)" SQLite3_Exec(db, Command,Null, Null, Null) |
| Command="SELECT * FROM Player" SQLite3_Exec(db, Command, CallBack, Null, Null) |
| Function CallBack:Int(user_data:Byte Ptr, num_cols:Int, value:Byte Ptr Ptr, column_name:Byte Ptr Ptr) |
| Return 0 End Function |
| Function CallBack:Int(user_data:Byte Ptr, num_cols:Int, value_name:Byte Ptr Ptr, column_name:Byte Ptr Ptr) For Local i:Int=0 Until num_cols Print String.FromCString(Column_name[i])+": "+String.FromCString(value_name[i]) Next Return 0 End Function |
| SQLite3_Close(db) End |