小编Jer*_*que的帖子

如何从函数中确定PL/SQL函数的模式

我在Oracle 10g数据库中有一个PL/SQL包,我想编写一个函数,它返回包(以及函数)定义的模式的名称.任何人都知道如何做到这一点?

oracle plsql

7
推荐指数
2
解决办法
4973
查看次数

MS Access中查询的字段默认值

我在MS Access,tblMyTable.SomeID中的表上有一个字段,我想在tblUserPref.DefaultSomeID中将默认值设置为用户首选项.我似乎无法设置默认值以在tblMyTable的表定义中使用查询.我有一个表格,其中记录输入到tblMyTable.我试图在表单上设置字段的默认值,但似乎也不接受查询.所以,作为最后的手段,我试图用VBA来做.我可以在VBA中查询我想要的值,但我无法确定将代码附加到哪个事件.

我希望在用户开始输入新的空白记录之前,只要在表单中打开新的空白记录就运行代码.我不想在打开或编辑现有记录时运行代码.但是,如果代码同时针对新的空白记录和现有记录运行,我可以编写代码.到目前为止,我在场上和表单上尝试的所有事件都没有在我想要的时候运行.任何人都可以建议我应该使用哪个事件,以及哪个对象?

events ms-access

2
推荐指数
1
解决办法
2万
查看次数

是否可以在Perl中的哈希构造函数中定义匿名子例程?

是否可以在Perl中的哈希构造函数中定义匿名子例程?

我正在尝试做这样的事情:

my %array = { one   => sub { print "first $_[0]" },
              two   => sub { print "next  $_[0]" },
              three => sub { print "last  $_[0]" }};

$array{$foo}->('thing');
Run Code Online (Sandbox Code Playgroud)

但它没有用.代码似乎运行和编译,但数组中的值是空白的.如果我这样做:

my %array;

$array{'one'}   = sub { print "first $_[0]" };
$array{'two'}   = sub { print "next  $_[0]" };
$array{'three'} = sub { print "last  $_[0]" };

$array{$foo}->('thing');
Run Code Online (Sandbox Code Playgroud)

然后它似乎工作正常.所以我有一个解决方法,但它只是困扰我,我想知道是否有人知道它是否可能,如果是,那么语法是什么.

perl hash coderef

1
推荐指数
2
解决办法
1244
查看次数

标签 统计

coderef ×1

events ×1

hash ×1

ms-access ×1

oracle ×1

perl ×1

plsql ×1