SQLiteForExcel Version 0.6 with SQLite3.dll version 3.7.5.

Author: govert_cp

BuildProcessTemplates/DefaultTemplate.xaml

@@ -1,3 +1,9 @@
+Version 0.6 (8 April 2010)
+==========================
+* Fixed empty string bug.
+* Added SQLiteForWord example.
+* Updated Distribution version of SQLite3.dll to 3.7.5.
+
 Version 0.5 (6 August 2010)
 ===========================
 * Fixed Excel 2003 compatibility - Byte() return becomes Variant.

BuildProcessTemplates/UpgradeTemplate.xaml

@@ -1,4 +1,3 @@
-Attribute VB_Name = "Sqlite3"
 Option Explicit
 
 ' Notes:
@@ -360,15 +359,17 @@ Function Utf8PtrToString(ByVal pUtf8String As Long) As String
     Dim RetVal As Long
 
     cSize = MultiByteToWideChar(CP_UTF8, 0, pUtf8String, -1, 0, 0)
-    If cSize = 0 Then
+    ' cSize includes the terminating null character
+    If cSize <= 1 Then
+        Utf8PtrToString = ""
         Exit Function
     End If
 
     Utf8PtrToString = String(cSize - 1, "*")
     RetVal = MultiByteToWideChar(CP_UTF8, 0, pUtf8String, cSize - 1, StrPtr(Utf8PtrToString), cSize - 1)
     If RetVal = 0 Then
         Debug.Print "Utf8PtrToString Error:", Err.LastDllError
-        Return
+        Exit Function
     End If
 End Function
 
@@ -386,7 +387,7 @@ Function StringToUtf8Bytes(ByVal str As String) As Variant
     RetVal = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), -1, VarPtr(buf(0)), bSize, 0, 0)
     If RetVal = 0 Then
         Debug.Print "StringToUtf8Bytes Error:", Err.LastDllError
-        Return
+        Exit Function
     End If
     StringToUtf8Bytes = buf
 End Function

Distribution/ChangeLog.txt

@@ -16,9 +16,9 @@ Public Sub AllTests()
     TestInsert
     TestSelect
     TestBinding
-    'TestDates
+    TestDates
+    TestStrings
     TestBackup
-    
     SQLite3Free ' Quite optional
 End Sub
 
@@ -838,6 +838,116 @@ Public Sub TestDates()
     Debug.Print "----- TestDates End -----"
 End Sub
 
+
+Public Sub TestStrings()
+    Dim testFile As String
+    
+    Dim myDbHandle As Long
+    Dim myStmtHandle As Long
+    Dim RetVal As Long
+    Dim stepMsg As String
+    Dim i As Long
+    
+    Dim myString1 As String
+    Dim myString2 As String
+    Dim myStringResult As String
+    
+    Debug.Print "----- TestStrings Start -----"
+    
+    ' Open the database - getting a DbHandle back
+    testFile = "C:\TestSqlite3ForExcel.db3"
+    RetVal = SQLite3Open(testFile, myDbHandle)
+    Debug.Print "SQLite3Open returned " & RetVal
+    
+    myString2 = ""
+    
+    '------------------------
+    ' Create the table
+    ' ================
+    ' (I've got no error checking here...)
+    SQLite3ExecuteNonQuery myDbHandle, "CREATE TABLE MyStringTable (MyValue TEXT)"
+    
+    '-------------------------
+    ' Prepare an insert statement with parameters
+    ' ===============
+    ' Create the sql statement - getting a StmtHandle back
+    RetVal = SQLite3PrepareV2(myDbHandle, "INSERT INTO MyStringTable Values (@SomeString)", myStmtHandle)
+    If RetVal <> SQLITE_OK Then
+        Debug.Print "SQLite3PrepareV2 returned " & SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3BindText(myStmtHandle, 1, myString1)
+    If RetVal <> SQLITE_OK Then
+        Debug.Print "SQLite3Bind returned " & RetVal, SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3Step(myStmtHandle)
+    If RetVal <> SQLITE_DONE Then
+        Debug.Print "SQLite3Step returned " & RetVal, SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3Reset(myStmtHandle)
+    If RetVal <> SQLITE_OK Then
+        Debug.Print "SQLite3Reset returned " & RetVal, SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3BindText(myStmtHandle, 1, myString2)
+    If RetVal <> SQLITE_OK Then
+        Debug.Print "SQLite3Bind returned " & RetVal, SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3Step(myStmtHandle)
+    If RetVal <> SQLITE_DONE Then
+        Debug.Print "SQLite3Step returned " & RetVal, SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    ' Finalize the statement
+    RetVal = SQLite3Finalize(myStmtHandle)
+    Debug.Print "SQLite3Finalize returned " & RetVal
+
+    '-------------------------
+    ' Select statement
+    ' ===============
+    ' Create the sql statement - getting a StmtHandle back
+    ' Now using named parameters!
+    RetVal = SQLite3PrepareV2(myDbHandle, "SELECT * FROM MyStringTable", myStmtHandle)
+    Debug.Print "SQLite3PrepareV2 returned " & RetVal
+    
+    RetVal = SQLite3Step(myStmtHandle)
+    If RetVal = SQLITE_ROW Then
+        ' We have access to the result columns here.
+        myStringResult = SQLite3ColumnText(myStmtHandle, 0)
+        Debug.Print "Result1: " + myStringResult
+    ElseIf RetVal = SQLITE_DONE Then
+        Debug.Print "No row found"
+    End If
+        
+    RetVal = SQLite3Step(myStmtHandle)
+    If RetVal = SQLITE_ROW Then
+        ' We have access to the result columns here.
+        myStringResult = SQLite3ColumnText(myStmtHandle, 0)
+        Debug.Print "Result2: " + myStringResult
+    ElseIf RetVal = SQLITE_DONE Then
+        Debug.Print "No row found"
+    End If
+        
+    ' Finalize (delete) the statement
+    RetVal = SQLite3Finalize(myStmtHandle)
+    Debug.Print "SQLite3Finalize returned " & RetVal
+    
+    ' Close the database
+    RetVal = SQLite3Close(myDbHandle)
+    Kill testFile
+
+    Debug.Print "----- TestStrings End -----"
+End Sub
+
 Public Sub TestBackup()
     Dim testFile As String
     Dim testFileBackup As String

Distribution/SQLite3_StdCall.dll

@@ -23,6 +23,7 @@ sqlite3_blob_bytes
 sqlite3_blob_close
 sqlite3_blob_open
 sqlite3_blob_read
+sqlite3_blob_reopen
 sqlite3_blob_write
 sqlite3_busy_handler
 sqlite3_busy_timeout
@@ -64,6 +65,7 @@ sqlite3_create_collation16
 sqlite3_create_collation_v2
 sqlite3_create_function
 sqlite3_create_function16
+sqlite3_create_function_v2
 sqlite3_create_module
 sqlite3_create_module_v2
 sqlite3_data_count
@@ -142,16 +144,19 @@ sqlite3_result_text16le
 sqlite3_result_value
 sqlite3_result_zeroblob
 sqlite3_rollback_hook
+sqlite3_rtree_geometry_callback
 sqlite3_set_authorizer
 sqlite3_set_auxdata
 sqlite3_shutdown
 sqlite3_sleep
 sqlite3_snprintf
 sqlite3_soft_heap_limit
+sqlite3_soft_heap_limit64
 sqlite3_sourceid
 sqlite3_sql
 sqlite3_status
 sqlite3_step
+sqlite3_stmt_readonly
 sqlite3_stmt_status
 sqlite3_strnicmp
 sqlite3_table_column_metadata
@@ -180,4 +185,8 @@ sqlite3_vfs_find
 sqlite3_vfs_register
 sqlite3_vfs_unregister
 sqlite3_vmprintf
+sqlite3_vsnprintf
+sqlite3_wal_autocheckpoint
+sqlite3_wal_checkpoint
+sqlite3_wal_hook
 sqlite3_win32_mbcs_to_utf8