Following code is part of a "universal wrapper" to use sqlitening with other languages then Powerbasic.
Just enough to start testing.
Can anyone translate this in purebasix syntax?
Thanks
Richard
Code: Select all
; ====================================================================
; | |
; | SQLitening Universal Include |
;=============================<[ Close ]>==============================
Declare Sub sluClose lib "SQLitening.Dll" alias "slClose"
; Calls SQLitening.Dll directly.
;========================<[ Get Column Count ]>========================
Declare Function sluGetColumnCount lib "SQLitening.Dll" alias "slGetColumnCount" ( _
byval SetNumber As Long) As Long
; Calls SQLitening.Dll directly.
;==============================<[ Open ]>==============================
Declare Function sluOpen lib "SQLiteningU.Dll" alias "sluOpen" ( _
byval FileName As Long, _
byval ModChars As Long) As Long
; FileName is a pointer to a null-terminated string. If not needed you
; may pass a zero.
; ModChars is a pointer to a null-terminated string. If not needed you
; may pass a zero.
;;;==============================<[ Sel ]>===============================
Declare Function sluSel lib "SQLiteningU.Dll" alias "sluSel" ( _
byval Statement As Long, _
byval SetNumber As Long, _
byval ModChars As Long) As Long
; Statement is a pointer to a null-terminated string.
; ModChars is a pointer to a null-terminated string. If not needed you
; may pass a zero.
;
;===========================<[ Field Get ]>============================
Declare Sub sluF lib "SQLiteningU.Dll" alias "sluF" ( _
byval ColumnNumber As Long, _
byval FieldValue As Long, _
byref SizeOfFieldValue As Long, _
byval SetNumber As Long)
; FieldValue is a pointer to the memory which will receive the field value.
; A Null (hex ;00') will be added to end.
; SizeOfFieldValue is both passed and returned. Pass the size of FieldValue.
; It must be at least the size of the returning field value + 1.
; The actual length of the returing field value is returned.
; If the passed size is too small then error -13 will be raised
; and the returning length will be set to -1.
;============================<[ Get Row ]>=============================
Declare Function sluGetRow lib "SQLiteningU.Dll" alias "sluGetRow" ( _
byval SetNumber As Long, _
byval ModChars As Long) As Long
; ModChars is a pointer to a null-terminated string. If not needed you
; may pass a zero.
