開発のあいまに

速度測定 メモ

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

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接続 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()

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アプリケーションとは別もののようです。

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

Combobox メモ

１、コンボボックスにアイテムを纏めて追加。

        Dim strItems(2) As String
        strItems(0) = "(未定義)"
        strItems(1) = "主訴"
        strItems(2) = "既往歴"
　     ComboBox1.Items.AddRange(strItems)

DateTimePicker メモ

１、日付文字列をDateTimePickerに設定。

　DateTimePicker1.value = DateTime.Parse("2007/9/11")

ダイアログ メモ

１、閉じた際にそのステータスをチェックする形で、ダイアログを表示する。

        If frm.ShowDialog <> DialogResult.OK Then
            Exit Sub
        End If

DataTable メモ

１、任意行をDataRow型変数へ。
        Dim dtRow() As DataRow = DataTable1.Select("列名=値")