AlbertoGarcia escribió:
Muchas gracias, yo uso intensivamente SQLite en mis programas y también tengo alguna función de ese tipo para abrir, cerrar y ejecutar consultas,
Hola, Alberto.
No tengo solo eso, tiene más cosas, pero quería ver si había interes por aquí.
Mira acabo de incorporar esta para saber si el archivo de sqlite es válido.
// ============================================================================
// bool function SQLite_ValidFile( cFileName )
// 2021.08.30 22:13 Creacion
// Comprobar si el archivo es una base de datos SQLite válida
// ============================================================================
function SQLite_ValidFile( cFileName )
local nHandle, cBuffer as Handle
cBuffer := Space( 15 )
if File( cFileName )
nHandle := fopen( cFileName, FO_READ )
FSeek( nHandle, 0, FS_SET )
FRead( nHandle, @cBuffer, 15 )
FClose( nHandle )
endif
RETURN ( "SQLite format 3" == cBuffer )
Te iré pasando más...