SQLiteForExcel version 0.7 - Fixed Unicode conversion bug displaying ***

Author: govert_cp

Distribution/ChangeLog.txt

@@ -1,4 +1,9 @@
-Version 0.6 (8 April 2010)
+Version 0.7 (25 June 2011)
+==========================
+* Fixed Unicode string conversion bug.
+* Updated Distribution version of SQLite3.dll to 3.7.7.
+
+Version 0.6 (8 April 2011)
 ==========================
 * Fixed empty string bug.
 * Added SQLiteForWord example.

Distribution/SQLite3_StdCall.dll

@@ -1,3 +1,4 @@
+Attribute VB_Name = "Sqlite3"
 Option Explicit
 
 ' Notes:
@@ -17,7 +18,7 @@ Public Const SQLITE_BLOB     As Long = 4
 Public Const SQLITE_NULL     As Long = 5
 
 ' SQLite atandard return value
-Public Const SQLITE_OK          As Long = 0    ' Successful result
+Public Const SQLITE_OK          As Long = 0   ' Successful result
 Public Const SQLITE_ERROR       As Long = 1   ' SQL error or missing database
 Public Const SQLITE_INTERNAL    As Long = 2   ' Internal logic error in SQLite
 Public Const SQLITE_PERM        As Long = 3   ' Access permission denied
@@ -48,7 +49,7 @@ Public Const SQLITE_ROW        As Long = 100  ' sqlite3_step() has another row r
 Public Const SQLITE_DONE       As Long = 101  ' sqlite3_step() has finished executing
 
 ' Extended error codes
-Public Const SQLITE_IOERR_READ               As Long = 266 ' (SQLITE_IOERR | (1<<8))
+Public Const SQLITE_IOERR_READ               As Long = 266  '(SQLITE_IOERR | (1<<8))
 Public Const SQLITE_IOERR_SHORT_READ         As Long = 522  '(SQLITE_IOERR | (2<<8))
 Public Const SQLITE_IOERR_WRITE              As Long = 778  '(SQLITE_IOERR | (3<<8))
 Public Const SQLITE_IOERR_FSYNC              As Long = 1034 '(SQLITE_IOERR | (4<<8))
@@ -152,6 +153,7 @@ Private hSQLiteLibrary As Long
 Private hSQLiteStdCallLibrary As Long
 
 Public Function SQLite3Initialize(Optional ByVal libDir As String) As Long
+    ' A nice option here is to call SetDllDirectory, but that API is only available since Windows XP SP1.
     If libDir = "" Then libDir = ThisWorkbook.Path
     If Right(libDir, 1) <> "\" Then libDir = libDir & "\"
 
@@ -365,8 +367,8 @@ Function Utf8PtrToString(ByVal pUtf8String As Long) As String
         Exit Function
     End If
 
-    Utf8PtrToString = String(cSize - 1, "*")
-    RetVal = MultiByteToWideChar(CP_UTF8, 0, pUtf8String, cSize - 1, StrPtr(Utf8PtrToString), cSize - 1)
+    Utf8PtrToString = String(cSize - 1, "*") ' and a termintating null char.
+    RetVal = MultiByteToWideChar(CP_UTF8, 0, pUtf8String, -1, StrPtr(Utf8PtrToString), cSize)
     If RetVal = 0 Then
         Debug.Print "Utf8PtrToString Error:", Err.LastDllError
         Exit Function

Distribution/SQLiteForExcel.xls

@@ -167,6 +167,7 @@ sqlite3_total_changes
 sqlite3_trace
 sqlite3_transfer_bindings
 sqlite3_update_hook
+sqlite3_uri_parameter
 sqlite3_user_data
 sqlite3_value_blob
 sqlite3_value_bytes
@@ -180,13 +181,19 @@ sqlite3_value_text16
 sqlite3_value_text16be
 sqlite3_value_text16le
 sqlite3_value_type
-sqlite3_version
 sqlite3_vfs_find
 sqlite3_vfs_register
 sqlite3_vfs_unregister
 sqlite3_vmprintf
 sqlite3_vsnprintf
+sqlite3_vtab_config
+sqlite3_vtab_on_conflict
 sqlite3_wal_autocheckpoint
 sqlite3_wal_checkpoint
+sqlite3_wal_checkpoint_v2
 sqlite3_wal_hook
 sqlite3_win32_mbcs_to_utf8
+sqlite3_win32_utf8_to_mbcs
+winCurrentTime
+winDlClose
+winDlSym