投稿

投稿日:

Visual Studio でエディットコンティニューが使えない場合(64bit)

Visual Studio 2005以降には，
プログラムを実行中にブレークポイントなどで実行を中断して
その場でコードを変更できるエディットコンティニューがあるが，
この機能は64bitアプリでは使えない．

ターゲットCPUがAny CPUの場合，
開発マシンのOSを64bitに替えると
64bitアプリとして走るからこれを知らないと
急にエディットコンティニューが使えなくなって困る．

この場合，エディットコンティニューを使えるようにするには，
ターゲットCPUをx86にすればよい．

[プロジェクトのプロパティ] – [コンパイル] – [詳細コンパイル オプション] – [ビルドの詳細設定] – [ターゲット CPU] を x86 に変更．

エディット コンティニュ (Visual Basic) (MSDN)

投稿日:

Excel VBA + ADO 複数のクエリーの結果をレコードセットに取得

Dim Cn As ADODB.Connection

Sub Test()

    Dim rst As New ADODb.Recordset
    Dim cmd As ADODb.Command
    Set cmd = New ADODb.Command
    cmd.ActiveConnection = Cn
    cmd.CommandTimeout = 30

    ‘複数のSELECT文
    cmd.CommandText = “SELECT * FROM TableA; SELECT * FROM TableB ”
    cmd.CommandType = adCmdText

    ‘実行
    rst.Open cmd, , adOpenForwardOnly, adLockReadOnly
    Set cmd = Nothing

    ‘最初のSELECT文の結果
    Sheet1.Cells(1, 1).CopyFromRecordset rst

    ‘次のレコードセットへ
    Set rst = rst.NextRecordset()

     ‘2番目のSELECT文の結果
    Sheet2.Cells(1, 1).CopyFromRecordset rst

    rst.Close
    Set rst = Nothing

End Sub

投稿日:

VB2005 IPアドレス取得

IPアドレスは今まで，
System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0)
で取得できていたが最近のPCはいろいろなIPアドレスが取れてしまうので
これではダメだ．
リストの中からIP4のアドレスを選択して取らなければいけない．

例：

    Private Sub GetIPAddreess()

        ‘ホスト名を取得
        Dim HostName As String = System.Net.Dns.GetHostName

        ‘IPアドレス等の情報を取得
        Dim HostInfo As Net.IPHostEntry = System.Net.Dns.GetHostEntry(HostName)

        ‘複数取れるのでループして表示
        For i As Integer = 0 To HostInfo.AddressList.Length – 1

            Dim str1 As String = i.ToString + vbCrLf

            ‘IPアドレス
            Dim Address As Net.IPAddress = HostInfo.AddressList(i)

            ‘AddressFamilyで区別
            Select Case Address.AddressFamily
                Case Net.Sockets.AddressFamily.InterNetwork
                    ‘IP4 (環境によってIP4のアドレスが複数取れる場合があるので注意)
                    str1 += Address.ToString
                    MessageBox.Show(str1, “IPアドレス(IP4)”, MessageBoxButtons.OK)
                Case Net.Sockets.AddressFamily.InterNetworkV6
                    ‘IP6
                    str1 += “ScopeId = ” + Address.ScopeId.ToString
                    str1 += “, ” + Address.ToString
                    MessageBox.Show(str1, “IPアドレス(IP6)”, MessageBoxButtons.OK)
                Case Else
                    ‘その他
                    str1 += “AddressFamily = ” + Address.AddressFamily.ToString
                    str1 += “, ” + Address.ToString
                    MessageBox.Show(str1, “アドレス”, MessageBoxButtons.OK)
            End Select

        Next

    End Sub