VBS常用常數變數值

作者： -

'ADO Status
'-----------------------------
adStateClosed = 0              'The object is closed
adStateOpen = 1                'The object is open
adStateConnecting = 2          'The object is connecting
adStateExecuting = 4          'The object is executing a command
adStateFetching = 8            'The rows of the object are being retrieved
'-----------------------------

'ADO Data Types
'-----------------------------
adEmpty = 0                    'No value
adSmallInt = 2                'A 2-byte signed integer.
adInteger = 3                  'A 4-byte signed integer.
adSingle = 4                  'A single-precision floating-point value.
adDouble = 5                  'A double-precision floating-point value.
adCurrency = 6                'A currency value
adDate = 7                    'The number of days since December 30, 1899 + the fraction of a day.
adBSTR = 8                    'A null-terminated character string.
adIDispatch = 9                'A pointer to an IDispatch interface on a COM object. Note: Currently not supported by ADO.
adError = 10                  'A 32-bit error code
adBoolean = 11                'A boolean value.
adVariant = 12                'An Automation Variant. Note: Currently not supported by ADO.
adIUnknown = 13                'A pointer to an IUnknown interface on a COM object. Note: Currently not supported by ADO.
adDecimal = 14                'An exact numeric value with a fixed precision and scale.
adTinyInt = 16                'A 1-byte signed integer.
adUnsignedTinyInt = 17        'A 1-byte unsigned integer.
adUnsignedSmallInt = 18        'A 2-byte unsigned integer.
adUnsignedInt = 19            'A 4-byte unsigned integer.
adBigInt = 20                  'An 8-byte signed integer.
adUnsignedBigInt = 21          'An 8-byte unsigned integer.
adFileTime = 64                'The number of 100-nanosecond intervals since January 1,1601
adGUID = 72                    'A globally unique identifier (GUID)
adBinary = 128                'A binary value.
adChar = 129                  'A string value.
adWChar = 130                  'A null-terminated Unicode character string.
adNumeric = 131                'An exact numeric value with a fixed precision and scale.
adUserDefined = 132            'A user-defined variable.
adDBDate = 133                'A date value (yyyymmdd).
adDBTime = 134                'A time value (hhmmss).
adDBTimeStamp = 135            'A date/time stamp (yyyymmddhhmmss plus a fraction in billionths).
adChapter = 136                'A 4-byte chapter value that identifies rows in a child rowset
adPropVariant = 138            'An Automation PROPVARIANT.
adVarNumeric = 139            'A numeric value (Parameter object only).
adVarChar = 200                'A string value (Parameter object only).
adLongVarChar = 201            'A long string value.
adVarWChar = 202              'A null-terminated Unicode character string.
adLongVarWChar = 203          'A long null-terminated Unicode string value.
adVarBinary = 204              'A binary value (Parameter object only).
adLongVarBinary = 205          'A long binary value.
'AdArray = 0x2000              'A flag value combined with another data type constant. Indicates an array of that other data type.
'-----------------------------

'CommandTypeEnum Values
'-----------------------------
adCmdUnspecified = -1           'Does not specify the command type argument.
adCmdText = 1                   'Evaluates CommandText as a textual definition of a command or stored procedure call.
adCmdTable = 2                 'Evaluates CommandText as a table name whose columns are all returned by an internally generated SQL query.
adCmdStoredProc = 4             'Evaluates CommandText as a stored procedure name.
adCmdUnknown = 8               'Default. Indicates that the type of command in the CommandText property is not known.
adCmdFile = 256                 'Evaluates CommandText as the file name of a persistently stored Recordset. Used with Recordset.Open or Requery only.
adCmdTableDirect = 512         'Evaluates CommandText as a table name whose columns are all returned. Used with Recordset.Open or Requery only. To use the Seek method, the Recordset must be opened with adCmdTableDirect. This value cannot be combined with the ExecuteOptionEnum value adAsyncExecute.
'-----------------------------

'ParameterDirectionEnum Values
'-----------------------------
adParamUnknown = 0               'Direction is unknown
adParamInput = 1                 'Input parameter
adParamOutput = 2                'Output parameter
adParamInputOutput = 3           'Both input and output parameter
adParamReturnValue = 4           'Return value
'-----------------------------

留言

張貼留言

這個網誌中的熱門文章

ORA-12514: TNS: 監聽器目前不知道連線描述區中要求的服務

作者： -
圖片
環境： [Server] Windows 2008 Server Oracle Database 11g R2 [Client] Windows 7 Oracle Client 11g R2 Oracle Database安裝完後，在Client電腦也完成Oracle Client安裝，tnsnames.ora的配置也都完成了，但是使用sqlplus連線DB時卻出現下面的錯誤訊息。 在排除此問題前先確認，在Oracle Database 的本機使用sqlplus是可以連線的，由此先確定Database Service是有正常運作的。 目前遇過幾個況狀會導致這個錯誤訊息。 <狀況1>Server的主機網域(domain)錯誤或未指定，導致解析不到SID tnsnames.ora的SERVICE_NAME必需加入網域名稱 <狀況2>Oracle Database Listener未定設SID 1. 登入sys帳號後，利用下面指令可以查出SID名稱。 select instance_name from v$instance; INSTANCE_NAME ---------------- aehome 2. 檢查lListener服務狀態 發現沒有aehome的Listener，所以Client端才會無法利用TNS Name的方式連線。 3. 修改listener.ora，加入aehome的監聽。 4. 重新啟動Listener 重啟後發現已經有監聽aehome了。 5. 此時Client已可以正常使用sqlplus連線了。
閱讀完整內容

Oracle 例外控制(Exception Control)

作者： -
寫Oracle Stored Procedure時, 也和一般程式開發一樣, 也會遇到邏輯例外而需要控制。 1. Oracle已存在Exception例外處理 DECLARE l_row abc%ROWTYPE; BEGIN BEGIN select * INTO l_row from abc where abc01='123@asd'; EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.put_line('--> NO_DATA_FOUND err is ' || SQLERRM); WHEN OTHERS THEN DBMS_OUTPUT.put_line('--> OTHER err is ' || SQLERRM); END; END; ** 則會顯示 "--> NO_DATA_FOUND err is ORA-01403: no data found" ** 如果沒有處理"WHEN NO_DATA_FOUND THEN", 則會跑到"OTHERS"中 1.1 Oracle已存在Exception例外處理(但自定Exception名稱) DECLARE l_row abc%ROWTYPE; my_no_data_found_exp EXCEPTION; PRAGMA EXCEPTION_INIT(my_no_data_found_exp, -01403); --no data found Exception BEGIN BEGIN select * INTO l_row from abc where abc01='123@asd'; EXCEPTION WHEN my_no_data_found_exp THEN DBMS_OUTPUT.put_line('--> NO_DATA_FOUND err is ' || SQLERRM); WHEN OTHE
閱讀完整內容

Oracle 工作排程 DBMS_JOB 筆記

作者： -
1. 設定初始化參數 job_queue_processes : oracle 允許執行的最大任務數量 specifies the maximum number of processes that can be created for the execution of jobs. It specifies the number of job queue processes per instance (J000, ... J999). 最大值為 1000 sql> alter system set job_queue_processes=n; (n>0) 2. 查詢背景執行程序 sql> select name, description from v$bgprocess 3. 建立function or Stored Procedure 4. 執行程序 declare jobno number; begin dbms_job.submit(jobno, 'sp_test_alex;', sysdate, 'sysdate+1/1440'); dbms_output.put_line(jobno); commit; end; / 另一種寫法 declare jobno number; begin dbms_job.submit( job => :jobno, what => 'SP_SYNC_MES_ITEM;', next_date => SYSDATE, interval => 'SYSDATE + 10/1440' ); dbms_output.put_line(jobno); commit; end; 5. 查詢執行程序 sql> select * from user_jobs; 6.  移除程序 begin dbms_job.remove(141); end; / 7. 暫停程序 begin dbms_job.brok
閱讀完整內容