6.3.7.txt

PowerBuilder数据库开发自学教程 课本源代码 最初由于作者的倏忽

int Emp_num
Emp_num = Integer(sle_Emp_Num.Text)
SELECT employee.Emp_Lname,employee.Emp_Fname
INTO:sle_LName.text,:sle_FName.text
FROM Employee
WHERE Employee.Emp_nbr = :Emp_num
USING Emp_tram;
If Emp_tran.SQLCode = 100 Then						//未找到满足条件的数据
	MessageBox("查询雇员","未找到指定雇员")		
ElseIf Emp_tran.SQLCode < 0 Then					//SELECT语句执行不成功
	MessageBox("数据库错误",&Emp_tran.SQLErrText,Exclamation!)	//显示出错信息
End If