|
.版本 2
.支持库 mysql
' =============== 数据库模块 ===============
.子程序 初始化数据库
.局部变量 返回值, 整数型
.局部变量 sSQL, 文本型
' 连接MySQL数据库
返回值 = 连接MySql (“localhost”, “root”, “password”, “seat_db”, 3306)
.如果真 (返回值 ≠ 0)
信息框 (“连接数据库失败:” + 到文本 (取错误码 ()) + #换行符 + 取错误信息 (), 0, , )
结束 ()
.如果真结束
' 创建表
sSQL = “CREATE TABLE IF NOT EXISTS projects(” + #换行符 + “id INT AUTO_INCREMENT PRIMARY KEY,” + #换行符 + “project_name VARCHAR(255) NOT NULL,” + #换行符 + “allocate_time DATETIME NOT NULL,” + #换行符 + “seat_info TEXT NOT NULL);”
.如果真 (执行SQL语句 (数据库句柄, sSQL) = 假)
信息框 (“创建表失败:错误代码:” + 到文本 (取错误码 ()) + #换行符 + 取错误信息 (), 0, , ) ‘这里报错
返回 ()
.如果真结束
信息框 (“数据库和表初始化成功!”, 0, , )
还有 信息框 错误提示好像也有问题
如果板块不对请版主删帖
|
|