使用游标
string cur_name
declare cur_name cursor for
select from where ;
open cur_name ;
do while sqlca.sqlcode=0
fetch cur_name into :str_name,:str_mima;
loop
close cur_name;
与其相似的是DataStore的用法:
stirng ls_no,ls_name
int li_temp
//声明
datastore ldt_object
//创建
ldt_object=create datastore
ldt_object.dataobject="d_xqsz" //"d_xqsz"是事先创建好的数据窗口对象
//检索数据
ldt_object.settransobject(sqlca)
ldt_object.retrieve()
//内容使用
if ldt_object.rowcount()>0 then
for li_temp=1 to ldt_object.rowcount()
//ls_no=ldt_object.object.[li_temp]
//ls_name=ldt_object.object.[li_temp]
//this.additem(ls_name + "[" + ls_no+ "]")
next
//this.selectitem(1)
end if
下拉列表框的内容从数据库提取,在下拉列表框的Constructor()中添加上述代码,完成下拉列表框构造。
调用存储过程
// 一.声明
DECLARE procename PROCEDURE FOR procedurename //procedurename是在SQL中已经建立的存储过程
@qno = 10,
@qname = :_name output, // 在PB中声明的一定要与在SQL Sever中声明的变量名一样
@qsalary = :_salary output ; // 是引用SQL中的变量名而不是重新定义一个变量
//二.打开
execute procename ; // 相当于游标的Open()
If sqlca.sqlcode = -1 Then
MessageBox ("SQL 语句执行失败"," sqlca.sqlerrtext)
return // 跳出
End If
//三.取值
fetch procename into :_name,:_salary;
do while sqlca.sqlcode=0
fetch cur_name into :str_name,:str_mima;
loop
// 四.关闭
close procename;
string cur_name
declare cur_name cursor for
select from where ;
open cur_name ;
do while sqlca.sqlcode=0
fetch cur_name into :str_name,:str_mima;
loop
close cur_name;
与其相似的是DataStore的用法:
stirng ls_no,ls_name
int li_temp
//声明
datastore ldt_object
//创建
ldt_object=create datastore
ldt_object.dataobject="d_xqsz" //"d_xqsz"是事先创建好的数据窗口对象
//检索数据
ldt_object.settransobject(sqlca)
ldt_object.retrieve()
//内容使用
if ldt_object.rowcount()>0 then
for li_temp=1 to ldt_object.rowcount()
//ls_no=ldt_object.object.[li_temp]
//ls_name=ldt_object.object.[li_temp]
//this.additem(ls_name + "[" + ls_no+ "]")
next
//this.selectitem(1)
end if
下拉列表框的内容从数据库提取,在下拉列表框的Constructor()中添加上述代码,完成下拉列表框构造。
调用存储过程
// 一.声明
DECLARE procename PROCEDURE FOR procedurename //procedurename是在SQL中已经建立的存储过程
@qno = 10,
@qname = :_name output, // 在PB中声明的一定要与在SQL Sever中声明的变量名一样
@qsalary = :_salary output ; // 是引用SQL中的变量名而不是重新定义一个变量
//二.打开
execute procename ; // 相当于游标的Open()
If sqlca.sqlcode = -1 Then
MessageBox ("SQL 语句执行失败"," sqlca.sqlerrtext)
return // 跳出
End If
//三.取值
fetch procename into :_name,:_salary;
do while sqlca.sqlcode=0
fetch cur_name into :str_name,:str_mima;
loop
// 四.关闭
close procename;