VB中Combobox的用法

RETURN @R

使用 ComboBox 组件

rowcount函数 row_number函数rowcount函数 row_number函数


rowcount函数 row_number函数


rowcount函数 row_number函数


fetchone函数和fetchall函数返回值的区别：

在任何需要从列表中选择一项的表单或应用程序中，您都可以使用 ComboBox 组件。例如，您可以在客户地址表单中提供一个州/省的下拉列表。对于比较复杂的情况，您可以使用可编辑的组合框。例如，在一个驾驶方向应用程序中，您可以使用一个可编辑的组合框来让用户输入出发地址和目标地址。下拉列表可以包含用户以前输入过的地址。

ComboBox 参数

以下是您可以在属性检查器中或在“组件检查器”面板中为每个 ComboBox 组件设置的创作参数：

editable 确定 ComboBox 组件是可编辑的 (true) 还是只能选择的 (false)。默认值为 false。

labels 用一个文本值数组填充 ComboBox 组件。

data 将一个数据值与 ComboBox 组件中的每个项目相关联。该数据参数是一个数组。

rowCount 设置在不使用滚动条的情况下一次最多可以显示的项目数。默认值为 5。

创建具有 ComboBox 组件的应用程序

以下过程解释了如何在创作时将 ComboBox 组件添加到应用程序。在此范例中，组合框在其下拉列表呈现出一个从中选择城市的列表。

要创建具有 ComboBox 组件的应用程序，请执行以下作：

将 ComboBox组件从“组件”面板拖到舞台上。

选择“变形”工具，并在舞台上调整该组件的大小。

组合框只能在创作时在舞台上调整大小。通常，您只需改变组合框的宽度以适应其条目。

选择组合框，并在属性检查器中输入实例名称 comboBox。

在“组件检查器”面板或属性检查器中，执行以下作：

输入 Minneapolis、Portland 和 Keene 作为标签参数。双击标签参数字段以打开“值”对话框。然后单击加号（+）以添加项目。

输入 MN.swf、OR.swf 和 NH.swf 作为数据参数。

这些是想的 SWF 文件。例如，当用户在组合框中选择了一个城市时，你就可以加载这些文件。

在时间轴中选择帧，打开“动作”面板，然后输入以下代码：

form = new Object();

form.change = function (evt){

trace(evt.target.selectedItem.label);

一行代码将 change 处理函数添加到 ComboBox 实例

关于oracle8i的带参数游标用法的问题

close c_emp;

oracle数据库游标使用大全

from emp

sql是用于访问oracle数据库的语言，pl/sql扩展和加强了sql的功能，它同时引入了更强的程序逻辑。 pl/sql支持dml命令和sql的事务控制语句。ddl在pl/sql中不被支持，这就意味作在pl/sql程序块中不能创建表或其他任何对象。较好的pl/sql程序设计是在pl/sql块中使用象dbms_sql这样的内建包或执行execute immediate命令建立动态sql来执行ddl命令，pl/sql编译器保证对象引用以及用户的权限。

下面我们将讨论各种用于访问oracle数据库的ddl和tcl语句。

查询

select语句用于从数据库中查询数据，当在pl/sql中使用select语句时，要与into子句一起使用，查询的返回值被赋予into子句中的变量，变量的声明是在delcare中。select into语法如下：

select [distict|all]{|column[,column,...]}

into (variable[,variable,...] |record)

from {table|(sub-query)}[alias]

where............

pl/sql中select语句只返回一行数据。如果超过一行数据，那么就要使用显式游标（对游标的讨论我们将在后面进行），into子句中要有与select子句中相同列数量的变量。into子句中也可以是记录变量。

%type属性

在pl/sql中可以将变量和常量声明为内建或用户定义的数据类型，以引用一个列名，同时继承他的数据类型和大小。这种动态赋值方法是非常有用的，比如变量引用的列的数据类型和大小改变了，如果使用了%type,那么用户就不必修改代码，否则就必须修改代码。

例：

v_empno scott.emp.empno%type;

v_salary emp.salary%type;

不但列名可以使用%type,而且变量、游标、记录，或声明的常量都可以使用%type。这对于定义相同数据类型的变量非常有用。

delcare

v_a number(5):=10;

v_b v_a%type:=15;

v_c v_a%type;

begin

dbms_output.put_line

(''v_a=''||v_a||''v_b=''||v_b||''v_c=''||v_c);

end

sql>/

v_a=10 v_b=15 v_c=

pl/sql procedure successfully completed.

sql>

其他dml语句

其它作数据的dml语句是:insert、update、delete和lock table,这些语句在pl/sql中的语法与在sql中的语法相同。我们在前面已经讨论过dml语句的使用这里就不再重复了。在dml语句中可以使用任何在declare部分声明的变量，如果是嵌套块，那么要注意变量的作用范围。

例：

create or replace procedure fire_employee (pempno in number)

as

v_ename emp.ename%type;

begin

select ename into v_ename

where empno=p_empno;

insert into former_emp(empno,ename)

values (p_empno,v_ename);

delete from emp

where empno=p_empno;

update former_emp

set date_deleted=sysdate

where empno=p_empno;

exception

when no_data_found then

dbms_output.put_line(''employee number not found!'');

end

dml语句的结果

当执行一条dml语句后，dml语句的结果保存在四个游标属性中，这些属性用于控制程序流程或者了解程序的状态。当运行dml语句时，pl/sql打开一个内建游标并处理结果，游标是维护查询结果的内存中的一个区域，游标在运行dml语句时打开，完成后关闭。隐式游标只使用sql%found,sql%notfound,sql%rowcount三个属性.sql%found,sql%notfound是布尔值，sql%rowcount是整数值。

sql%found和sql%notfound

在执行任何dml语句前sql%found和sql%notfound的值都是null,在执行dml语句后，sql%found的属性值将是：

. true :insert

. true :delete和update，至少有一行被delete或update.

. true :select into至少返回一行

当sql%found为true时,sql%notfound为false。

sql%rowcount

在执行任何dml语句之前，sql%rowcount的值都是null,对于select into语句，如果执行成功，sql%rowcount的值为1,如果没有成功，sql%rowcount的值为0，同时产生一个异常no_data_found.

sql%isopen

sql%isopen是一个布尔值，如果游标打开，则为true, 如果游标关闭，则为false.对于隐式游标而言sql%isopen总是false，这是因为隐式游标在dml语句执行时打开，结束时就立即关闭。

事务控制语句

事务是一个工作的逻辑单元可以包括一个或多个dml语句，事物控制帮助用户保证数据的一致性。如果事务控制逻辑单元中的任何一个dml语句失败，那么整个事务都将回滚，在pl/sql中用户可以明确地使用commit、rollback、sepoint以及set transaction语句。

commit语句终止事务，保存数据库的变化，同时释放所有lock,rollback终止现行事务释放所有lock，但不保存数据库的任何变化,sepoint用于设置中间点，当事务调用过多的数据库作时，中间点是非常有用的，set transaction用于设置事务属性，比如read-write和隔离级等。

显式游标

当查询返回结果超过一行时，就需要一个显式游标，此时用户不能使用select into语句。pl/sql管理隐式游标，当查询开始时隐式游标打开，查询结束时隐式游标自动关闭。显式游标在pl/sql块的声明部分声明，在执行部分或异常处理部分打开，取数据,关闭。下表显示了显式游标和隐式游标的别：

表1 隐式游标和显式游标

隐式游标 显式游标

pl/sql维护，当执行查询时自动打开和关闭 在程序中显式定义、打开、关闭，游标有一个名字。

游标属性前缀是sql 游标属性的前缀是游标名

属性%isopen总是为false %isopen根据游标的状态确定值

select语句带有into子串，只有一行数据被处理 可以处理多行数据，在程序中设置循环，取出每一行数据。

使用游标

声明游标

语法：

cursor cursor_name is select_statement;

在pl/sql中游标名是一个未声明变量，不能给游标名赋值或用于表达式中。

例：

delcare

cursor c_emp is select empno,ename,salary

order by ename;

........

begin

在游标定义中select语句中不一定非要表可以是视图，也可以从多个表或视图中选择的列，甚至可以使用来选择所有的列 。

打开游标

使用游标中的值之前应该首先打开游标，打开游标初始化查询处理。打开游标的语法是：

open cursor_name

cursor_name是在声明部分定义的游标名。

例：

关闭游标

语法：

close cursor_name

例：

从游标提取数据

从游标得到一行数据使用fetch命令。每一次提取数据后，游标都指向结果集的下一行。语法如下：

fetch cursor_name into variable[,variable,...]

对于select定义的游标的每一列，fetch变量列表都应该有一个变量与之相对应，变量的类型也要相同。

例：

set serveriutput on

declare

v_ename emp.ename%type;

v_salary emp.salary%type;

cursor c_emp is select ename,salary from emp;

begin

fetch c_emp into v_ename,v_salary;

dbms_output.put_line(''salary of employee''|| v_ename

||''is''|| v_salary);

fetch c_emp into v_ename,v_salary;

dbms_output.put_line(''salary of employee''|| v_ename

||''is''|| v_salary);

fetch c_emp into v_ename,v_salary;

dbms_output.put_line(''salary of employee''|| v_ename

||''is''|| v_salary);

end

这段代码无疑是非常麻烦的，如果有多行返回结果，可以使用循环并用游标属性为结束循环的条件，以这种方式提取数据，程序的可读性和简洁性都大为提高，下面我们使用循环重新写上面的程序：

set serveriutput on

declare

v_ename emp.ename%type;

v_salary emp.salary%type;

cursor c_emp is select ename,salary from emp;

begin

fetch c_emp into v_ename,v_salary;

exit when c_emp%notfound;

dbms_output.put_line(''salary of employee''|| v_ename

||''is''|| v_salary);

end

记录变量

定义一个记录变量使用type命令和%rowtype，关于%rowstype的更多信息请参阅相关资料。

记录变量用于从游标中提取数据行，当游标选择很多列的时候，那么使用记录比为每列声明一个变量要方便得多。

当在表上使用%rowtype并将从游标中取出的值放入记录中时，如果要选择表中所有列，那么在select子句中使用比将所有列名列出来要安全得多。

例：

set serveriutput on

declare

r_emp emp%rowtype;

cursor c_emp is select from emp;

begin

exit when c_emp%notfound;

dbms_out.put.put_line(''salary of employee''||r_emp.ename||''is''|| r_emp.salary);

%rowtype也可以用游标名来定义，这样的话就必须要首先声明游标：

set serveriutput on

declare

cursor c_emp is select ename,salary from emp;

r_emp c_emp%rowtype;

begin

exit when c_emp%notfound;

dbms_out.put.put_line(''salary of employee''||r_emp.ename||''is''|| r_emp.salary);

带参数的游标

与存储过程和函数相似，可以将参数传递给游标并在查询中使用。这对于处理在某种条件下打开游标的情况非常有用。它的语法如下：

cursor cursor_name[(parameter[,parameter],...)] is select_statement;

定义参数的语法如下：

parameter_name [in] data_type[{:=|default} value]

与存储过程不同的是，游标只能接受传递的值，而不能返回值。参数只定义数据类型，没有大小。

另外可以给参数设定一个缺省值，当没有参数值传递给游标时，就使用缺省值。游标中定义的参数只是一个占位符，在别处引用该参数不一定可靠。

在打开游标时给参数赋值，语法如下：

open cursor_name[value[,value]....];

参数值可以是文字或变量。

例：

decalre

cursor c_emp (p_dept varachar2) is

select ename,salary

where deptno=p_dept

order by ename

r_dept dept%rowtype;

v_ename emp.ename%type;

v_salary emp.salary%type;

v_tot_salary emp.salary%type;

begin

open c_dept;

fetch c_dept into r_dept;

exit when c_dept%notfound;

dbms_output.put_line(''department:''|| r_dept.deptno||''-''||r_dept.dname);

v_tot_salary:=0;

open c_emp(r_dept.deptno);

fetch c_emp into v_ename,v_salary;

exit when c_emp%notfound;

dbms_output.put_line(''name:''|| v_ename||'' salary:''||v_salary);

v_tot_salary:=v_tot_salary+v_salary;

dbms_output.put_line(''toltal salary for dept:''|| v_tot_salary);

close c_dept;

游标for循环

在大多数时候我们在设计程序的时候都遵循下面的步骤：

1、打开游标

2、开始循环

3、从游标中取值

4、检查那一行被返回

5、处理

6、关闭循环

7、关闭游标

for record_name in

(corsor_name[(parameter[,parameter]...)]

| (query_difinition)

statements

下面我们用for循环重写上面的例子：

decalre

cursor c_dept is select deptno,dname from dept order by deptno;

cursor c_emp (p_dept varachar2) is

select ename,salary

where deptno=p_dept

order by ename

v_tot_salary emp.salary%type;

begin

for r_dept in c_dept loop

dbms_output.put_line(''department:''|| r_dept.deptno||''-''||r_dept.dname);

v_tot_salary:=0;

for r_emp in c_emp(r_dept.deptno) loop

dbms_output.put_line(''name:''|| v_ename||'' salary:''||v_salary);

v_tot_salary:=v_tot_salary+v_salary;

dbms_output.put_line(''toltal salary for dept:''|| v_tot_salary);

在游标for循环中使用查询

decalre

v_tot_salary emp.salary%type;

begin

for r_dept in (select deptno,dname from dept order by deptno) loop

dbms_output.put_line(''department:''|| r_dept.deptno||''-''||r_dept.dname);

v_tot_salary:=0;

where deptno=p_dept

order by ename) loop

dbms_output.put_line(''name:''|| v_ename||'' salary:''||v_salary);

v_tot_salary:=v_tot_salary+v_salary;

dbms_output.put_line(''toltal salary for dept:''|| v_tot_salary);

语法如下：

cursor c1 is select from emp

where deptno not in (select deptno

from dept

where dname!=''accounting'');

可以看出与sql中的子查询没有什么区别。

游标中的更新和删除

在pl/sql中依然可以使用update和delete语句更新或删除数据行。显式游标只有在需要获得多行数据的情况下使用。pl/sql提供了仅仅使用游标就可以执行删除或更新记录的方法。

update或delete语句中的where current of子串专门处理要执行update或delete作的表中取出的最近的数据。要使用这个方法，在声明游标时必须使用for update子串，当对话使用for update子串打开一个游标时，所有返回集中的数据行都将处于行级（row-ll)独占式锁定，其他对象只能查询这些数据行，不能进行update、delete或select...for update作。

语法：

for update [of [schema.]table.column[,[schema.]table.column]..

[nowait]

在多表查询中，使用of子句来锁定特定的表,如果忽略了of子句，那么所有表中选择的数据行都将被锁定。如果这些数据行已经被其他会话锁定，那么正常情况下oracle将等待，直到数据行解锁。

在update和delete中使用where current of子串的语法如下：

where{current of cursor_name|search_condition}

例：

delcare

cursor c1 is select empno,salary

where comm is null

for update of comm;

v_comm number(10,2);

begin

for r1 in c1 loop

if r1.salary<500 then

elseif r1.salary<1000 then

v_comm:=r1.salary0.20;

elseif r1.salary<3000 then

else

v_comm:=r1.salary0.12;

end if;

update emp;

set comm=v_comm

where current of c1l;

end

pb 在数据窗口中如何使用find函数查找所有符合条件的数据行 请高手帮忙 谢谢

end;

long i

long ll_result[], ll_find

ll_find int rowCount = 0;= dw_1.find("salary > 1000",1, dw_1.rowcount())

do while ll_find > 0

i ++

ll_result[i] = ll_find

ll_find = dw_1.find("salary > 1000",ll_find + 1, dw_1.rowcount()

大体是这个思路，ll_result[]就是要求的结果

long i

long ll_result[], ll_find

ll_find = dw_1.find("salary > 1000",1, dw_1.rowcount())

do while ll_find > 0

i ++

ll_result[i] = ll_find

ll_find = dw_1.find("salary > 1000",ll_find + 1, dw_1.rowcount()

ll_result[]就是要求的结果

GetConfigString 这个函数怎么用？

游标中的子查询

GetConfigString好象没听说过

loop

如果它是个函数的话那就是这样用GetConfigString(参数)

不过看到这个名字我就觉得它不是个函数

我觉得它是个属性

属性就用GetConfigString[参数]

PB中如何将数据窗口中的数据导出成excel表，就是添加导出控件中的代码该如何编写！

cursor c_dept is select from dept order by deptno;

dw.seasascii()

把数据窗口的内容都导出去，包括标题等

BUTTON click

注意修改一where salary>2000下

OLEObject ole_object , ole_workbooks

ole_object = CREATE OLEObject

IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN

MessageBox('OLE错误','OLE无法连接!')

return

END IF

ole_object.workbooks.add

ole_object.Visible = True

ole_workbooks = ole_object.Worksheets(1)

ole_workbooks.cells(1,1).value="姓名"

ole_workbooks.cells(1,2).value="性别"

long l_row

for l_row = 1 to dw_1.rowcount()

ole_workbooks.cells(l_row+1,1).value=dw_1.getstring(l_row,1)

ole_workbooks.cells(l_row+1,2).value=dw_1.getstring(l_row,2)

next

ole_workbooks.SeAs ("d:data.xls")

ole_object.quit()

Destroy Ole_Object

destroy ole_workbooks

sybase 数据库 sql aantage 登录后显示库名都为null，原因有哪些？

end loop;

目前目前大型的数据库都采用oracle，中小型的用sql，建议用sqlserver 或者mysql。 sybase 与sqlsrver 的内在区别就是： 1.Sybase 没有用户自定义函数。 2.判断fetch 成功的全局变量是@@SQLstatus,而不是@@fetch_status。

3.没有set,赋值与查询通用select。 4.没有top,返回N 行要使用set rowcount N / set rowcount 0 5.raiserror 22009 " "--> raiserror( ' ',16,1) 6.游标一定要在过程中使用,不能单独在查询中使用。 7.销毁游标要加cursor 关键字.如:deallocate cursor cur_tmp 8.没有bigint 类型。 9.create table #t(id numeric(12,0) identity not null),不支持int 型,且不能设置起始值和步进您可以编写“动作脚本”，通过利用 ComboBox 类的方法、属性和来设置 ComboBox 实例的其他选项。有关详细信息，请参阅 ComboBox 类。值。 10.不能alter 一个存储过程,要先drop 掉再create。 11.没有len 函数,使用char_length 或datalength 等效。 12.通过sysindexes 中的doampg 列可返回某表的行数,rowcnt(doampg) 。 13.convert 函数没有120 格式(yyyy-mm-dd hh:mm:ss),需要使用select convert(char(4),datepart(year,getdate()))+ '- '+right( '0 '+convert(varchar(2),datepart(month,getdate())),2)+ '- '+right( '0 '+convert(varchar(2),datepart(day,getdate())),2)+ ' '+convert(char(10),getdate(),8) 14.charindex 不能从被查找字符串中按指定位置查找某字符串。

delphi怎么添加EXCEL表

open c_emp;

有两种方式 一种建立Excel的Com对象，通过对象属性控制，来读取Excel数据 这个网上有很多资料，复杂一些。 另一种是将Excel的工作簿当做一个数据表来作，只要你会基本的数据库作就OK 这里给你一个连接串 Const ConnExcelStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:1.xls;Extended Properties=Excel 8.0;Persist Security Info=False'; 这个连接串是用来连接“C:1.xls”的 放一个ADOQuery到窗体上，在程序中把这个连接串赋值给它的Connectionstring属性 然后它就是你熟悉的数据库作了 查end loop;询工作簿的语句(这里只写部分代码) ADOQuery.SQL.Add('Select from [Sheet1$]');//Sheet1是工作簿的名字 $不要忘记 ADOQuery.Open; 接下来你应该明白了吧。 注明： Excel的格式行必须是字段名

数据库查询结果两张表只返回一张数据表

可以简单的把这一类代码称为游标用于循环。但还有一种循环与这种类型不相同，这就是for循环，用于for循环的游标按照正常的声明方式声明，它的优点在于不需要显式的打开、关闭、取数据，测试数据的存在、定义存放数据的变量等等。游标for 循环的语法如下：

存储过程没有返回值，函数才有返回值。你把你的代码贴出来看下吧 .

我还是不太理解你的需求，你想只返回第二个select语句查询的结果。存存储过程是返回不了值的啊~~ 存存储过程执行一系列的作，比如把一个表的数据转移 到另一个表之类的，不会有返回值的。。。

你想}comboBox.addEventListener("change", form);得到第二个查询语句的数据，是在存储过程内部使用？那样的话 参考写法：

FOR I IN (SELECT A,B,C FROM XXX) LOOP

K:= I.A;

L:=I.B;

M:= I.C;

END LOOP;

pb find函数怎么用的

fetch c_emp into r_emp;

例如：要查列名为xm的列，那么定义变量： string ls_xm //定义姓名变量 long ll_row //返回找到满足条件的行号 dwcontrol.find("xm='"+ls_xm+"'",1,dwcontrol.rowcount()) 如果是数值列的话需要转换的：加入xm为长整形的： long ll_xm/在游标for循环中可以定义查询，由于没有显式声明所以游标没有名字，记录名通过游标查询来定义。/定义姓名变量 long ll_row //返回找到满足条件的行号 dwcontrol.find("xm=long('"+string(ll_xm)+"')",1,dwcontrol.rowcount())

PB dw_main.Retri(),为什么返回值是-1，但是我又能查出数据呢。

--ja.awt.Container

在没有为数据窗口控件设置数据窗口对象时，进行retri作，返回值是-1，否则刷新成功后返回的是数据窗口Primary数据区的记录数，即使是v_comm:=r1.salary0.15;存储过程数据源也没什么不同。

楼主再好好检查一下程序吧，是不是写的有问题，或者多发点上来大家分析一下。

改用dw_main.rowcount()取行数就行了

SQL 函数递归

INSERT INTO T SELECT 1,0

给你一个例子，跟这个不多：

您好，提问者：

CREATE TABLE T(ID INT ,PID INT)

UNION ALL SELECT 2,0

UNION ALL SELECT 3,1

UNION ALL SELECT 4,1

UNION ALL SELECT 5,2

UNION ALL SELECT 6,4

UNION ALL SELECT 7,3

UNION ALL SELECT 8,4

GO

--测试数据

CREATE FUNCTION F(@ID INT)

RETURNS VARCHAR(20)

AS

BEGIN

DECLARE @R VARCHAR(20)

SET @R=@ID

WHILE ISNULL(@ID,'')<>''

BEGIN

SELECT @R=CAST(PID AS VARCHAR(20))+'.'+@R FROM T WHERE ID=@ID

SELECT @ID=PID FROM T WHERE ID=@ID

END

END

GO

--生成目录

CREATE FUNCTION F2(@F VARCHAR(20))

RETURNS VARCHAR(20)

BEGIN

DECLARE @R VARCHAR(20)

SET @R=''

SET @F=SUBSTRING(@F,4,LEN(@F))

WHILE CHARINDEX('.',@F,1)<>0

BEGIN

SET @F=SUBSTRING(@F,CHARINDEX('.',@F,1)+1,LEN(@F))

SET @R='-'+@R

END

END

GO

--生成前缀符号

SELECT DBO.F2(DBO.F(ID))+CAST(ID AS VARCHAR) FROM T ORDER BY DBO.F(ID)

GO

--结果

DROP TABLE T

DROP FUNCTION F

DROP FUNCTION F2

----------------------------------------------------以下为结果集--------------------------------------------------------------

1-3

--7

-4

--6

2-5