Created
October 5, 2018 22:18
-
-
Save Mandorlo/24d42a0113fa80933c65b281905635bb to your computer and use it in GitHub Desktop.
Librairie pour SQLITE nécessite d'avoir quelque part les fichiers sqlite3.dll, SQLite3_StdCall.dll, sqlite3.exe (option)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
' Notes: | |
' Microsoft uses UTF-16, little endian byte order. | |
Private Const JULIANDAY_OFFSET As Double = 2415018.5 | |
' Returned from SQLite3Initialize | |
Public Const SQLITE_INIT_OK As Long = 0 | |
Public Const SQLITE_INIT_ERROR As Long = 1 | |
' SQLite data types | |
Public Const SQLITE_INTEGER As Long = 1 | |
Public Const SQLITE_FLOAT As Long = 2 | |
Public Const SQLITE_TEXT As Long = 3 | |
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_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 | |
Public Const SQLITE_ABORT As Long = 4 ' Callback routine requested an abort | |
Public Const SQLITE_BUSY As Long = 5 ' The database file is locked | |
Public Const SQLITE_LOCKED As Long = 6 ' A table in the database is locked | |
Public Const SQLITE_NOMEM As Long = 7 ' A malloc() failed | |
Public Const SQLITE_READONLY As Long = 8 ' Attempt to write a readonly database | |
Public Const SQLITE_INTERRUPT As Long = 9 ' Operation terminated by sqlite3_interrupt() | |
Public Const SQLITE_IOERR As Long = 10 ' Some kind of disk I/O error occurred | |
Public Const SQLITE_CORRUPT As Long = 11 ' The database disk image is malformed | |
Public Const SQLITE_NOTFOUND As Long = 12 ' NOT USED. Table or record not found | |
Public Const SQLITE_FULL As Long = 13 ' Insertion failed because database is full | |
Public Const SQLITE_CANTOPEN As Long = 14 ' Unable to open the database file | |
Public Const SQLITE_PROTOCOL As Long = 15 ' NOT USED. Database lock protocol error | |
Public Const SQLITE_EMPTY As Long = 16 ' Database is empty | |
Public Const SQLITE_SCHEMA As Long = 17 ' The database schema changed | |
Public Const SQLITE_TOOBIG As Long = 18 ' String or BLOB exceeds size limit | |
Public Const SQLITE_CONSTRAINT As Long = 19 ' Abort due to constraint violation | |
Public Const SQLITE_MISMATCH As Long = 20 ' Data type mismatch | |
Public Const SQLITE_MISUSE As Long = 21 ' Library used incorrectly | |
Public Const SQLITE_NOLFS As Long = 22 ' Uses OS features not supported on host | |
Public Const SQLITE_AUTH As Long = 23 ' Authorization denied | |
Public Const SQLITE_FORMAT As Long = 24 ' Auxiliary database format error | |
Public Const SQLITE_RANGE As Long = 25 ' 2nd parameter to sqlite3_bind out of range | |
Public Const SQLITE_NOTADB As Long = 26 ' File opened that is not a database file | |
Public Const SQLITE_ROW As Long = 100 ' sqlite3_step() has another row ready | |
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_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)) | |
Public Const SQLITE_IOERR_DIR_FSYNC As Long = 1290 '(SQLITE_IOERR | (5<<8)) | |
Public Const SQLITE_IOERR_TRUNCATE As Long = 1546 '(SQLITE_IOERR | (6<<8)) | |
Public Const SQLITE_IOERR_FSTAT As Long = 1802 '(SQLITE_IOERR | (7<<8)) | |
Public Const SQLITE_IOERR_UNLOCK As Long = 2058 '(SQLITE_IOERR | (8<<8)) | |
Public Const SQLITE_IOERR_RDLOCK As Long = 2314 '(SQLITE_IOERR | (9<<8)) | |
Public Const SQLITE_IOERR_DELETE As Long = 2570 '(SQLITE_IOERR | (10<<8)) | |
Public Const SQLITE_IOERR_BLOCKED As Long = 2826 '(SQLITE_IOERR | (11<<8)) | |
Public Const SQLITE_IOERR_NOMEM As Long = 3082 '(SQLITE_IOERR | (12<<8)) | |
Public Const SQLITE_IOERR_ACCESS As Long = 3338 '(SQLITE_IOERR | (13<<8)) | |
Public Const SQLITE_IOERR_CHECKRESERVEDLOCK As Long = 3594 '(SQLITE_IOERR | (14<<8)) | |
Public Const SQLITE_IOERR_LOCK As Long = 3850 '(SQLITE_IOERR | (15<<8)) | |
Public Const SQLITE_IOERR_CLOSE As Long = 4106 '(SQLITE_IOERR | (16<<8)) | |
Public Const SQLITE_IOERR_DIR_CLOSE As Long = 4362 '(SQLITE_IOERR | (17<<8)) | |
Public Const SQLITE_LOCKED_SHAREDCACHE As Long = 265 '(SQLITE_LOCKED | (1<<8) ) | |
' Flags For File Open Operations | |
Public Const SQLITE_OPEN_READONLY As Long = 1 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_READWRITE As Long = 2 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_CREATE As Long = 4 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_DELETEONCLOSE As Long = 8 ' VFS only | |
Public Const SQLITE_OPEN_EXCLUSIVE As Long = 16 ' VFS only | |
Public Const SQLITE_OPEN_AUTOPROXY As Long = 32 ' VFS only | |
Public Const SQLITE_OPEN_URI As Long = 64 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_MEMORY As Long = 128 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_MAIN_DB As Long = 256 ' VFS only | |
Public Const SQLITE_OPEN_TEMP_DB As Long = 512 ' VFS only | |
Public Const SQLITE_OPEN_TRANSIENT_DB As Long = 1024 ' VFS only | |
Public Const SQLITE_OPEN_MAIN_JOURNAL As Long = 2048 ' VFS only | |
Public Const SQLITE_OPEN_TEMP_JOURNAL As Long = 4096 ' VFS only | |
Public Const SQLITE_OPEN_SUBJOURNAL As Long = 8192 ' VFS only | |
Public Const SQLITE_OPEN_MASTER_JOURNAL As Long = 16384 ' VFS only | |
Public Const SQLITE_OPEN_NOMUTEX As Long = 32768 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_FULLMUTEX As Long = 65536 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_SHAREDCACHE As Long = 131072 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_PRIVATECACHE As Long = 262144 ' Ok for sqlite3_open_v2() | |
Public Const SQLITE_OPEN_WAL As Long = 524288 ' VFS only | |
' Options for Text and Blob binding | |
Private Const SQLITE_STATIC As Long = 0 | |
Private Const SQLITE_TRANSIENT As Long = -1 | |
' System calls | |
Private Const CP_UTF8 As Long = 65001 | |
#If Win64 Then | |
Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As LongPtr, ByVal cbMultiByte As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long) As Long | |
Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, ByVal lpMultiByteStr As LongPtr, ByVal cbMultiByte As Long, ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As Long | |
Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (ByVal pDest As LongPtr, ByVal pSource As LongPtr, ByVal length As Long) | |
Private Declare PtrSafe Function lstrcpynW Lib "kernel32" (ByVal pwsDest As LongPtr, ByVal pwsSource As LongPtr, ByVal cchCount As Long) As LongPtr | |
Private Declare PtrSafe Function lstrcpyW Lib "kernel32" (ByVal pwsDest As LongPtr, ByVal pwsSource As LongPtr) As LongPtr | |
Private Declare PtrSafe Function lstrlenW Lib "kernel32" (ByVal pwsString As LongPtr) As Long | |
Private Declare PtrSafe Function SysAllocString Lib "OleAut32" (ByRef pwsString As LongPtr) As LongPtr | |
Private Declare PtrSafe Function SysStringLen Lib "OleAut32" (ByVal bstrString As LongPtr) As Long | |
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr | |
Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long | |
#Else | |
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 | |
Private Declare Function SysAllocString Lib "OleAut32" (ByRef pwsString As Long) As Long | |
Private Declare Function SysStringLen Lib "OleAut32" (ByVal bstrString As Long) As Long | |
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long | |
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long | |
#End If | |
'===================================================================================== | |
' SQLite StdCall Imports | |
'----------------------- | |
#If Win64 Then | |
' SQLite library version | |
Private Declare PtrSafe Function sqlite3_libversion Lib "SQLite3" () As LongPtr ' PtrUtf8String | |
' Database connections | |
Private Declare PtrSafe Function sqlite3_open16 Lib "SQLite3" (ByVal pwsFileName As LongPtr, ByRef hDb As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_open_v2 Lib "SQLite3" (ByVal pwsFileName As LongPtr, ByRef hDb As LongPtr, ByVal iFlags As Long, ByVal zVfs As LongPtr) As Long ' PtrDb | |
Private Declare PtrSafe Function sqlite3_close Lib "SQLite3" (ByVal hDb As LongPtr) As Long | |
' Database connection error info | |
Private Declare PtrSafe Function sqlite3_errmsg Lib "SQLite3" (ByVal hDb As LongPtr) As LongPtr ' PtrUtf8String | |
Private Declare PtrSafe Function sqlite3_errmsg16 Lib "SQLite3" (ByVal hDb As LongPtr) As LongPtr ' PtrUtf16String | |
Private Declare PtrSafe Function sqlite3_errcode Lib "SQLite3" (ByVal hDb As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_extended_errcode Lib "SQLite3" (ByVal hDb As LongPtr) As Long | |
' Database connection change counts | |
Private Declare PtrSafe Function sqlite3_changes Lib "SQLite3" (ByVal hDb As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_total_changes Lib "SQLite3" (ByVal hDb As LongPtr) As Long | |
' Statements | |
Private Declare PtrSafe Function sqlite3_prepare16_v2 Lib "SQLite3" _ | |
(ByVal hDb As LongPtr, ByVal pwsSql As LongPtr, ByVal nSqlLength As Long, ByRef hStmt As LongPtr, ByVal ppwsTailOut As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_step Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_reset Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_finalize Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
' Statement column access (0-based indices) | |
Private Declare PtrSafe Function sqlite3_column_count Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_column_type Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As Long | |
Private Declare PtrSafe Function sqlite3_column_name Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrString | |
Private Declare PtrSafe Function sqlite3_column_name16 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrWString | |
Private Declare PtrSafe Function sqlite3_column_blob Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrData | |
Private Declare PtrSafe Function sqlite3_column_bytes Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As Long | |
Private Declare PtrSafe Function sqlite3_column_bytes16 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As Long | |
Private Declare PtrSafe Function sqlite3_column_double Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As Double | |
Private Declare PtrSafe Function sqlite3_column_int Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As Long | |
Private Declare PtrSafe Function sqlite3_column_int64 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongLong | |
Private Declare PtrSafe Function sqlite3_column_text Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrString | |
Private Declare PtrSafe Function sqlite3_column_text16 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrWString | |
Private Declare PtrSafe Function sqlite3_column_value Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal iCol As Long) As LongPtr ' PtrSqlite3Value | |
' Statement parameter binding (1-based indices!) | |
Private Declare PtrSafe Function sqlite3_bind_parameter_count Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_bind_parameter_name Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long) As LongPtr | |
Private Declare PtrSafe Function sqlite3_bind_parameter_index Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramName As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_bind_null Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long) As Long | |
Private Declare PtrSafe Function sqlite3_bind_blob Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal pValue As LongPtr, ByVal nBytes As Long, ByVal pfDelete As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_bind_zeroblob Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal nBytes As Long) As Long | |
Private Declare PtrSafe Function sqlite3_bind_double Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal Value As Double) As Long | |
Private Declare PtrSafe Function sqlite3_bind_int Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal Value As Long) As Long | |
Private Declare PtrSafe Function sqlite3_bind_int64 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal Value As LongLong) As Long | |
Private Declare PtrSafe Function sqlite3_bind_text Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal psValue As LongPtr, ByVal nBytes As Long, ByVal pfDelete As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_bind_text16 Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal pswValue As LongPtr, ByVal nBytes As Long, ByVal pfDelete As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_bind_value Lib "SQLite3" (ByVal hStmt As LongPtr, ByVal paramIndex As Long, ByVal pSqlite3Value As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_clear_bindings Lib "SQLite3" (ByVal hStmt As LongPtr) As Long | |
'Backup | |
Private Declare PtrSafe Function sqlite3_sleep Lib "SQLite3" (ByVal msToSleep As Long) As Long | |
Private Declare PtrSafe Function sqlite3_backup_init Lib "SQLite3" (ByVal hDbDest As LongPtr, ByVal zDestName As LongPtr, ByVal hDbSource As LongPtr, ByVal zSourceName As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_backup_step Lib "SQLite3" (ByVal hBackup As LongPtr, ByVal nPage As Long) As Long | |
Private Declare PtrSafe Function sqlite3_backup_finish Lib "SQLite3" (ByVal hBackup As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_backup_remaining Lib "SQLite3" (ByVal hBackup As LongPtr) As Long | |
Private Declare PtrSafe Function sqlite3_backup_pagecount Lib "SQLite3" (ByVal hBackup As LongPtr) As Long | |
#Else | |
' SQLite library version | |
Private Declare Function sqlite3_libversion Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_libversion@0" () As Long ' PtrUtf8String | |
' Database connections | |
Private Declare Function sqlite3_open16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_open16@8" (ByVal pwsFileName As Long, ByRef hDb As Long) As Long ' PtrDb | |
Private Declare Function sqlite3_open_v2 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_open_v2@16" (ByVal pwsFileName As Long, ByRef hDb As Long, ByVal iFlags As Long, ByVal zVfs As Long) As Long ' PtrDb | |
Private Declare Function sqlite3_close Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_close@4" (ByVal hDb As Long) As Long | |
' Database connection error info | |
Private Declare Function sqlite3_errmsg Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_errmsg@4" (ByVal hDb As Long) As Long ' PtrUtf8String | |
Private Declare Function sqlite3_errmsg16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_errmsg16@4" (ByVal hDb As Long) As Long ' PtrUtf16String | |
Private Declare Function sqlite3_errcode Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_errcode@4" (ByVal hDb As Long) As Long | |
Private Declare Function sqlite3_extended_errcode Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_extended_errcode@4" (ByVal hDb As Long) As Long | |
' Database connection change counts | |
Private Declare Function sqlite3_changes Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_changes@4" (ByVal hDb As Long) As Long | |
Private Declare Function sqlite3_total_changes Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_total_changes@4" (ByVal hDb As Long) As Long | |
' Statements | |
Private Declare Function sqlite3_prepare16_v2 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_prepare16_v2@20" _ | |
(ByVal hDb As Long, ByVal pwsSql As Long, ByVal nSqlLength As Long, ByRef hStmt As Long, ByVal ppwsTailOut As Long) As Long | |
Private Declare Function sqlite3_step Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_step@4" (ByVal hStmt As Long) As Long | |
Private Declare Function sqlite3_reset Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_reset@4" (ByVal hStmt As Long) As Long | |
Private Declare Function sqlite3_finalize Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_finalize@4" (ByVal hStmt As Long) As Long | |
' Statement column access (0-based indices) | |
Private Declare Function sqlite3_column_count Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_count@4" (ByVal hStmt As Long) As Long | |
Private Declare Function sqlite3_column_type Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_type@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long | |
Private Declare Function sqlite3_column_name Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_name@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrString | |
Private Declare Function sqlite3_column_name16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_name16@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrWString | |
Private Declare Function sqlite3_column_blob Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_blob@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrData | |
Private Declare Function sqlite3_column_bytes Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_bytes@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long | |
Private Declare Function sqlite3_column_bytes16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_bytes16@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long | |
Private Declare Function sqlite3_column_double Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_double@8" (ByVal hStmt As Long, ByVal iCol As Long) As Double | |
Private Declare Function sqlite3_column_int Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_int@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long | |
Private Declare Function sqlite3_column_int64 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_int64@8" (ByVal hStmt As Long, ByVal iCol As Long) As Currency ' UNTESTED ....? | |
Private Declare Function sqlite3_column_text Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_text@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrString | |
Private Declare Function sqlite3_column_text16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_text16@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrWString | |
Private Declare Function sqlite3_column_value Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_column_value@8" (ByVal hStmt As Long, ByVal iCol As Long) As Long ' PtrSqlite3Value | |
' Statement parameter binding (1-based indices!) | |
Private Declare Function sqlite3_bind_parameter_count Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_parameter_count@4" (ByVal hStmt As Long) As Long | |
Private Declare Function sqlite3_bind_parameter_name Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_parameter_name@8" (ByVal hStmt As Long, ByVal paramIndex As Long) As Long | |
Private Declare Function sqlite3_bind_parameter_index Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_parameter_index@8" (ByVal hStmt As Long, ByVal paramName As Long) As Long | |
Private Declare Function sqlite3_bind_null Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_null@8" (ByVal hStmt As Long, ByVal paramIndex As Long) As Long | |
Private Declare Function sqlite3_bind_blob Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_blob@20" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal pValue As Long, ByVal nBytes As Long, ByVal pfDelete As Long) As Long | |
Private Declare Function sqlite3_bind_zeroblob Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_zeroblob@12" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal nBytes As Long) As Long | |
Private Declare Function sqlite3_bind_double Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_double@16" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal Value As Double) As Long | |
Private Declare Function sqlite3_bind_int Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_int@12" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal Value As Long) As Long | |
Private Declare Function sqlite3_bind_int64 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_int64@16" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal Value As Currency) As Long ' UNTESTED ....? | |
Private Declare Function sqlite3_bind_text Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_text@20" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal psValue As Long, ByVal nBytes As Long, ByVal pfDelete As Long) As Long | |
Private Declare Function sqlite3_bind_text16 Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_text16@20" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal pswValue As Long, ByVal nBytes As Long, ByVal pfDelete As Long) As Long | |
Private Declare Function sqlite3_bind_value Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_bind_value@12" (ByVal hStmt As Long, ByVal paramIndex As Long, ByVal pSqlite3Value As Long) As Long | |
Private Declare Function sqlite3_clear_bindings Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_clear_bindings@4" (ByVal hStmt As Long) As Long | |
'Backup | |
Private Declare Function sqlite3_sleep Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_sleep@4" (ByVal msToSleep As Long) As Long | |
Private Declare Function sqlite3_backup_init Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_backup_init@16" (ByVal hDbDest As Long, ByVal zDestName As Long, ByVal hDbSource As Long, ByVal zSourceName As Long) As Long | |
Private Declare Function sqlite3_backup_step Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_backup_step@8" (ByVal hBackup As Long, ByVal nPage As Long) As Long | |
Private Declare Function sqlite3_backup_finish Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_backup_finish@4" (ByVal hBackup As Long) As Long | |
Private Declare Function sqlite3_backup_remaining Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_backup_remaining@4" (ByVal hBackup As Long) As Long | |
Private Declare Function sqlite3_backup_pagecount Lib "SQLite3_StdCall" Alias "_sqlite3_stdcall_backup_pagecount@4" (ByVal hBackup As Long) As Long | |
#End If | |
'===================================================================================== | |
' Initialize - load libraries explicitly | |
#If Win64 Then | |
Private hSQLiteLibrary As LongPtr | |
Private hSQLiteStdCallLibrary As LongPtr | |
#Else | |
Private hSQLiteLibrary As Long | |
Private hSQLiteStdCallLibrary As Long | |
#End If | |
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 & "\" | |
If hSQLiteLibrary = 0 Then | |
hSQLiteLibrary = LoadLibrary(libDir + "SQLite3.dll") | |
If hSQLiteLibrary = 0 Then | |
Debug.Print "SQLite3Initialize Error Loading " + libDir + "SQLite3.dll:", Err.LastDllError | |
SQLite3Initialize = SQLITE_INIT_ERROR | |
Exit Function | |
End If | |
End If | |
#If Win64 Then | |
#Else | |
If hSQLiteStdCallLibrary = 0 Then | |
hSQLiteStdCallLibrary = LoadLibrary(libDir + "SQLite3_StdCall.dll") | |
If hSQLiteStdCallLibrary = 0 Then | |
Debug.Print "SQLite3Initialize Error Loading " + libDir + "SQLite3_StdCall.dll:", Err.LastDllError | |
SQLite3Initialize = SQLITE_INIT_ERROR | |
Exit Function | |
End If | |
End If | |
#End If | |
SQLite3Initialize = SQLITE_INIT_OK | |
End Function | |
Public Sub SQLite3Free() | |
If hSQLiteLibrary <> 0 Then | |
FreeLibrary hSQLiteLibrary | |
End If | |
If hSQLiteStdCallLibrary <> 0 Then | |
FreeLibrary hSQLiteStdCallLibrary | |
End If | |
End Sub | |
'===================================================================================== | |
' SQLite library version | |
Public Function SQLite3LibVersion() As String | |
SQLite3LibVersion = Utf8PtrToString(sqlite3_libversion()) | |
End Function | |
'===================================================================================== | |
' Database connections | |
#If Win64 Then | |
Public Function SQLite3Open(ByVal fileName As String, ByRef dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Open(ByVal fileName As String, ByRef dbHandle As Long) As Long | |
#End If | |
SQLite3Open = sqlite3_open16(StrPtr(fileName), dbHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3OpenV2(ByVal fileName As String, ByRef dbHandle As LongPtr, ByVal flags As Long, ByVal vfsName As String) As Long | |
#Else | |
Public Function SQLite3OpenV2(ByVal fileName As String, ByRef dbHandle As Long, ByVal flags As Long, ByVal vfsName As String) As Long | |
#End If | |
Dim bufFileName() As Byte | |
Dim bufVfsName() As Byte | |
bufFileName = StringToUtf8Bytes(fileName) | |
If vfsName = Empty Then | |
SQLite3OpenV2 = sqlite3_open_v2(VarPtr(bufFileName(0)), dbHandle, flags, 0) | |
Else | |
bufVfsName = StringToUtf8Bytes(vfsName) | |
SQLite3OpenV2 = sqlite3_open_v2(VarPtr(bufFileName(0)), dbHandle, flags, VarPtr(bufVfsName(0))) | |
End If | |
End Function | |
#If Win64 Then | |
Public Function SQLite3Close(ByVal dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Close(ByVal dbHandle As Long) As Long | |
#End If | |
SQLite3Close = sqlite3_close(dbHandle) | |
End Function | |
'===================================================================================== | |
' Error information | |
#If Win64 Then | |
Public Function SQLite3ErrMsg(ByVal dbHandle As LongPtr) As String | |
#Else | |
Public Function SQLite3ErrMsg(ByVal dbHandle As Long) As String | |
#End If | |
SQLite3ErrMsg = Utf8PtrToString(sqlite3_errmsg(dbHandle)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ErrCode(ByVal dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3ErrCode(ByVal dbHandle As Long) As Long | |
#End If | |
SQLite3ErrCode = sqlite3_errcode(dbHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ExtendedErrCode(ByVal dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3ExtendedErrCode(ByVal dbHandle As Long) As Long | |
#End If | |
SQLite3ExtendedErrCode = sqlite3_extended_errcode(dbHandle) | |
End Function | |
'===================================================================================== | |
' Change Counts | |
#If Win64 Then | |
Public Function SQLite3Changes(ByVal dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Changes(ByVal dbHandle As Long) As Long | |
#End If | |
SQLite3Changes = sqlite3_changes(dbHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3TotalChanges(ByVal dbHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3TotalChanges(ByVal dbHandle As Long) As Long | |
#End If | |
SQLite3TotalChanges = sqlite3_total_changes(dbHandle) | |
End Function | |
'===================================================================================== | |
' Statements | |
#If Win64 Then | |
Public Function SQLite3PrepareV2(ByVal dbHandle As LongPtr, ByVal sql As String, ByRef stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3PrepareV2(ByVal dbHandle As Long, ByVal sql As String, ByRef stmtHandle As Long) As Long | |
#End If | |
' Only the first statement (up to ';') is prepared. Currently we don't retrieve the 'tail' pointer. | |
SQLite3PrepareV2 = sqlite3_prepare16_v2(dbHandle, StrPtr(sql), Len(sql) * 2, stmtHandle, 0) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3Step(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Step(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3Step = sqlite3_step(stmtHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3Reset(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Reset(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3Reset = sqlite3_reset(stmtHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3Finalize(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3Finalize(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3Finalize = sqlite3_finalize(stmtHandle) | |
End Function | |
'===================================================================================== | |
' Statement column access (0-based indices) | |
#If Win64 Then | |
Public Function SQLite3ColumnCount(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3ColumnCount(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3ColumnCount = sqlite3_column_count(stmtHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnType(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As Long | |
#Else | |
Public Function SQLite3ColumnType(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Long | |
#End If | |
SQLite3ColumnType = sqlite3_column_type(stmtHandle, ZeroBasedColIndex) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnName(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As String | |
#Else | |
Public Function SQLite3ColumnName(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As String | |
#End If | |
SQLite3ColumnName = Utf8PtrToString(sqlite3_column_name(stmtHandle, ZeroBasedColIndex)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnDouble(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As Double | |
#Else | |
Public Function SQLite3ColumnDouble(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Double | |
#End If | |
SQLite3ColumnDouble = sqlite3_column_double(stmtHandle, ZeroBasedColIndex) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnInt32(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As Long | |
#Else | |
Public Function SQLite3ColumnInt32(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Long | |
#End If | |
SQLite3ColumnInt32 = sqlite3_column_int(stmtHandle, ZeroBasedColIndex) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnText(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As String | |
#Else | |
Public Function SQLite3ColumnText(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As String | |
#End If | |
SQLite3ColumnText = Utf8PtrToString(sqlite3_column_text(stmtHandle, ZeroBasedColIndex)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnDate(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As Date | |
#Else | |
Public Function SQLite3ColumnDate(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Date | |
#End If | |
SQLite3ColumnDate = FromJulianDay(sqlite3_column_double(stmtHandle, ZeroBasedColIndex)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ColumnBlob(ByVal stmtHandle As LongPtr, ByVal ZeroBasedColIndex As Long) As Byte() | |
Dim ptr As LongPtr | |
#Else | |
Public Function SQLite3ColumnBlob(ByVal stmtHandle As Long, ByVal ZeroBasedColIndex As Long) As Byte() | |
Dim ptr As Long | |
#End If | |
Dim length As Long | |
Dim buf() As Byte | |
ptr = sqlite3_column_blob(stmtHandle, ZeroBasedColIndex) | |
length = sqlite3_column_bytes(stmtHandle, ZeroBasedColIndex) | |
ReDim buf(length - 1) | |
RtlMoveMemory VarPtr(buf(0)), ptr, length | |
SQLite3ColumnBlob = buf | |
End Function | |
'===================================================================================== | |
' Statement bindings | |
#If Win64 Then | |
Public Function SQLite3BindText(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long, ByVal Value As String) As Long | |
#Else | |
Public Function SQLite3BindText(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByVal Value As String) As Long | |
#End If | |
SQLite3BindText = sqlite3_bind_text16(stmtHandle, OneBasedParamIndex, StrPtr(Value), -1, SQLITE_TRANSIENT) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindDouble(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long, ByVal Value As Double) As Long | |
#Else | |
Public Function SQLite3BindDouble(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByVal Value As Double) As Long | |
#End If | |
SQLite3BindDouble = sqlite3_bind_double(stmtHandle, OneBasedParamIndex, Value) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindInt32(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long, ByVal Value As Long) As Long | |
#Else | |
Public Function SQLite3BindInt32(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByVal Value As Long) As Long | |
#End If | |
SQLite3BindInt32 = sqlite3_bind_int(stmtHandle, OneBasedParamIndex, Value) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindDate(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long, ByVal Value As Date) As Long | |
#Else | |
Public Function SQLite3BindDate(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByVal Value As Date) As Long | |
#End If | |
SQLite3BindDate = sqlite3_bind_double(stmtHandle, OneBasedParamIndex, ToJulianDay(Value)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindBlob(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long, ByRef Value() As Byte) As Long | |
#Else | |
Public Function SQLite3BindBlob(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long, ByRef Value() As Byte) As Long | |
#End If | |
Dim length As Long | |
length = UBound(Value) - LBound(Value) + 1 | |
SQLite3BindBlob = sqlite3_bind_blob(stmtHandle, OneBasedParamIndex, VarPtr(Value(0)), length, SQLITE_TRANSIENT) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindNull(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long) As Long | |
#Else | |
Public Function SQLite3BindNull(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long) As Long | |
#End If | |
SQLite3BindNull = sqlite3_bind_null(stmtHandle, OneBasedParamIndex) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindParameterCount(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3BindParameterCount(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3BindParameterCount = sqlite3_bind_parameter_count(stmtHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindParameterName(ByVal stmtHandle As LongPtr, ByVal OneBasedParamIndex As Long) As String | |
#Else | |
Public Function SQLite3BindParameterName(ByVal stmtHandle As Long, ByVal OneBasedParamIndex As Long) As String | |
#End If | |
SQLite3BindParameterName = Utf8PtrToString(sqlite3_bind_parameter_name(stmtHandle, OneBasedParamIndex)) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BindParameterIndex(ByVal stmtHandle As LongPtr, ByVal paramName As String) As Long | |
#Else | |
Public Function SQLite3BindParameterIndex(ByVal stmtHandle As Long, ByVal paramName As String) As Long | |
#End If | |
Dim buf() As Byte | |
buf = StringToUtf8Bytes(paramName) | |
SQLite3BindParameterIndex = sqlite3_bind_parameter_index(stmtHandle, VarPtr(buf(0))) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3ClearBindings(ByVal stmtHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3ClearBindings(ByVal stmtHandle As Long) As Long | |
#End If | |
SQLite3ClearBindings = sqlite3_clear_bindings(stmtHandle) | |
End Function | |
'===================================================================================== | |
' Backup | |
Public Function SQLite3Sleep(ByVal timeToSleepInMs As Long) As Long | |
SQLite3Sleep = sqlite3_sleep(timeToSleepInMs) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BackupInit(ByVal dbHandleDestination As LongPtr, ByVal destinationName As String, ByVal dbHandleSource As LongPtr, ByVal sourceName As String) As LongPtr | |
#Else | |
Public Function SQLite3BackupInit(ByVal dbHandleDestination As Long, ByVal destinationName As String, ByVal dbHandleSource As Long, ByVal sourceName As String) As Long | |
#End If | |
Dim bufDestinationName() As Byte | |
Dim bufSourceName() As Byte | |
bufDestinationName = StringToUtf8Bytes(destinationName) | |
bufSourceName = StringToUtf8Bytes(sourceName) | |
SQLite3BackupInit = sqlite3_backup_init(dbHandleDestination, VarPtr(bufDestinationName(0)), dbHandleSource, VarPtr(bufSourceName(0))) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BackupFinish(ByVal backupHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3BackupFinish(ByVal backupHandle As Long) As Long | |
#End If | |
SQLite3BackupFinish = sqlite3_backup_finish(backupHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BackupStep(ByVal backupHandle As LongPtr, ByVal numberOfPages) As Long | |
#Else | |
Public Function SQLite3BackupStep(ByVal backupHandle As Long, ByVal numberOfPages) As Long | |
#End If | |
SQLite3BackupStep = sqlite3_backup_step(backupHandle, numberOfPages) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BackupPageCount(ByVal backupHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3BackupPageCount(ByVal backupHandle As Long) As Long | |
#End If | |
SQLite3BackupPageCount = sqlite3_backup_pagecount(backupHandle) | |
End Function | |
#If Win64 Then | |
Public Function SQLite3BackupRemaining(ByVal backupHandle As LongPtr) As Long | |
#Else | |
Public Function SQLite3BackupRemaining(ByVal backupHandle As Long) As Long | |
#End If | |
SQLite3BackupRemaining = sqlite3_backup_remaining(backupHandle) | |
End Function | |
' String Helpers | |
#If Win64 Then | |
Function Utf8PtrToString(ByVal pUtf8String As LongPtr) As String | |
#Else | |
Function Utf8PtrToString(ByVal pUtf8String As Long) As String | |
#End If | |
Dim buf As String | |
Dim cSize As Long | |
Dim RetVal As Long | |
cSize = MultiByteToWideChar(CP_UTF8, 0, pUtf8String, -1, 0, 0) | |
' cSize includes the terminating null character | |
If cSize <= 1 Then | |
Utf8PtrToString = "" | |
Exit Function | |
End If | |
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 | |
End If | |
End Function | |
Function StringToUtf8Bytes(ByVal str As String) As Variant | |
Dim bSize As Long | |
Dim RetVal As Long | |
Dim buf() As Byte | |
bSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), -1, 0, 0, 0, 0) | |
If bSize = 0 Then | |
Exit Function | |
End If | |
ReDim buf(bSize) | |
RetVal = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), -1, VarPtr(buf(0)), bSize, 0, 0) | |
If RetVal = 0 Then | |
Debug.Print "StringToUtf8Bytes Error:", Err.LastDllError | |
Exit Function | |
End If | |
StringToUtf8Bytes = buf | |
End Function | |
#If Win64 Then | |
Function Utf16PtrToString(ByVal pUtf16String As LongPtr) As String | |
#Else | |
Function Utf16PtrToString(ByVal pUtf16String As Long) As String | |
#End If | |
Dim StrLen As Long | |
StrLen = lstrlenW(pUtf16String) | |
Utf16PtrToString = String(StrLen, "*") | |
lstrcpynW StrPtr(Utf16PtrToString), pUtf16String, StrLen | |
End Function | |
' Date Helpers | |
Public Function ToJulianDay(oleDate As Date) As Double | |
ToJulianDay = CDbl(oleDate) + JULIANDAY_OFFSET | |
End Function | |
Public Function FromJulianDay(julianDay As Double) As Date | |
FromJulianDay = CDate(julianDay - JULIANDAY_OFFSET) | |
End Function |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment