2017-01-01から1年間の記事一覧

閑話休題

THE MANZAI を youtubeと半々に眺めていた。 最近の高校生はこのスタイルが多いみたい。 だから3分未満が多いのか? 細切れ時間用の小ネタ集か。 プレマスターズって 和牛と流れ星となんだっけ? 忘れたけど、 和牛はできあがってるなぁ、うまい。 ただM1の…

OUTER JOINができません

不動産情報の管理データベースで、 管理人がいるところと、いないところがある。 管理人の名前は名前テーブルで管理している。 管理人の部屋は管理人テーブルで管理している。 ある団地の部屋情報を呼び出すときに、その部屋の管理人まで呼び出そうとすると …

試行錯誤の結果

データ貼付時に200レコード目から、100レコード目から繰り返す現象について 貼り付け方(方法)かな?と文法を調べてみたが ・Range("A2").CopyFromRecordset Data:=rs ・Range("A2").CopyFromRecordset rs では違いがなかった。 手動では問題ないので、手動…

ん?何が原因だ?なんか制約があるのか?

目的:Excel2016でVBAを利用し、Oracle12cからデータを取得し、Excelで加工する。 環境:Windows10(64bit) Excel2016(32bit) Oracle12c oo4oで問題なく取得できていたので、ADOに書き直して実行すると ORDER BY が効いていない。 SELECT 管轄, 団地コード, ・…

ADO使用の参照設定

ADOを使用する場合、開発タブ(通常表示されていない)からVisual Basicを起動し 参照設定 - VBAProject でチェックを入れる Microsoft ActiveX Data Objects 6.0 Library ・・・・・・Excel2007 Microsoft ActiveX Data Objects 2.8 Library ・・・・・・Ex…

Excel2016で手動でデータ抽出してみる

↓ Microsoft Query から OracleDDD を選ぶ ↓ サービス名 Oracle_DB ユーザー名 scott パスワード tiger ↓ ↓ で、必要に応じて抽出条件とか並べ替え(出力順)を指定し ↓ これをマクロで記録して、ソースを表示させると Sub Macro1() '' Macro1 Macro ' With …

ADOに置きなおす

oo4oをADOへ置きなおす。だからボタン2。 参照設定でMicrosoft ActiveX Data Objects 2.8 Libraryにチェック! Public Sub CommandButton2_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim selCmd As String'接続cn.ConnectionS…

oo4oではOracle12cからデータが抽出できない

Oracle11gで運用している○○DBと、NTT光Fletsを介して、 Windows7上のExcel2013VBAでデータを取得していた。 VBAでのDBへのアプローチはoo4oで行っていた。つまり Public Sub CommandButton1_Click() Dim oraSS As OracleInProcServer.OraSessionClass Dim or…