©
Dokumen ini menggunakan Manual laman web PHP Cina Lepaskan
修改ORACLE7数据库maxdatafiles参数的方法
2000/04/13
|
|
在安装ORACLE7时,一般对maxdatafiles(数据文件的最大个数)参数值不加修改或未意识到对
其修改,而使用其默认值(往往比需要值要小)。但随着数据量的增多,需要不断地往表空间内增加数据文件,但是maxd
atafiles的值限定了数据文件的最大个数,数据文件个数增加到最大值后,若再继续追加,就会导致“数据文件个数
超过了最大值”的错误,以至后边的数据无法存入。 数据文件的最大个数因操作系统的不同而不同,但是,现在运行着的ORACLE7数据库中,数据文件的最大个数
可以达到1000个以上,即maxdatafiles的参数值可设为1000或更大,远远大于其安装时的默认值(本系
统安装时的默认值为30),如果遇到了“数据文件个数超过了最大值”的问题时,可通过修改maxdatafiles参
数来解决,下面就介绍一下具体的修改方法: 1.实验环境 ALPHA8200服务器,操作系统Digial UNIX V3.2C,Oracle7.2数据库。 2.准备工作 启动ORACLE数据库,进行下列操作: $sqldba mode=line(回车) SQLDBA>connect internal(回车) SQLDBA>alter database backup controlfile to trace;(
回车) SQLDBA>show parameter user_dump_dest(回车) 可以看到trace文件“ora_3044.trc”在/volora/oracle/rdbms/log目
录下。 将trace文件/volora/oracle/rdbms/log/ora_3044.trc拷贝成 df
ileadd.sql。 用vi编辑dfileadd.sql文件,修改maxdatafiles参数(由原来的30改为300)。 Dfileadd.sql文件如下: Dump file/volora/oracle/rdbms/log/ora_3044.trc Oracle7 Server Release7.2.2.3.0 with the64-bit opti
on- Production Release With the distributed and parallel query options PL/SQL Release2.2.2.3.0- Production ORACLE_HOME=/volora/oracle ORACLE_SID= ora72 Oracle process number:8 Unix process id:3044 System name: OSF1 Node name: slserver.sl.cnpc.co.cn Release: V3.2 Version:148 Machine: alpha Wed Apr2315:54:281997 Wed Apr2315:54:281997 *** SESSION ID:(9.1455)1997.04.23.15.54.28.359 # The following commands will create a new control
file and use it # to open the database. # No data other than log history will be lost. Addi
tional logs may # be required for media recovery of offline data fi
les. Use this # only if the current version of all online logs ar
e available. STARTUP NOMOUNT CREATE CONTROLFILE REUSE DATABASE"ORA72" NORESETLOG
S NOARCHIVELOG MAXLOGFILES32 MAXLOGMEMBERS2 MAXDATAFILES300 MAXINSTANCES8 MAXLOGHISTORY800 LOGFILE GROUP1'/volora/oracle/dbs/log1ora72.dbf' SIZE500K, GROUP2'/volora/oracle/dbs/log2ora72.dbf' SIZE500K, GROUP3'/volora/oracle/dbs/log3ora72.dbf' SIZE500K DATAFILE '/volora/oracle/dbs/systora72.dbf', '/volora/oracle/dbs/rbsora72.dbf', '/volora/oracle/dbs/tempora72.dbf', '/volora/oracle/dbs/toolora72.dbf', '/volora/oracle/dbs/usrora72.dbf', '/volora/oracle/dbs/jhc.dbf', '/volora/oracle/dbs/useradd.dbf' ; # Recovery is required if any of the datafiles are
restored backups, # or if the last shutdown was not normal or immedia
te. RECOVER DATABASE # Database can now be opened normally. ALTER DATABASE OPEN; 将以上dfileadd.sql文件中横线上没用的斜体部分行删掉,存盘。 最后关闭数据库,并做好数据库的备份,包括数据和控制文件的备份,起码要用export将数据全部卸出。有条
件的话,尽量做全备份,预防在数据库重建失败后瘫痪,因为下一步工作牵扯到对数据库的破坏和重新生成工作。 3.修改maxdatafiles参数的过程 3.1删除/volora/oracle/dbs目录下面所有的控制文件(共3个): $rm*.ctl(回车) 3.2重新生成数据库(生成新的控制文件、数据文件等) $sqldba mode=line(回车) SQLDBA>connect internal(回车) 运行dfileadd.sql: SQLDBA>@dfileadd.sql(回车) ORACLE instance started. Statement processed. Media recovery complete. Statement processed. SQLDBA>alter database open noresetlogs;(回车) 至此,数据库的刷新工作已完成,可以投入正常运行了,目前运行着的ORACLE7数据库,数据文件最多可建立
到300个。 在Windows 95下有一个任务栏可随时用鼠标单击任务栏上的应用程序图标切换到相应的程序,在Wind
ows 3.X下要切换应用程序使用的方法有两种,一种是用ALT+TAB切换,另一种是用CTRL+ESC(或在桌
面的空白处双击鼠标)打开任务列表从中选择切换,笔者在使用中总感到不如在Windows 95下那样方便。本文提供
一个用VB 3.0专业版在Windows 3.2中文版下编写的程序,可实现将任务列表一直显示在屏幕上,随时可用
鼠标双击任务列表中的程序名字切换,类似与Windows 95下的任务栏,使用很方便。 实现方法:在窗体中加入一列表框,将检测到的所有已打开的应用程序加入其中,用户就可以双击应用程序名字来切
换了。这里还有一个将其常居顶端的问题,这方面的实现方法在许多报刊杂志上都可以看到,本文不再叙述,本文只给出其余
功能的实现程序。 本程序在开始运行时检测已运行的应用程序并将它们加入到任务列表框中,当此后再有新的应用程序打开时,需要将
其添加到列表框中,所以设计了一个刷新按钮,如果有新的应用程序打开,可点一下它。 另外类似与Windows 本身
的任务列表功能,加入了一个切换按钮,当用户在任务列表中单击选择任务后,单击切换按钮也可切换,此外还有一个退出按
钮用来关闭任务列表。 程序如下: 在窗体中加入如下对象并设置属性: 按钮1 Caption="刷新" name=cmdrefresh 按钮2 Caption="切换" name=cmdswitch 按钮3 Caption="退出" name=cmdexit 列表框list name=lstApp 将窗体形状拉成长条状,安排好对象位置,以便减少屏幕占用空间,将其边框属性改为固定边框,不允许改变大小。
在总体声明部分写如下代码: '声明用到的API函数和常量 Option Explicit Declare Function ShowWindow Lib"User"(ByVal hWnd As
Integer, ByVal flgs As Integer) As Integer Declare Function GetWindow Lib"User"(ByVal hWnd As
Integer, ByVal wCmd As Integer) As Integer Declare Function GetWindowWord Lib"User"(ByVal hWnd
As Integer, ByVal wIndx As Integer) As Integer Declare Function GetWindowLong Lib"User"(ByVal hWnd
As Integer, ByVal wIndx As Integer) As Long Declare Function GetWindowText Lib"User"(ByVal hWnd
As Integer, ByVal lpSting As String, ByVal nMaxCount As
Integer) As Integer Declare Function GetWindowTextLength Lib"User"(ByVa
l hWnd As Integer) As Integer Declare Function SetWindowPos Lib"User"(ByVal hWnd
As Integer, ByVal insaft As Integer, ByVal x%, ByVal y%
, ByVal cx%, ByVal cy%, ByVal flgs As Integer) As Integ
er '注:上面的API函数要写在一行中 Const WS_MINIMIZE=&H20000000 Const HWND_TOP=0 Const SWP_NOSIZE=&H1 Const SWP_NOMOVE=&H2 Const SWP_SHOWWINDOW=&H40 Const GW_HWNDFIRST=0 Const GW_HWNDNEXT=2 Const GWL_STYLE=(-16) Const SW_RESTORE=9 Const WS_VISIBLE=&H10000000 Const WS_BORDER=&H800000 Const WS_CLIPSIBLINGS=&H4000000 Const WS_THICKFRAME=&H40000 Const WS_GROUP=&H20000 Const WS_TABSTOP=&H10000 Dim IsTask As Long '寻找已打开的应用程序函数 Sub FindAllApps() Dim hwCurr As Long Dim intLen As Long Dim strTitle As String lstApp.Clear hwCurr= GetWindow(Me.hWnd, GW_HWNDFIRST) Do While hwCurr If hwCurr Me.hWnd And TaskWindow(hwCurr) Then intLen= GetWindowTextLength(hwCurr)+1 strTitle= Space$(intLen) intLen= GetWindowText(hwCurr, strTitle, intLen) If intLen>0 Then lstApp.AddItem strTitle lstApp.ItemData(lstApp.NewIndex)= hwCurr End If End If hwCurr= GetWindow(hwCurr, GW_HWNDNEXT) Loop End Sub Function TaskWindow(hwCurr As Long) As Long Dim lngStyle As Long lngStyle= GetWindowLong(hwCurr, GWL_STYLE) If(lngStyle And IsTask)= IsTask Then TaskWindow= Tr
ue End Function 双击“退出”按钮,写如下代码: Sub Cmdexit_Click() Unload Me End Sub 双击“刷新”按钮,写如下代码: Sub Cmdrefresh_Click() FindAllApps'刷新任务列表 End Sub 双击“切换”按钮,写如下代码: Sub Cmdswitch_Click() Dim hWnd As Long Dim x As Long Dim lngWW As Long If lstApp.ListIndex
hWnd= lstApp.ItemData(lstApp.ListIndex) lngWW= GetWindowLong(hWnd, GWL_STYLE) If lngWW And WS_MINIMIZE Then x= ShowWindow(hWnd, SW_RESTORE) End If x= SetWindowPos(hWnd, HWND_TOP,0,0,0,0, SWP_NOMOVE
Or SWP_NOSIZE Or SWP_SHOWWINDOW) End Sub 双击窗体,写如下代码: Sub Form_Load() IsTask= WS_VISIBLE Or WS_BORDER FindAllApps End Sub 窗体更新时刷新任务列表: Sub Form_Paint() FindAllApps End Sub双击列表框写如下代码: Sub lstApp_DblClick() Switch.Value= True End Sub
|