source_dir/documentation/Examples/Database.pb.html · PureBasic/PureBasicPreference

代码拉取完成,页面将自动刷新

开源项目 > 其他开源 > 图书/手册/教程 &&

richgiteeai

Watch

不关注关注所有动态仅关注版本发行动态关注但不提醒动态

6 Star 9 Fork 3

PureBasic/PureBasicPreference

代码 Issues 0 Pull Requests 0 Wiki 统计流水线

服务

加入 Gitee

与超过 1400万开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)

免费加入

已有帐号? 立即登录

文件

master

分支 (1)

管理

master

克隆/下载

HTTPS SSH SVN SVN+SSH 下载ZIP

提示

下载代码请复制以下命令到终端执行

为确保你提交的代码身份被 Gitee 正确识别,请执行以下命令完成配置

git config --global user.name userName 
git config --global user.email userEmail

初次使用 SSH 协议进行代码克隆、推送等操作时,需按下述提示完成 SSH 配置

1 生成 RSA 密钥

2 获取 RSA 公钥内容,并配置到 SSH公钥中

在 Gitee 上使用 SVN,请访问使用指南

使用 HTTPS 协议时,命令行会出现如下账号密码验证步骤。基于安全考虑,Gitee 建议配置并使用私人令牌替代登录密码进行克隆、推送等操作

Username for 'https://gitee.com': userName

Password for 'https://userName@gitee.com': # 私人令牌

分支 1

标签 0

PureBasicPreference

source_dir

documentation

Examples

Database.pb.html

Database.pb.html 2.94 KB

<html><head><title>Database.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre>;
; ------------------------------------------------------------
;
; PureBasic - Database example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;

UseSQLiteDatabase()

Procedure CheckDatabaseUpdate(Database, Query$)
 Result = DatabaseUpdate(Database, Query$)
 If Result = 0
 Debug DatabaseError()
 EndIf
 
 ProcedureReturn Result
EndProcedure

DatabaseFile$ = GetTemporaryDirectory()+&quot;Database.sqlite&quot;

If CreateFile(0, DatabaseFile$)
 CloseFile(0)
 
 If OpenDatabase(0, DatabaseFile,ドル &quot;&quot;, &quot;&quot;)
 
 CheckDatabaseUpdate(0, &quot;CREATE TABLE food (name CHAR(50), weight INT)&quot;)

CheckDatabaseUpdate(0, &quot;INSERT INTO food (name, weight) VALUES ('apple', '10')&quot;)
 CheckDatabaseUpdate(0, &quot;INSERT INTO food (name, weight) VALUES ('pear', '5')&quot;)
 CheckDatabaseUpdate(0, &quot;INSERT INTO food (name, weight) VALUES ('banana', '20')&quot;)
 
 If DatabaseQuery(0, &quot;SELECT * FROM food WHERE weight &gt; 7&quot;)
 
 While NextDatabaseRow(0)
 Debug GetDatabaseString(0, 0)
 Wend
 
 FinishDatabaseQuery(0)
 EndIf
 
 CloseDatabase(0)
 Else
 Debug &quot;Can't open database !&quot;
 EndIf
Else
 Debug &quot;Can't create the database file !&quot;
EndIf
</pre>
</body></html>

一键复制编辑原始数据按行查看历史

麦壳饼提交于 2016年07月21日 13:08 +08:00 . chuci

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

<html><head><title>Database.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">; PureBasic - Database example file
</font><font color="#3A3966">;
</font><font color="#3A3966">; (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<font color="#3A3966">UseSQLiteDatabase</font>()

<b><font color="#3A3966">Procedure</font></b> <font color="#3A3966">CheckDatabaseUpdate</font>(Database, Query$)
 Result =<font color="#3A3966"> DatabaseUpdate</font>(Database, Query$)
 <b><font color="#3A3966">If</font></b> Result = 0
 <b><font color="#3A3966">Debug</font></b> <font color="#3A3966">DatabaseError</font>()
 <b><font color="#3A3966">EndIf</font></b>
 
 <b><font color="#3A3966">ProcedureReturn</font></b> Result
<b><font color="#3A3966">EndProcedure</font></b>

DatabaseFile$ =<font color="#3A3966"> GetTemporaryDirectory</font>()+&quot;Database.sqlite&quot;

<b><font color="#3A3966">If</font></b> <font color="#3A3966">CreateFile</font>(0, DatabaseFile$)
<font color="#3A3966"> CloseFile</font>(0)
 
 <b><font color="#3A3966">If</font></b> <font color="#3A3966">OpenDatabase</font>(0, DatabaseFile,ドル &quot;&quot;, &quot;&quot;)
 
<font color="#3A3966"> CheckDatabaseUpdate</font>(0, &quot;CREATE TABLE food (name CHAR(50), weight INT)&quot;)

<font color="#3A3966"> CheckDatabaseUpdate</font>(0, &quot;INSERT INTO food (name, weight) VALUES ('apple', '10')&quot;)
<font color="#3A3966"> CheckDatabaseUpdate</font>(0, &quot;INSERT INTO food (name, weight) VALUES ('pear', '5')&quot;)
<font color="#3A3966"> CheckDatabaseUpdate</font>(0, &quot;INSERT INTO food (name, weight) VALUES ('banana', '20')&quot;)
 
 <b><font color="#3A3966">If</font></b> <font color="#3A3966">DatabaseQuery</font>(0, &quot;SELECT * FROM food WHERE weight &gt; 7&quot;)
 
 <b><font color="#3A3966">While</font></b> <font color="#3A3966">NextDatabaseRow</font>(0)
 <b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetDatabaseString</font>(0, 0)
 <b><font color="#3A3966">Wend</font></b>
 
<font color="#3A3966"> FinishDatabaseQuery</font>(0)
 <b><font color="#3A3966">EndIf</font></b>
 
<font color="#3A3966"> CloseDatabase</font>(0)
 <b><font color="#3A3966">Else</font></b>
 <b><font color="#3A3966">Debug</font></b> &quot;Can't open database !&quot;
 <b><font color="#3A3966">EndIf</font></b>
<b><font color="#3A3966">Else</font></b>
 <b><font color="#3A3966">Debug</font></b> &quot;Can't create the database file !&quot;
<b><font color="#3A3966">EndIf</font></b>
</font></pre>
</body></html>