PureBasic数据库连接实例

PureBasic 是一种面向对象和过程式的编程语言，广泛应用于各种应用开发中。它支持多种数据库类型，并提供了方便的API用于进行数据库操作。本文将通过一个具体的例子来展示如何使用PureBasic连接并操作MySQL数据库。

环境准备

在开始之前，请确保已安装以下软件：

• PureBasic 5.72 或更高版本
• MySQL 数据库服务器（推荐使用5.7或更高版本）

此外，还需下载相应的数据库驱动文件。可以在官网或其他可靠来源获取 MySQL 的 libmysql.dll。

示例代码

接下来将展示一个简单的PureBasic程序，实现与MySQL数据库的连接、插入数据并查询数据的功能。以下是具体的代码实例：

; 引入必要的库
IncludeFile "database"

; 定义常量
#MYSQL_SERVER = "127.0.0.1"
#MYSQL_USER = "root"
#MYSQL_PASSWD = ""
#MYSQL_DB = "testdb"
#MYSQL_PORT = 3306

; 初始化数据库连接
Procedure InitDB()
    Dim dbHandle% 
    dbHandle = OpenDatabase(#MYSQL_SERVER, #MYSQL_USER, #MYSQL_PASSWD, #MYSQL_DB, #MYSQL_PORT)
    If dbHandle <= 0
        PrintN("无法建立与数据库的连接")
        Quit() ; 停止程序执行
    EndIf
EndProcedure

; 插入数据函数
Procedure InsertData()
    Dim query$ = "INSERT INTO users (username, email) VALUES ('张三', 'zhangsan@example.com')"
    If ExecuteQuery(query)
        PrintN("插入成功")
    Else
        PrintN("插入失败: " + GetLastErrorMessage())
    EndIf
EndProcedure

; 查询数据函数
Procedure QueryData()
    Dim query$ = "SELECT * FROM users"
    Dim result%, row%
    
    If OpenQuery("query", query)
        While !EOF()
            result = FetchRow()
            For row = 0 To 1 ; 假设我们只需要前两列的信息
                PrintN(Str(GetField(row)) + "\t")
            Next
            PrintN("") ; 换行
        Wend
    EndIf
EndProcedure

; 主程序入口
InitDB() ; 初始化数据库连接
InsertData() ; 插入数据记录
QueryData() ; 查询所有用户信息
CloseDatabase() ; 关闭数据库连接

代码解释

1. 初始化数据库连接：通过 OpenDatabase 函数尝试与MySQL服务器建立连接。如果连接失败，程序会输出错误信息并停止执行。
2. 插入数据函数：使用 ExecuteQuery 方法来执行插入操作的SQL语句，并根据返回结果判断是否成功。
3. 查询数据函数：利用 OpenQuery 和 FetchRow 实现对数据库表的数据读取和处理。这里的示例仅展示了如何读取并打印前两列的信息。

结语

以上就是使用PureBasic连接MySQL数据库的一个简单实例。实际应用中，根据需求的不同，可能还需要涉及更多的功能如更新、删除等操作。希望这篇教程能够帮助到初学者更好地掌握PureBasic与数据库交互的相关知识和技巧。