浏览代码

Added sqlitetest banana.

Mark Sibly 9 年之前
父节点
当前提交
4387f1b823
共有 1 个文件被更改,包括 38 次插入0 次删除
  1. 38 0
      bananas/sqlitetest/sqlitetest.monkey2

+ 38 - 0
bananas/sqlitetest/sqlitetest.monkey2

@@ -0,0 +1,38 @@
+
+'Based on C code at: http://zetcode.com/db/sqlitec/
+'
+#Import "<sqlite>"
+
+Using sqlite..
+
+Function Main()
+
+	Print sqlite3_version
+
+	Print sqlite3_libversion()
+	
+	Local rc:Int
+	Local db:sqlite3 Ptr
+	Local res:sqlite3_stmt Ptr
+
+	rc=sqlite3_open( ":memory:",Varptr db )
+	If rc<>SQLITE_OK
+    	Print "Failed to open DB: "+sqlite3_errmsg( db )
+        sqlite3_close( db )
+		Return
+	Endif
+	
+    rc=sqlite3_prepare_v2( db,"SELECT SQLITE_VERSION()",-1,Varptr res,Null )
+    If rc<>SQLITE_OK
+    	Print "Failed to fetch data: "+sqlite3_errmsg( db )
+        sqlite3_close( db )
+    	Return
+    Endif
+    
+    rc=sqlite3_step( res )
+    If rc=SQLITE_ROW Print sqlite3_column_text( res,0 )
+    
+    sqlite3_finalize( res )
+    sqlite3_close( db )
+    
+End