アラフィフおやじログ

で実際にフォームでプログラムを使用する際に埋め込んでみたわけです。 まあグタグタですな。ダイアログボックスはNETで調べると案外出てます。色々調べて完成はさせてみましたが、フォーマット固定が多いんでどう使うかは考えものです。 アップローダあればアップして、いろんな人に評価して頂いてソースを綺麗にしたいです。 '# '#　参照ボタンクリック(CSV取込) '# Private Sub Cmd_import_Click() '参照ボタンクリック時(データインポート) Dim j, k As Integer '複数strpass選択時のカウンタ Dim m, n As Integer 'テーブル名取得用カウンタ Dim strpass As String 'インポート対象パス Dim strVal As Boolean '関数結果受け取り Dim strFName As String 'テーブル名取得用、ファイル名入力用 Dim strpassW As String 'インポートパス分割ワーク用 Dim strMsg As String Dim strSheetName As String 'EXCEL取込時のシート名格納用 'テーブルバックアップ用 Dim strTableName As String 'テーブル名 Dim db_Dao As DAO.Database Dim TableLoop As TableDef '拡張子判別用 Dim strEXT As String '拡張子格納用 '関数受取 Dim strRtn A...

 この辺りはNETで調べれば出てくるんでまあ掲載の必要もないですが・・・・  参考までに・・・・。EXCELのインポートとエクスポート部分です。   Function FromExcel(strTableName As String, strImportTableName As String, strXlsFileName As String, strSheet As String) '==================================================================== ' テーブルから定義情報を取得してインポートする。 ' 可変EXCEL(カラム追加の可能性のあるテーブル)インポート関数 ' 2010.05.19 Created By M.Nishimura '＊使い方 ' str_rtn = FromExcel(定義テーブル名,取込テーブル名,EXCELファイル名) '＊戻り値 '　True：処理正常終了 '　False：処理失敗 ' '==================================================================== Const COLUMCNT = 256 'カラム数 Dim db_Dao(1) As DAO.Database Dim Rst_Dao(1) As DAO.Recordset Dim Qdf_Dao As DAO.QueryDef Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim vntList As Variant 'EXCELのセル数値取得 Dim strTname As String '定義テーブル名 Dim striTname As String 'インポート先テーブル名 D...

 データ並べ替え部分です。ここがこのACCESSのキモかも しれないです。まあ頭は使いました。（笑） Function Sorter(strConfTableName As String, strInTableName As String, strOutTableName As String) As String '========================================================================= '関数名：Sorter (ファイル変換処理用) ' '機能　：入力テーブルを受け取って定義テーブルに設定されたとおりに並替して '　　　　指定されたテーブルに出力する。 ' '使い方：strRet = SampleTemplate1("定義テーブル名","入力テーブル名","出力テーブル名") ' '戻り値： "True"　正常終了 ' "False" 異常終了(エラーNOを持たせる場合はそれぞれで個別定義必要) '========================================================================= Const MAXBYTE = 255 '出力テーブル作成時のフィールドデータのサイズ Const COLUMCNT = 256 'カラム数 '//* 変数定義 Dim strConf As String '定義テーブル Dim strIFile As String '入力テーブル Dim strOFile As String '出力先テーブル Dim strClum(COLUMCNT) As String Dim strFieldName(COLUMCNT) As String 'フィールド名(カラム数分の配列) Dim balRe...

 とりあえずCSV制御部分の備忘録 テーブルで入力するファイルを定義し、出力したいテーブルと出力項目を テーブルで設定します。  テーブルは別途用意する必要があります。（笑） Function FromCSV(strTableName As String, strImportTableName As String, strCsvFileName As String, strMode As String) As String On Error GoTo ERROR_SUB '==================================================================== ' テーブルからCSVの定義を取得してインポートする。 ' 可変CSV(カラム追加の可能性のあるテーブル)インポート関数 ' 2010.02.02 Created By M.Nishimura '＊使い方 ' str_rtn = FromCSV(定義テーブル名,取込テーブル名,CSVファイル名) '＊戻り値 '　True：処理正常終了 '　False：処理失敗 ' '==================================================================== Const COLUMCNT = 256 'カラム数 Dim db_Dao(1) As DAO.Database Dim Rst_Dao(1) As DAO.Recordset Dim Qdf_Dao As DAO.QueryDef Dim strTname As String 'テーブル名 Dim dbsCurrent As DAO.Database Dim strSQL As String Dim tdfNew As DAO.TableDef Dim tdffld(COLUMCNT) As DAO.Field Dim strClum(COLUMCNT) A...

過日みたドラマ、スペシャルドラマ「 ハッピーバースデー 」見てて 何か手を打っておかないと日本という国はだめになるんじゃないかなと思った。 そう思った理由は3点ある。 1)家族のつながりが希薄になっていて利己的な人間が増えてきている。 2)物質が豊かになったことで心が貧しくなり、短絡的な思考の人間が増えてきている。 3)失敗は制度や仕組みのみの責任で自分は悪くないという「他人が悪い思想」 これまで50年ほどを勝手に分析すると以下のように分けられるのではないかと思う。 社会学者ではないので正確ではないし、検証した結果ではないが、自分が感じた 時代の空気からの結論だ。 1960年～1970年代の高度成長：過去の思想の否定(家族の崩壊の始まり) 1980年～1990年代のジャパンアズNO1：傲慢、狭量(文化崩壊の始まり) 1990年～2000年代の失われた10年：ギスギス社会の始まり(家族、文化、地域の崩壊) 2000年～2010年代の第2の失われた10年：将来に希望を持てない社会(将来の希望の崩壊) 特に2000年以降は実際に働いている中での繁栄を知らない世代が社会を 担っている状況が続いているし、社会も低迷が続いているという状況が かれこれ10年以上続いている。 http://jbpress.ismedia.jp/articles/-/866?page=3 2000年代以降のギスギス社会を経験した人間が中堅となる2010年が ひとつのターニングポイントになるのではないかと考えている。 年寄り達(1960年生まれ、いわゆるバブル世代) 政治、経済、文化全てが崩壊を始めるのが2010年を始まりとするように思えてならない。 繁栄を知らない世代は過去の繁栄を知っている世代の考え方が分からない。 メール等で連絡が取れれば思想や背景の土台が異なっている「古い世代」と コミュニケーションをとりたいとも思わない。

何を血迷ったのか中小企業診断士を目指そうと考えた。 というのも最終目標としてCIOを目指す上で（人からは笑われるかもしれないが） コンサルタントとしての経験も必要だし、その上で中小企業診断士の資格があれば 少しは武器になるんじゃないかと思ってのこと。まああほですな・・ １：学習に当たって参考サイトをまとめることにする。 中小企業診断士合格案内 http://www.1sigyou.com/sindansi.html 中小企業診断士への勉強で自己啓発 http://www.h7.dion.ne.jp/~shindan/ 中小企業診断士オンラインラーニング http://www.commlife.net/sme/ ブログ（今年から始めてる人） http://ioi.seesaa.net/article/118613048.html 通勤講座（ダウンロードしてみた。ipod買おうかな・・・） http://manabiz.jp/ http://manabiz.seesaa.net/ 独学リンク集 http://examiners.hp.infoseek.co.jp/ 通信教育比較 http://www.lifelongstudy.info/kind/vol10.html  関連資格まとめてくれてはる   http://ameblo.jp/mezase-shindanshi/theme-10012097401.html ２：当面の目標 ２０１０年１月～２月　  簿記３級（会計関連）   1月～４月 　 応用情報技術者試験（経営情報システム）   ４月～６月　 簿記２級（会計関連） ＊いつ受験するか、どのように学習を進めるかををきちんと検討する 経済学・財務、ビジネス法務、運営管理といった部分を考える。　　　　　

ここまででデフォルトのイメージはできたのでひとまずまとめ。 こいつをDVDなりに焼いておけば、コピーするだけでVirtualPC上での まっさらなサーバ完成状態を得ることができる。で、今後はWebサーバ 構築とメールサーバ構築+Webメールサーバかな？ 1:インストール作業 ■CentOS5.4をVirtualPCにインストール 事前準備 ■CentOS5.4をVirtualPCにインストール　その1 ■CentOS5.4をVirtualPCにインストール　その2 ■CentOS5.4をVirtualPCにインストール　その3 ■CentOS5.4をVirtualPCにインストール　その4 ■CentOS5.4をVirtualPCにインストール　その5 ■CentOS5.4をVirtualPCにインストール　その6 ■CentOS5.4をVirtualPCにインストール　その7 (1)CentOSイメージのダウンロード (2)ダウンロードしたファイルをチェックする。 (3)VirtualPCのマシン作成 (4)DVDイメージからOSインストール ・ホスト名、IPアドレス設定 ・rootパスワード設定 ・インストールアプリ選択 ・再起動 ・その他諸設定 2:インストール後設定 ■ CentOS5.4インストール後の設定　その1 (1)管理用ユーザ追加(管理用) (2)root昇格ユーザ限定設定 (3)SSH権限制限 ・sshd_configファイル編集 ・sshd再起動 ・ssh接続ユーザ制限 (4)接続制限 ・hosts.allowファイルを編集し内部からの接続を許可する。 ・hosts.denyファイルの編集 ・IPV6無効化 (5)プリントサーバサービス停止 (6)バッファオーバフロー防御 (7)不要サービス停止 (8)TeraTermをWindowsにインストール ■ CentOS5.4インストール後の設定　その2 (9)時刻設定 (10)パッチ適用 (11)証拠隠蔽ソフト確認ツールインストール ・chkrootkitダウンロード ・chkrootkit展開 ・chkrootkitインストール（指定ディレクトリへコピー） ・ダウンロード分残骸ファイル削除 ・コマン...