クライアントPCのオラクルのバージョンを取得

sqlplus -version

Oracleのサーバーのバージョンも確認できる (使い道不明)

select * from v$version

SVNのコマンドをバッチで自動起動する

SVNコマンド

TortoiseProc.exe /command:update /path:"D:\SVN" /closeonend:1

C1FlexGridから既存のExcelに出力する方法①

Private Function Func_ExcelOut(Grd As C1FlexGrid, ExcelPath As String)

    Dim dt As DataTable = Grd.DataSource

    'DataTableを二次元配列に格納する
    Dim data(dt.Rows.Count - 1, dt.Columns.Count - 1) As Object
    For y As Integer = 0 To dt.Rows.Count - 1
        For x As Integer = 0 To dt.Columns.Count - 1
            data(y, x) = dt.Rows(y)(x).ToString
        Next
    Next

    Dim xlsApp As Excel.Application
    Dim xlsBook As Excel.Workbook
    Dim xlsSheet As Excel.Worksheet
    Try
        'Excelを起動する
        xlsApp = New Excel.Application
        xlsBook = xlsApp.Workbooks.Open(ExcelPath, [ReadOnly]:=True)
        xlsSheet = DirectCast(xlsBook.Worksheets(1), Excel.Worksheet)

        'Excelの開始位置
        Dim xlsRowS As Integer = 11
        Dim xlsColS As Integer = 1
        Dim range1 As Excel.Range = xlsSheet.Cells(xlsRowS, xlsColS)
        Dim range2 As Excel.Range = xlsSheet.Cells(dt.Rows.Count - 1 + xlsRowS, dt.Columns.Count - 1 + xlsColS)
        
	'データ代入
	xlsSheet.Range(range1, range2).Value = data
	'表示
        xlsApp.Visible = True
    Catch
    Finally
        xlsSheet = Nothing
        xlsBook = Nothing
        xlsApp = Nothing
    End Try
End Function

OracleにLEFT, RIGHT関数が無い・・・

SUBSTRを使ってLEFT, RIGHT関数のような動きをさせる

文字列の1文字目から右に5文字切り抜く

実例

SUBSTR('abcd1234', 1, 5)

abcd1

◆RIGHT代替案

SUBSTR(文字列, -5)

文字列の末尾(右)から5文字目を切り抜く

実例

SUBSTR('abcd1234', -5)

d1234

SUBSTRBの場合は全角2バイトでややこしいので説明は割愛

ADOを使用してDBからExcelにデータを引くOracleのADOを使いこなす方法

'定義
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset

'Oracle接続
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "DSN=****;UID=****;PWD=****;"
adoConn.Open

Dim mySQL As String
mySQL = "SELECT ******** "

'SQL発行
Set adoRS = New ADODB.Recordset
Set adoRS = adoConn.Execute(mySQL)

'A1にべたっと貼り付ける
sheet1.Range("A1").CopyFromRecordset adoRS

実行すると定義エラーになる

INDIRECT関数を使用して別シートのデータを参照

=INDIRECT(A1&"!A1")
=INDIRECT(A2&"!A1")

空白を含むシート名を参照する場合のエラーの回避方法は?

=INDIRECT("'"&A2&"'!A1")

SUMIFなどの関数で合計を出す場合でも使用できる。

=SUMIF(INDIRECT("'"&W$4&"'!$I$5:$N$200"),$D5,INDIRECT("'"&W$4&"'!$N$5:$N$200"))

Win10でFastCopyをコマンド実行するとエラーになる Ver3.06

@ECHO OFF
ECHO FastCopyによる同期を開始
pause

ECHO 同期開始 %date% %time%

path D:\FastCopyTest\FastCopy306
fastcopy.exe /job="backup1" /force_close

ECHO 同期完了 %date% %time%
pause

解決方法 Ver3.06→3.32更新

Win10の既定のブラウザ 「エッジ」

IE起動のショートカットにURLの引数を追加

①IEのショートカット作成

C:\Program Files\Internet Explorer\iexplore.exe

②ショートカットのプロパティ変更

"C:\Program Files\Internet Explorer\iexplore.exe" google.com