Powerbuilder中常用SQL语句实例

任何对sql类数据库操作的语言必学的:),下面的是PB版本,有一些PB的特性.

SQL语句

sql语句以；结束，可写成多行形式而不用&

1、SELECT

注意：变量前加:

一个例子：

SELECT Employee.Emp_id,Employee.Emp_name,

Employee.Emp_salary,Dept.Dept_name

FROM Employee,Dept

WHERE (Emp_name like ''''张%'''')AND (Emp_sex=''''男'''')

AND Employee.Dept_id=Dept.Dept_id

ORDER BY Employee.Emp_id;

给变量的例子：

Dec Emp_salary

SELECT max(Emp_salary)

INTO :Emp_salary

FROM Employee;

2、INSERT

一个例子：

Int Emp_nbr

String Emp_name

Emp_nbr=Integer(sle_number.Text)

Emp_name=sle_name.Text

INSERT INTO Employee(employee.Emp_nbr,employee.Emp_name)

VALUES(:Emp_nbr,:Emp_name)

USING Emp_tran;

3、UPDATE

一个例子：

UPDATE Employee//表名

SET emp_name=:sle_Name.Text //修改

WHERE Employee.emp_nbr=:Emp_nbr;//修改条件

4、DELETE

一个例子：

DELETE FROM Employee //从表Employee

WHERE Emp_nbr <100;删除条件满足的记录

5、CONNECT和DISCONNECT

执行DISCONNECT前自动执行COMMIT

6、COMMIT和ROLLBACK

7、使用游标（用来保存多条记录操作）

DECLARE,OPEN,FECTH...INTO...:NAME,CLOSE,DELETE(删除游标指向的记录）,UPDATE（修改游标指向的记录）

利用游标打开多个记录的例子

//声明powerscript变量，存放读出的雇员姓名

String emp_cur CURSOR FOR

SELECT emp_name FROM EMPLOYEE

WHERE emp_state=:sle_1.text;

//打开游标，

执行SELECT语句

OPEN emp_cur;

//从结果集中取第一条记录

FETCH emp_cur INTO "emp_name_var;

//判断FETCH语句执行情况

IF SQLCA.SQLCode<0 THEN

MessageBox("Datebase Error",&//显示错误信息

SQLCA.SQLErrText,Exclamation!)

RETURN

END IF

//如果FETCH语句执行正确，用循环语句逐条取结果集中的记录，到取完

DO WHILE SQLCA.SQLCode=0 //是否取完数据

//把取出的雇员姓名加入下拉列表框中

dlbl_1.additem(emp_name_var)

//继续从结果集中取下一符合条件的数据

FETCH emp_cur INTO :emp_name_var;

<place w:st="on"><span lang="EN-US" style="FONT-SIZE: 14pt">LOOP</span></place>

//关闭游标

CLOSE emp_cur;

8、处理BLOB型数据(大部分语句只能对一条记录进行操作，多余则出错）

SELECTBLOB,

一个例子：

//声明BLOB型变量Emp_id_pic,用语存放Emp_pic列的数据

Blob Emp_pic

SELECTBLOB Emp_pic

INTO :Emp_id_pic

FROM Employee

WHERE Employee.Emp_Id="001"

USING Emp_tran;

//如果执行正确，在pb_1中显示照片

IF Emp_tran.SQLCode=0 THEN

pb1.SetPicture(Emp_id_pic)

END IF

UPDATEBLOB

一个例子：

Integer fh

Blob Emp_id_pic

//以读方式打开一个流模式文件

fh=FileOpen("c:\emp_100.bmp",StreamMode!)

//判断打开文件是否成功

IF fh<>-1 THEN

//从文件中读取图形数据存于Blob型变量

FileRead(fh,emp_id_pic)

//关闭文件

FileClose(fh)

//修改表的emp_pic列

UPDATEBLOB Employee

SET emp_pic=:Emp_id_pic

WHERE EMp-Id="001";

END IF

IF SQLCA.SQLNRows>0 THEN//判断是否返回结果

COMMIT;/提交事务

ELSE

ROLLBACK;//回滚事务

END IF

9、动态SQL语句

事务对象，动态描述区(SQLSA)，动态描述区(SQLCA)

示例1：

String Mysql

Mysql ="CREAT TABLE Employee"&

+"(emp_id char(6)not null,"&

+"emp_hbr integer not null,"&

+"dept_id integer not null,"&

+"emp_fname char(10) not null,"&

+"emp_lname char(20) not null)"

EXCUTE IMMEDIATE :Mysql;

实例2：

EXCUTE IMMEDIATE "DROP TABLE Employee" USING My_trans;

等价于：

String Mysql

Mysql+"DROP TABLE Employee"

EXCUTE IMMEDIATE :Mysql USING My_trans

实例3：

//在表中插入记录

Int Dept_id_var=156

String Dept_name_var

SetNull(Dept_name_var)

CONNECT;//

PREPARE SQLCA //prepare的作用？？？

FROM "INSERT INTO dept VALUES(?,?)";

EXCUTE SQLCA USING :Dept_id_var,:Dept_name_var