メモ

wsh

2008-03-05T19:58:23+09:00

*wshのちょっとしたスクリプト **ログを書くhta C:\log.txtにログを書く。テキストボックスには一番新しいログの内容を初期表示する。 test **InternetExplorerを操作する Dim logintest Dim array1, file Dim fso, data_csv, readstr Dim UntanFromFile, NameFromFile, PassFromFile 'file = "C:\tmp\ログインテストツール\test.cvs" file = "test.cvs" set fso = CreateObject("Scripting.FileSystemObject") set data_csv =fso.OpenTextFile(file,1) set logintest = CreateObject("WScript.Shell") logintest.Run("http://test.co.jp/login.cfm") Do While Not data_csv.AtEndOfStream readstr = data_csv.ReadLine array1 = split(readstr,",",-1) UntanFromFile = array1(0) NameFromFile = array1(1) PassFromFile = array1(2) WScript.sleep(2000) 'ログイン logintest.Sendkeys("{TAB}{TAB}") logintest.Sendkeys(UntanFromFile) logintest.Sendkeys("{TAB}") WScript.sleep(500) logintest.Sendkeys(NameFromFile) logintest.Sendkeys("{TAB}") WScript.sleep(500) logintest.Sendkeys(PassFromFile) '「ログイン」ボタンを押す logintest.Sendkeys("{TAB}") logintest.Sendkeys("{ENTER}") WScript.sleep(4000) '「ログアウト」ボタンを押す logintest.Sendkeys("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}") logintest.Sendkeys("{ENTER}") WScript.sleep(2000) '「ログイン画面へ」ボタンを押す logintest.Sendkeys("{TAB}{TAB}") logintest.Sendkeys("{ENTER}") WScript.sleep(1000) Loop data_csv.Close **MDBに接続して結果をテキスト出力する mdbfile = "test.mdb" filename = "output.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.OpenTextFile(filename, 8, True) On Error Resume Next Const adOpenStatic = 3 Const adLockOptimistic = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") objConnection.Open _ "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & mdbfile objRecordSet.Open "SELECT * FROM MSysObjects" , _ objConnection, adOpenStatic, adLockOptimistic objRecordSet.MoveFirst Do Until objRecordSet.EOF textFile.WriteLine objRecordSet.Fields.Item("name") objRecordSet.MoveNext Loop textFile.Close **メールを送る自前のSMTPサーバ Set oMsg = CreateObject("CDO.Message") oMsg.From = "{From Address}" oMsg.To = "{To Address}" oMsg.Subject = "windows標準機能からメール" oMsg.TextBody = "テストメッセージです" & vbCrLf & Now oMsg.Send 外部SMTPサーバを使う Set oMsg = CreateObject("CDO.Message") oMsg.From = "{From Address}" oMsg.To = "{To Address}" oMsg.Subject = "Test2" oMsg.TextBody = "テストメッセージです" & vbCrLf & Now oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp1.ibis.intec.co.jp" oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMsg.Configuration.Fields.Update oMsg.Send **ファイルを読み書きする '---------------------------------------------------------------------- ' QuickLogger v.0.1 ' Appends the date and a line of text to a file. ' Based on code written by Joshua Fitzgerald, 7/2005. ' Modified by Gina Trapani, 7/2006. '---------------------------------------------------------------------- Option Explicit Dim filename filename = "worklog.txt" Dim text text = InputBox("Add to "&filename&":", "Quick Logger") WriteToFile(text) Sub WriteToFile(text) Dim fso Dim textFile Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.OpenTextFile(filename, 8, True) textFile.WriteLine Now & " " & text textFile.Close End Sub

トップページ

2008-02-03T18:45:10+09:00

#search() &counter()人のアクセスがありました。 *[[Oracle]] *[[Oracleのテーブルサイズ見積]] *[[Oracle(PL/SQL)]] *[[ruby]] *[[javascript]] *[[subversion]] *[[wsh]] *[[UNIX]] *[[SQLServer]]

ruby

2008-02-03T18:44:18+09:00

#contents() *rubyのべんりなscript **xmlを解析するこんなxmlを解析するrubyスクリプト 62 Reissue Stratocaster 750.00 Fiesta Red 60s Reverse Headstock Stratocaster 699.00 Olympic White Standard Stratocaster 179.99 Cherry Sunburst require "rexml/document" include REXML # so that we don’t have to prefix everything # with REXML::... doc = Document.new File.new("guitars.xml") #全て表示する #print doc #名前を全て表示する doc.elements.each("guitars/make/model/name"){ |element| puts element.text } #価格を全て取り出して合計する total = 0 doc.elements.each("guitars/make/model/price") { |element| total += element.text.to_i } puts "Total is $" + total.to_s #属性yearを全て表示 XPath.each( doc, "//model/attribute::year"){ |element| puts element } **置換する ruby -i.bak rep.rb data.txtって書くと、data.txtにある文字列を置換する。元のファイルはrep.txt.bakという名前で保存される。 #rep.rb 置換する while gets gsub(/INITIAL *[0-9]*K *NEXT *[0-9]*K/,'INITIAL 8K NEXT 8K') print end **excelファイルをテキストに変換 #! C:\ruby-1.8\bin require 'win32ole' fname = ARGV[0] def getAbsolutePath filename fso = WIN32OLE.new('Scripting.FileSystemObject') return fso.GetAbsolutePathName(filename) end filename = getAbsolutePath(fname) xl = WIN32OLE.new('Excel.Application') book = xl.Workbooks.Open(filename) begin puts "

" + book.Name + "

" #各シートの処理 book.Worksheets.each do |sheet| puts "

" + sheet.Name + "

" #各行の処理 sheet.UsedRange.Rows.each do |row| #各セルの内容を配列に入れる record = [] row.Columns.each do |cell| record << cell.Value end puts record.join end end ensure book.Close xl.Quit end **excelファイルをgrep #! C:\ruby-1.8\bin ####################################### # grepxls.rb: エクセルファイルをgrepする # param1: ファイル名 # param2: grepする文字列 ####################################### require 'win32ole' #パラメータ取得 fname = ARGV[0] str = ARGV[1] re = Regexp.new(str) def getAbsolutePath filename fso = WIN32OLE.new('Scripting.FileSystemObject') return fso.GetAbsolutePathName(filename) end filename = getAbsolutePath(fname) xl = WIN32OLE.new('Excel.Application') book = xl.Workbooks.Open(filename) begin #各シートの処理 book.Worksheets.each do |sheet| rownum = 0 #各行の処理 sheet.UsedRange.Rows.each do |row| rownum += 1 #各セルの内容を配列に入れる record = [] row.Columns.each do |cell| record << cell.Value end #puts record.join(",") if record.join =~ re then puts book.Name + ":" + sheet.Name + ":" + rownum.to_s + ":" + record.join end end end ensure book.Close xl.Quit end

Oracle

2006-12-06T19:55:11+09:00

#contents *DBA **表に対するオブジェクト権限を付与するSQLを既存環境からつくる systemユーザでログインしてこのSQLを実行する SELECT 'GRANT ' || Privilege || ' ON ' || Table_Name || ' TO ' || grantee || ';' FROM DBA_TAB_PRIVS WHERE grantor ='{付与元ユーザ}' AND grantee = '{付与先ユーザ}' ORDER BY grantee; 結果はこんな感じ。 GRANT ALTER ON emp TO {付与先ユーザ}; GRANT SELECT ON emp TO {付与先ユーザ}; GRANT INSERT ON emp TO {付与先ユーザ}; ... 付与元ユーザでログインしてこのSQLを実行する **SQLトレースを取るための準備 autotraceに必要なロールを作成し、テーブルへの参照権限を与える SQL> connect sys as sysdba パスワードを入力してください: 接続されました。 SQL> @/oracle/product/9.2.0/sqlplus/admin/plustrce.sql 検索を実行するユーザでplan_tableを作成 SQL> connect user/pwd@sid SQL> @/oracle/product/9.2.0/rdbms/admin/utlxplan.sql **データファイルをいじる alter database datafile '/oracle/dbf/tbs_test_01.dbf' resize 40m; alter tablespace tbs_md01 add datafile '/oracle/dbf/tbs_test_02.dbf' size 20m; **レコード長をざっくり計算 select count(*) as column_cnt, sum(DATA_LENGTH) as record_length from user_tab_columns where table_name = 'T_JYUTMISI' date型は7byte、number型は一律22byteで計算してます。 **コアレス（連続領域をくっつける） alter tablespace tbs_goto_hell coalesce; でも、領域のお尻しか消せない。真ん中に空いた穴はそのまま。 **インポートとエクスポート imp {usr}/{pwd}@{sid} file=t_uri.dmp tables=T_uri log=imp_uri2.log ignore=y exp {usr}/{pwd}@{sid} file=t_uri.dmp tables=T_uri log=exp_uri.log direct=Y compress=Y ignoreオプションをつけると、tableが存在していても無理やり詰め込む **パッケージやファンクションの定義をみるパッケージに含まれる関数・プロシージャのパラメータを一覧表示 select * from ALL_ARGUMENTS where package_name='PK_TEST' order by position; パッケージ内の関数などを一覧表示 select PROCEDURE_NAME from ALL_PROCEDURES where object_name = 'PK_TEST'; **PCTUSEDとPCTFREE -PCTUSED(維持するべき使用率)が大きい --ブロックが満杯の状態を常に維持できる　　 →全件検索には有利 --INSERTのパフォーマンスは劣化する可能性あり　　 →もともとDELETEされることがないなら、関係ない -PCTFREE(データが増えた時のためにとる余裕％)が大きい --更新によってレコード長が長くなる場合に向いている（移行行を防ぐことができる） →UPDATEが行われない表には大きな値を設定する必要は無い。 --ブロックに余裕がある（空いている領域が多い→レコードは多く格納されていない） →全件検索が中心の表には不利（1ブロックあたりのレコード数が少ないということは同じ件数でも多くのブロックが必要） **テーブルが実際に使っている領域サイズ SELECT DISTINCT a.OWNER, a.SEGMENT_TYPE, a.SEGMENT_NAME, c.CREATED, a.TABLESPACE_NAME, NVL(F.BYTES, 0) AS NO_USE_SIZE, NVL(G.BYTES, 0) AS TOTAL_SIZE , NVL(G.MAXBYTES,0) AS MAX_SIZE, (NVL(G.BYTES, 0) - NVL(F.BYTES, 0)) AS USE_SIZE , b.FILE_NAME, b.BYTES FROM dba_segments a, dba_data_files b, all_objects c, (SELECT TABLESPACE_NAME, SUM(BYTES) BYTES FROM DBA_FREE_SPACE GROUP BY TABLESPACE_NAME ) F, (SELECT TABLESPACE_NAME, SUM(BYTES) BYTES, SUM(MAXBYTES) MAXBYTES FROM DBA_DATA_FILES GROUP BY TABLESPACE_NAME ) G WHERE a.TABLESPACE_NAME = b.TABLESPACE_NAME AND a.SEGMENT_NAME = c.OBJECT_NAME AND a.OWNER = c.OWNER AND c.SUBOBJECT_NAME IS NULL AND a.TABLESPACE_NAME = f.TABLESPACE_NAME AND a.TABLESPACE_NAME = g.TABLESPACE_NAME AND c.OBJECT_NAME LIKE 'T_JYUT%' ORDER BY a.OWNER, a.SEGMENT_TYPE, a.SEGMENT_NAME **LOCK情報 col USERNAME heading ユーザ名 format a7 col to_char(LOGON_TIME,'yyyy/mm/dd_hh24:mi:ss') heading 接続開始時刻 format a19 col SID heading SID format 999 col SERIAL# heading SERIAL# format 999999 col MACHINE format a15 col PROGRAM format a27 col STATUS format a8 col SERVER format a10 col OSUSER format a14 col OBJECT_NAME heading LOCK対象TBL format a20 set pagesize 999 set lin 120 prompt prompt === 接続ユーザ一覧 === select USERNAME, SID, SERIAL#, to_char(LOGON_TIME,'yyyy/mm/dd_hh24:mi:ss'), STATUS, SERVER, OSUSER, MACHINE, PROGRAM from v$session where USERNAME is not null order by LOGON_TIME; prompt prompt === LOCK 一覧 === select a.USERNAME, a.SID, a.SERIAL#, a.OSUSER, a.MACHINE, a.PROGRAM, c.OBJECT_NAME from v$session a, v$lock b, dba_objects c where a.SID = b.SID and b.ID1 = c.OBJECT_ID and c.OBJECT_ID in ( select ID1 from v$lock where TYPE = 'TM' ) order by b.SID, c.OBJECT_NAME; **セッション情報 Oracleに接続中のセッション情報を表示するセッションを切断する場合、systemユーザでログインして以下のコマンドを発行する alter system kill session '<下記SQLで取得したSID_SERIAL>'; COLUMN SID_SERIAL FORMAT A15 COLUMN osuser FORMAT A15 COLUMN username FORMAT A10 Column status format a10 Column Program format a60 SET PAGES 33 SET LINE 4000 SELECT sid || ',' || serial# AS SID_SERIAL, username , status , osuser, program,to_char(LOGON_TIME,'mm/dd hh24:mi') FROM V$SESSION; ** 指定したテーブルに付与されたインデックスをみる COLUMN TABLE_OWNER FORMAT A10 COLUMN TABLE_NAME FORMAT A15 COLUMN INDEX_NAME FORMAT A20 COLUMN COLUMN_NAME FORMAT A20 COLUMN COLUMN_POSITION FORMAT 99 set line 2000 SELECT TABLE_OWNER , TABLE_NAME , INDEX_NAME , COLUMN_NAME , COLUMN_POSITION FROM ALL_IND_COLUMNS WHERE TABLE_OWNER like UPPER('&TableOwner') AND TABLE_NAME like UPPER('&TableName') ORDER BY TABLE_NAME , INDEX_NAME , COLUMN_POSITION **現在実行されているSQL set pagesize 999 set lin 120 col USERNAME format a9 col SID format 999 col SERIAL# format 999999 col OSUSER format a15 col SQL_TEXT format a70 SELECT S.USERNAME, S.OSUSER, S.SID, S.SERIAL#, T.ADDRESS, T.SQL_TEXT FROM V$SQLTEXT T, V$SESSION S WHERE S.SQL_ADDRESS = T.ADDRESS AND S.SQL_HASH_VALUE = T.HASH_VALUE AND S.USERNAME is not null ORDER BY S.OSUSER, T.ADDRESS, T.PIECE; **コンパイルされているソースを見る set line 4000 set pages 0 select lpad(to_char(line),5,'0') || ': ' || text from all_source where owner = upper('&uid') and name like upper('%&pk_name%') and line >= &line_from and line <= &line_to and type = 'PACKAGE BODY' / **表領域を指定して格納されているオブジェクト、サイズを見る set line 5000 col tablespace_name format a30 col SEGMENT_NAME format a30 select TABLESPACE_NAME ,SEGMENT_NAME ,FILE_ID ,BLOCK_ID ,BYTES/1024 AS SIZE_KB ,BLOCKS from DBA_EXTENTS where TABLESPACE_NAME = 'TBS_WK01_I' union select TABLESPACE_NAME ,'' ,FILE_ID ,BLOCK_ID ,BYTES/1024 AS SIZE_KB ,BLOCKS from DBA_FREE_SPACE where TABLESPACE_NAME = 'TBS_WK01_I' order by file_id,block_id **表領域ごとの空き容量 col tablespace_name format a30 col free_kb format 999,999,999,999,999 select TABLESPACE_NAME, SUM(FREE_KB) AS FREE_KB from ( select A.TABLESPACE_NAME ,A.BYTES/1024 AS FREE_KB from DBA_FREE_SPACE A, ( SELECT TABLESPACE_NAME,FILE_ID,MAX(BLOCK_ID) AS max_block FROM DBA_EXTENTS GROUP BY TABLESPACE_NAME,FILE_ID ) B where A.TABLESPACE_NAME = B.TABLESPACE_NAME and A.FILE_ID = B.FILE_ID and A.BLOCK_ID > B.max_block ) GROUP BY TABLESPACE_NAME / **表領域ごとの使用率 col TABLESPACE_NAME format a20 col USED format a20 set line 2000 select A.TABLESPACE_NAME, A.INITIAL_EXTENT, A.NEXT_EXTENT, B.USED_SIZE_KB, To_Char( Round( B.USED_SIZE_KB / A.INITIAL_EXTENT * 100 ) ) || '%' AS USED from dba_tablespaces A, ( /* tablespaceの使用サイズを計算 */ select TABLESPACE_NAME, SUM(SIZE_KB) AS USED_SIZE_KB from ( select TABLESPACE_NAME ,SEGMENT_NAME ,FILE_ID ,BLOCK_ID ,BYTES/1024 AS SIZE_KB ,BLOCKS from DBA_EXTENTS union select TABLESPACE_NAME ,'' ,FILE_ID ,BLOCK_ID ,BYTES/1024 AS SIZE_KB ,BLOCKS from DBA_FREE_SPACE ) GROUP BY TABLESPACE_NAME ) B where A.TABLESPACE_NAME = B.TABLESPACE_NAME / **表領域ごとの使用量、空き、無駄領域を計算する set line 2000 col tablespace_name format a30 col data_kb format 999,999,999,999 col free_kb format 999,999,999,999 col lost_kb format 999,999,999,999 col used_pct format a10 select TABLESPACE_NAME, SUM(DATA_KB) AS DATA_KB, SUM(FREE_KB) AS FREE_KB, SUM(LOST_KB) AS LOST_KB, To_CHAR( Round( (SUM(DATA_KB) + SUM(LOST_KB)) / (SUM(DATA_KB) + SUM(FREE_KB) + SUM(LOST_KB)) * 100) ) || '%' AS USED_PCT from ( select TABLESPACE_NAME ,SEGMENT_NAME ,FILE_ID ,BLOCK_ID ,BYTES/1024 AS DATA_KB ,0 AS FREE_KB ,0 AS LOST_KB from DBA_EXTENTS union select A.TABLESPACE_NAME ,'' ,A.FILE_ID ,A.BLOCK_ID ,0 AS DATA_KB ,A.BYTES/1024 AS FREE_KB ,0 AS LOST_KB from DBA_FREE_SPACE A, ( SELECT TABLESPACE_NAME,FILE_ID,MAX(BLOCK_ID) AS max_block FROM DBA_EXTENTS GROUP BY TABLESPACE_NAME,FILE_ID ) B where A.TABLESPACE_NAME = B.TABLESPACE_NAME and A.FILE_ID = B.FILE_ID and A.BLOCK_ID > B.max_block union select A.TABLESPACE_NAME ,'' ,A.FILE_ID ,A.BLOCK_ID ,0 AS DATA_KB ,0 AS FREE_KB ,A.BYTES/1024 AS LOST_KB from DBA_FREE_SPACE A, ( SELECT TABLESPACE_NAME,FILE_ID,MAX(BLOCK_ID) AS max_block FROM DBA_EXTENTS GROUP BY TABLESPACE_NAME,FILE_ID ) B where A.TABLESPACE_NAME = B.TABLESPACE_NAME and A.FILE_ID = B.FILE_ID and A.BLOCK_ID < B.max_block ) GROUP BY TABLESPACE_NAME /

javascript

2006-11-17T10:59:38+09:00

*背景色のフェードアウト

fade out

subversion

2006-11-07T19:23:00+09:00

*subversion **TortoiseSVNの差分比較で文字化けするスペースやタブが半角の「サ」や「キ」になってしまう。これは、「ビュー」>「空白を表示」メニューを「非表示」に指定するととりあえず気にならない。

Oracleのテーブルサイズ見積

2006-10-25T20:53:40+09:00

coldfusionで作ったけど意味は覚えてない。このまま忘れてしまうのも勿体ないので残す。もし必要になったらソースを読んで考える。入力欄をクリアしました。
テーブル所有者は必須入力です。
テーブル名は必須入力です。
想定件数は必須入力です。
想定件数には数値を入れて下さい。
SELECT column_id, column_name, data_type, DECODE(data_type,'NUMBER',data_precision,data_length) || DECODE(data_scale,0,NULL,NULL,NULL, ','||data_scale) as col_size, DECODE(nullable,'Y','NULL','NOT NULL') as null_opt, DECODE(data_type,'NUMBER',data_precision,data_length) as data_length FROM ALL_TAB_COLUMNS WHERE owner = '#Variables.owner#' AND table_name = '#Variables.tname#' ORDER by column_id データがありません。
SELECT owner, index_name FROM ALL_INDEXES WHERE owner = '#Variables.owner#' AND table_owner = '#Variables.owner#' AND table_name = '#Variables.tname#' ORDER BY index_name データベース領域見積試算画面

データベース領域見積

開発環境の定義情報と想定件数からテーブル、インデックスに必要なサイズを見積ます。

テーブル

#Variables.tname#

No	カラム名	属性	項目長	NULL制約	データ長
#GET_TABLEINFO.column_id#	#GET_TABLEINFO.column_name#	#GET_TABLEINFO.data_type#	#GET_TABLEINFO.col_size#	#GET_TABLEINFO.null_opt#	#Variables.data_length#

１レコードが使用するサイズ	#Variables.row_space# byte
１ブロック内に格納できるレコード件数	#Variables.NumOfRowsInBlock# 件
想定レコード件数(未入力の場合１件とする)	#Variables.records# 件
使用するブロック数	#Variables.use_blocks# ブロック
必要なサイズ	#Variables.table_size#K
格納可能件数	#Variables.init_records# 件

インデックス情報

#GET_INDEX.index_name#

SELECT I.column_position, I.column_name, DECODE(T.data_type,'NUMBER',T.data_precision,T.data_length) as column_length FROM ALL_IND_COLUMNS I, ALL_TAB_COLUMNS T WHERE I.table_owner = T.owner AND I.table_name = T.table_name AND I.column_name = T.column_name AND I.index_owner = '#GET_INDEX.owner#' AND I.index_name = '#GET_INDEX.index_name#' ORDER BY column_position

No	カラム名	項目長
#GET_INDEXINFO.column_position#	#GET_INDEXINFO.column_name#	#GET_INDEXINFO.column_length#

項目長の合計	#Variables.total_length#
カラム数	#GET_INDEXINFO.RecordCount#
avg_entry_size	#Variables.avgEntrySize#
block for index	#Variables.blockForIndex#
必要なサイズ	#Variables.index_size#K

UNIX

2006-09-27T18:50:52+09:00

*忘れていたコマンド **入力を受け取る echo "運用日を入力して下さい[yyyymmdd]" set datetmp = $< set unyodate = `date_np $datetmp 1` echo $unyodate

Oracle(PL/SQL)

2006-09-27T18:49:32+09:00

*PL/SQL **いつも忘れる例外識別子 ACCESS_INTO_NULL 未初期化オブジェクトに代入した ORA-06530 COLLECTION_IS_NULL コレクション未初期化 ORA-06531 CURSOR_ALREADY_OPEN カーソルが既にオープンされている ORA-06511 DUP_VAL_ON_INDEX キーが重複した ORA-00001 INVALID_CURSOR カーソルがオープンされていない ORA-01001 INVALID_NUMBER 数値が正しくない ORA-01722 LOGIN_DENIED ログインできない ORA-01017 NO_DATA_FOUND SELECT INTO レコードなし ORA-01403 NOT_LOGGED_ON ログインできていない ORA-01012 PROGRAM_ERROR PL/SQL 内部エラー ORA-06501 ROWTYPE_MISMATCH 互換性なし ORA-06504 STORAGE_ERROR PL/SQL メモリ不足 ORA-06500 SUBSCRIPT_BEYOND_COUNT コネクション要素オーバ ORA-06533 SUBSCRIPT_OUTSIDE_LIMIT 有効範囲外添字 ORA-06532 TIMEOUT_ON_RESOURCE タイムアウト ORA-00051 TOO_MANY_ROWS 複数行あり ORA-01422 VALUE_ERROR 算術エラー ORA-06502 ZERO_DIVIDE ゼロの割り算 ORA-01476 -SQLCODEには値がコードがマイナス付きで設定される。ORA-06511 なら、-6511。但し、ORA-01403 は、SQLCODE として、+100 が返るので注意する。 -SQLERRM では、SQLCODE に対応するエラーメッセージを取得できる。errmsg := sqlerrm(-6511);

SQLServer

2006-09-27T18:23:33+09:00

*SQLServerの便利機能 **手軽なワークテーブルをつくる select * into #emp_tmp from emp "#"で始まる名前はワークテーブルとみなされる。 DBの接続が切れた時点で削除される。 [[Oracle]]にもあったらいいのに。