freebasic sqlite数据库 实例

FreeBasic 是一种免费的、开源的编程语言，它支持多种数据库，包括SQLite。下面是一个使用FreeBasic 连接SQLite 数据库的示例代码：

freebasic复制代码

#include

DECLARE_DB_HANDLE(db_handle)

sub main()

db_init()

db_open(db_handle, "test.db", sqlite3_OPEN_READWRITE)

IF NOT db_handle IS NOT DB_OK THEN

print "Failed to open database: " + db_error(db_handle)

db_close(db_handle)

RETURN

END IF

-- 执行 SQL 查询

db_exec(db_handle, "CREATE TABLE IF NOT EXISTS users (id INTEGER PRIMARY KEY, name TEXT, email TEXT)")

db_exec(db_handle,"INSERTINTOusers(name,email)VALUES('JohnDoe','********************')")

-- 获取查询结果

Dim stmt As sqlite3_stmt

db_prepare(db_handle, stmt, "SELECT * FROM users")

Dim row As sqlite3_stmt, col As Integer

WHILE sqlite3_step(stmt) = sqlite3_ROW DO

row = stmt

FOR col = 0 TO sqlite3_column_count(stmt) - 1 DO

print sqlite3_column_text(row, col) + " | "

NEXT col

print ""

END WHILE

sqlite3_finalize(stmt)

-- 关闭数据库连接

db_close(db_handle)

END sub

在这个示例中，我们首先使用db_init()初始化SQLite 库，然后使用db_open()打开一个名为test.db的SQLite 数据库。如果打开失败，则输出错误信息并退出程序。接下来，我们使用db_exec()执行SQL 查询语句来创建一个名为users的表，并向其中插入一条记录。然后，我们使用db_prepare()和sqlite3_step()函数来执行一个查询语句，并使用sqlite3_column_text()函数获取查询结果中的文本数据。最后，我们使用db_close()关闭数据库连接。