開発のあいまに

速度測定 メモ

'ミリセカンドで経過時間を測る

Dim t1 As Integer
t1 = System.Environment.TickCount

　・・・・・・測定したい処理達

t1 = System.Environment.TickCount - t1

　

'DataGridView の AutoSizeColumnsModeプロパティがAllCellsになっていると、処理時間が50倍くらいになるので、処理中は以下のようにNoneにする必要あり。

dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None

　・・・・・・DataGridViewへの処理達

dgvDF.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

DB接続 DELETE （VS2005/VS2008）

'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\Program Files\NXTM\KeywordAnalyzer\base.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'DELETEコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "DELETE FROM PurchaseHistory"

'データベースをオープン
db.Open()

'コマンドを実行
cmnd.ExecuteNonQuery()

'データベースをクローズ
db.Close()

DB接続 UPDATE （VS2005/VS2008）

'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\test.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'UPDATEコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "UPDATE PurchaseHistory SET intUserID=3 WHERE intUserID=2"

'データベースをオープン
db.Open()

'コマンドを実行
cmnd.ExecuteNonQuery()

'データベースをクローズ
db.Close()

DB接続 INSERT （VS2005/VS2008）

'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\test.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'INSERTコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "INSERT INTO PurchaseHistory (intUserID, intProductID, dtPurchase) VALUES (2, 2, 2008/01/01)"

'データベースをオープン
db.Open()

'コマンドを実行
cmnd.ExecuteNonQuery()

'データベースをクローズ
db.Close()

DB接続 SELECT （VS2005/VS2008）

'コネクションストリングを用意
Dim UserID As String = "Admin"
Dim Password As String = ""
Dim cnctStr As String
Dim MDBFile As String = "C:\test.mdb"
cnctStr = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
cnctStr &= "Data Source=""" & MDBFile & """;"
cnctStr &= "User ID=" & UserID & ";"
cnctStr &= "Jet OLEDB:Database Password=" & Password

'データベースとの接続関係を設定
Dim db As New System.Data.OleDb.OleDbConnection
db.ConnectionString = cnctStr

'SELECTコマンドを作成
Dim cmnd As New System.Data.OleDb.OleDbCommand
cmnd.Connection = db
cmnd.CommandText = "SELECT * FROM PurchaseHistory"

'データベースをオープン
db.Open()

'データリーダを用意
Dim dbrd As OleDbDataReader
dbrd = cmnd.ExecuteReader

'列総数を取得
Dim cn As Integer
cn = dbrd.FieldCount

'レコードがあるかチェック
If dbrd.HasRows = True Then

    'データリーダを次の行に位置付ける。
    'この場合、列タイトル行からレコード行へ
    dbrd.Read()

    cmbbx.BeginUpdate()

    ' 取得できたレコード数分ループし、コンボボックスにセット。
    Dim e As IEnumerator = dbrd.GetEnumerator()
    Do
        cmbbx.Items.Add(dbrd(0).ToString)
    Loop While e.MoveNext

    cmbbx.EndUpdate()

End If

dbrd.Close()

'データベースをクローズ
db.Close()

なぜ個人の力を大きくしなければならないのか

一部の人に既得権が集中すると、大多数の人は疲弊して行き、社会全体の多様性が失われる。多様性が失われた世界では、対応できる危機が限られ、いずれは滅亡する。

個人の力を大きくすることで、既得権が集中しにくい状態になり、社会はより多様化していく。

明らかに世界は「良い場所」になっているよ

明らかに世界は「良い場所」になっているよ。これまでは大金を持った大きな組織の人達でなければできなかったことも、個人ができるんだから。

The world's clearly a better place. Individuals can now do things that only large groups of people with lots of money could do before.

スティーブ・ジョブス（Steve jobs）

Visual Studio 2005 から 2008 への移行

Visual Studio 2005 （.Net 2.0）で開発したWindowsフォームアプリケーションを、Visual Studio 2008 （.Net 3.5）のWPFアプリケーションに移行したところ、まったくコンパイルが通りませんでした。ほぼ全コードでエラー。

Visual Studio 2008 （.Net 3.5）のWindowsフォームアプリケーションへなら、すんなりコンパイルが通りました。

WPFは既存フレームワークに、追加された機能だと思っていたのですが、どうも、今までのWindowsアプリケーションとは別もののようです。

ウェブ時代 ５つの定理

ウェブ時代 5つの定理 この言葉が未来を切り開く!を読み終わりました。

タイトル的に、同著者のウェブ進化論 本当の大変化はこれから始まるとウェブ時代をゆく ─いかに働き、いかに学ぶかを纏めたものなのかもと思っていたのですが、それらとはまた別の趣旨で書かれた本でした。

著者がビジョナリーとしている著名人の、クールな言葉を取り上げ、その言葉が示す本質や革新性について、著者の経験やアイディアを交えて纏められた本です。

梅田望夫氏の著書はポジティブなのですが、日本のＷＥＢ社会を覆い尽くす匿名性については、かなり危機感を持たれているようで、そこだけはネガティブでした。

個人的に最も感動したのは、自分が始めて読んだ経営戦略の本「インテル戦略転換」をお勧めしていた事でした。この本を読んだという方には、まだ出逢った事がありません。

　以下引用

私の専門はIT産業の経営なのですが、考え方の核になったのは、アンディ・グローブの思想です。経営について指針となる本を一冊だけ選べと言われたら、迷わず、彼のOnly the Paranoid Survive: How to Exploit the Crisis Points That Challenge Every Companyを挙げます。

激しい技術革新が産業全体に大変化を起こし続けるIT産業の世界において、経営とはどういうことなのか、経営者とは何をするべきなのか、そこに携わる我々一人ひとりはどういう気構えで生きて行かなければならないのか、といった本質的な問題について、優れた示唆を与えてくれる本です。

　

他にも、個人的には以下に惹かれました。

ネットが負ける方に賭けるのは愚かだ

水道哲学

シリコンバレー・ベンチャーのチームワーク

新しい時代のマネジメントの黄金則

win32APIのインポート

<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function BitBlt(ByVal hdcDest As IntPtr, _
    ByVal nXDest As Integer, ByVal nYDest As Integer, _
    ByVal nWidth As Integer, ByVal nHeight As Integer, _
    ByVal hdcSrc As IntPtr, _
    ByVal nXSrc As Integer, ByVal nYSrc As Integer, _
    ByVal dwRop As Integer) As Boolean
End Function