mysql 複数テーブルロックをかける

lock table A,B write;

注意点：
LOCK TABLES の使用時には、使用するテーブルをすべてロックし、またクエリで使用するエイリアスと同じ名前を使用する必要があります。1 つのクエリで同じテーブルを何度も指定する（エイリアスを使用して）場合は、各エイリアスに対してロックを取得しなければなりません。

VB 指定年月の最終日を取得

VB　指定年月の最終日を取得　

Public Function GetLastDayOfMonth(intMonth, intYear) As Date

    Return DateSerial(intYear, intMonth + 1, 0)

End Function

Vb DataGridView フォーカスを示す四角形点線枠を消す方法

Vb DataGridView フォーカスを示す四角形点線枠を消す方法
１．　CellPaintingイベントハンドラで自分で枠を描くように
　　'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object, _
        ByVal e As DataGridViewCellPaintingEventArgs) _
        Handles DataGridView1.CellPainting
    'ヘッダー以外のとき
    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then
        'フォーカス枠以外が描画されるようにする
        Dim paintParts As DataGridViewPaintParts = _
            e.PaintParts And Not DataGridViewPaintParts.Focus
        'セルを描画する
        e.Paint(e.ClipBounds, paintParts)

        '描画が完了したことを知らせる
        e.Handled = True
    End If
End Sub

参考URL

２．DataGridViewのShowFocusCuesをオーバーライドし、常にfalseを返すように
public class DatagridViewGS : DatagridView
　{
　　　protected override bool ShowFocusCues
　　　{
　　　　　get { return false; }
　　　}
　}