* Added (non-incremental) Blob access, and small test.

* Add support for 64-bit Excel 2010. 
  The SQLiteForExcel_64.xlsm has VBA code that supports 32-bit and 64-bit versions of Excel.
* Updated Distribution version of SQLite3.dll to 3.7.13 and added x64\SQLite3.dll.

Author: govert_cp

Distribution/ChangeLog.txt

@@ -1,3 +1,10 @@
+Version 0.8 (24 July 2012)
+==========================
+* Added (non-incremental) Blob access, and small test.
+* Add support for 64-bit Excel 2010. 
+  The SQLiteForExcel_64.xlsm has VBA code that supports 32-bit and 64-bit versions of Excel.
+* Updated Distribution version of SQLite3.dll to 3.7.13 and added x64\SQLite3.dll.
+
 Version 0.7 (25 June 2011)
 ==========================
 * Fixed Unicode string conversion bug.

Distribution/SQLiteForExcel.xls

@@ -76,6 +76,7 @@ Private Const SQLITE_TRANSIENT   As Long = -1
 Private Const CP_UTF8 As Long = 65001
 Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
 Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
+Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDest As Long, ByVal pSource As Long, ByVal length As Long)
 Private Declare Function lstrcpynW Lib "kernel32" (ByVal pwsDest As Long, ByVal pwsSource As Long, ByVal cchCount As Long) As Long
 Private Declare Function lstrcpyW Lib "kernel32" (ByVal pwsDest As Long, ByVal pwsSource As Long) As Long
 Private Declare Function lstrlenW Lib "kernel32" (ByVal pwsString As Long) As Long
@@ -282,6 +283,18 @@ Public Function SQLite3ColumnDate(ByVal stmtHandle As Long, ByVal ZeroBasedColIn
     SQLite3ColumnDate = FromJulianDay(sqlite3_stdcall_column_double(stmtHandle, ZeroBasedColIndex))
 End Function
 
+Public Function SQLite3ColumnBlob(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Byte()
+    Dim ptr As Long
+    Dim length As Long
+    Dim buf() As Byte
+    
+    ptr = sqlite3_stdcall_column_blob(stmtHandle, ZeroBasedColIndex)
+    length = sqlite3_stdcall_column_bytes(stmtHandle, ZeroBasedColIndex)
+    ReDim buf(length - 1)
+    RtlMoveMemory VarPtr(buf(0)), ptr, length
+    SQLite3ColumnBlob = buf
+End Function
+
 '=====================================================================================
 ' Statement bindings
 
@@ -301,6 +314,12 @@ Public Function SQLite3BindDate(ByVal stmtHandle As Long, ByVal OneBasedParamInd
     SQLite3BindDate = sqlite3_stdcall_bind_double(stmtHandle, OneBasedParamIndex, ToJulianDay(Value))
 End Function
 
+Public Function SQLite3BindBlob(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByRef Value() As Byte) As Long
+    Dim length As Long
+    length = UBound(Value) - LBound(Value) + 1
+    SQLite3BindBlob = sqlite3_stdcall_bind_blob(stmtHandle, OneBasedParamIndex, VarPtr(Value(0)), length, SQLITE_TRANSIENT)
+End Function
+
 Public Function SQLite3BindNull(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long) As Long
     SQLite3BindNull = sqlite3_stdcall_bind_null(stmtHandle, OneBasedParamIndex)
 End Function

Distribution/SQLiteForExcel_64.xlsm

@@ -19,6 +19,7 @@ Public Sub AllTests()
     TestDates
     TestStrings
     TestBackup
+    TestBlob
     SQLite3Free ' Quite optional
 End Sub
 
@@ -850,6 +851,7 @@ Public Sub TestStrings()
 
     Dim myString1 As String
     Dim myString2 As String
+    Dim myLongString As String
     Dim myStringResult As String
 
     Debug.Print "----- TestStrings Start -----"
@@ -860,6 +862,7 @@ Public Sub TestStrings()
     Debug.Print "SQLite3Open returned " & RetVal
 
     myString2 = ""
+    myLongString = String(10000, "A")
 
     '------------------------
     ' Create the table
@@ -907,6 +910,23 @@ Public Sub TestStrings()
         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, myLongString)
+    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
@@ -937,6 +957,16 @@ Public Sub TestStrings()
         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 "Long String is the same: " & (myStringResult = myLongString)
+    ElseIf RetVal = SQLITE_DONE Then
+        Debug.Print "No row found"
+    End If
+    
     ' Finalize (delete) the statement
     RetVal = SQLite3Finalize(myStmtHandle)
     Debug.Print "SQLite3Finalize returned " & RetVal
@@ -997,6 +1027,93 @@ Public Sub TestBackup()
     Debug.Print "----- TestBackup End -----"
 End Sub
 
+Public Sub TestBlob()
+    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 myBlob(2) As Byte
+    Dim myBlobResult() As Byte
+    
+    Debug.Print "----- TestBlob Start -----"
+    
+    ' Open the database - getting a DbHandle back
+    testFile = "C:\TestSqlite3ForExcel.db3"
+    RetVal = SQLite3Open(testFile, myDbHandle)
+    Debug.Print "SQLite3Open returned " & RetVal
+    
+    myBlob(0) = 90
+    myBlob(1) = 91
+    myBlob(2) = 92
+    
+    '------------------------
+    ' Create the table
+    ' ================
+    ' (I've got no error checking here...)
+    SQLite3ExecuteNonQuery myDbHandle, "CREATE TABLE MyBlobTable (MyValue BLOB)"
+    
+    '-------------------------
+    ' Prepare an insert statement with parameters
+    ' ===============
+    ' Create the sql statement - getting a StmtHandle back
+    RetVal = SQLite3PrepareV2(myDbHandle, "INSERT INTO MyBlobTable Values (@SomeString)", myStmtHandle)
+    If RetVal <> SQLITE_OK Then
+        Debug.Print "SQLite3PrepareV2 returned " & SQLite3ErrMsg(myDbHandle)
+        Beep
+    End If
+    
+    RetVal = SQLite3BindBlob(myStmtHandle, 1, myBlob)
+    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 MyBlobTable", myStmtHandle)
+    Debug.Print "SQLite3PrepareV2 returned " & RetVal
+    
+    RetVal = SQLite3Step(myStmtHandle)
+    If RetVal = SQLITE_ROW Then
+        ' We have access to the result columns here.
+        myBlobResult = SQLite3ColumnBlob(myStmtHandle, 0)
+        For i = LBound(myBlobResult) To UBound(myBlobResult)
+            Debug.Print "Blob byte " & i & ": " & myBlobResult(i)
+        Next
+    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 "----- TestBlob End -----"
+End Sub
+
+
+
 ' SQLite3 Helper Functions
 Public Function SQLite3ExecuteNonQuery(ByVal dbHandle As Long, ByVal SqlCommand As String) As Long
     Dim stmtHandle As Long