用perl查询oracle数据库中存在的lock
原文地址oracle lock
1用Perl TK模块 查询DB中的LOCK
use DBI;
use Tkx;
use DBD::Oracle qw(:ora_session_modes);
$mw = Tkx::widget->new(”.”);
$mw->g_wm_title(”Oracle Lock”);
$content = $mw->new_ttk__frame(-padding => “5 5 12 0″);
$content->g_grid(-column => 0, -row => 0, -sticky => “nwes”);
$mw->g_grid_columnconfigure(0, -weight => 1);
$mw->g_grid_rowconfigure(0, -weight => 1);
$e1= $content->new_tk__entry( -width => 27, -textvariable => \$uname);
$e1->g_grid(-column => 2, -row => 0,-sticky => “nwes”);
$lbl = $content->new_ttk__label(-text => “username:”);
$lbl->g_grid(-column => 1, -row => 0,-sticky => “nwes”);
$e2= $content->new_tk__entry( -width => 27, -textvariable => \$passwd);
$e2->g_grid(-column => 2, -row => 1,-sticky => “nwes”);
$lb2 = $content->new_ttk__label(-text => “password:”);
$lb2->g_grid(-column => 1, -row => 1,-sticky => “nwes”);
$e3= $content->new_tk__entry( -width => 27, -textvariable => \$dsn1);
$e3->g_grid(-column => 2, -row => 3,-sticky => “nwes”);
$lb3 = $content->new_ttk__label(-text => “dsn:”);
$lb3->g_grid(-column => 1, -row => 3,-sticky => “nwes”);
$ba1 = $content->new_tk__button(-text => “sure”, -command => sub {sure();});;
$ba1->g_grid(-column =>2, -row => 4,-sticky => “nwes”);;
$ba1->g_bind(”<1>”, sub {sure();});
# $ba1->g_bind(”", sub {sure();});
($lb = $content->new_tk__listbox(-height =>
15,-width=>100))->g_grid(-column => 1, -row => 5, -sticky
=> “nwes”);
($s = $content->new_ttk__scrollbar(-command => [$lb, "yview"],
-orient => “vertical”))->g_grid(-column =&
相关文档：
oracle表空间操作详解
1
2
3作者： 来源： 更新日期：2006-01-04
5
6
7建立表空间
8
9CREATE TABLESPACE data01
10DATAFILE '/ora ......
1、查看数据库字符集
数据库服务器字符集select * from nls_database_parameters，其来源于props$，是表示数据库的字符集。
客户端字符集环境select * from nls_instance_parameters,其来源于v$parameter，
表示客户端的字符集的设置，可能是参数文件，环境变量或者是注册表
会话字符集� ......
众所周知的几个结果集集合操作命令，今天详细地测试了一下，发现一些问题，记录备考。 假设我们有一个表Student，包括以下字段与数据： drop table student;
create table student
(
id int primary key,
name nvarchar2(50) not null,
score number not null
);
insert into student values(1,'Aaron',78);
inse ......
从上周起，服务器Oracle数据库出现问题，用不到半天，就会报maxsession（150）的问题，肯定是数据库的会话超过最大数了。
由于服务器跑的是文件传输应用，占用的请求和会话肯定很大，因此用户数不大就已经让oracle的会话数达到最大值。
处理方式不外乎两种：扩大oracle最大session数以及清除inact ......
oracle中sql语句中select * from t_Test t where t.Id in(1,2,3......)/*数量不能大于1000个*/
解决方法 分割成多次in 然后再或上 如 select * from t_Test t where t.Id in(1,2,3......800) or t.Id in(801,802,803......1300)
在使用中最好能不使用其他条件来代替in
......
