APIPA (自動取得虛擬 IP)

 

APIPA 藉由發送arp，詢問在 169.254.0.0-169.254.255.255 中隨機的一個位址來找到一個可以用的 IP。如果沒有收到就是可以用，接著就會把網路介面指定這個 IP。

這只有在沒有 DHCP 伺服器並且沒有連到網際網路，及其他電腦也用 APIPA 時才適用。

Gentoo Linux 文件 -- 網路模組

合計記錄值至另一筆記錄中

Imports System.Data.OleDb

Public Class Form1
    Dim cn As OleDbConnection
    Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbtest.mdb;Persist Security Info=True"

    Private Sub 資料表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.資料表1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbtestDataSet)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 這行程式碼會將資料載入 'DbtestDataSet.資料表1' 資料表。您可以視需要進行移動或移除。
        Me.資料表1TableAdapter.Fill(Me.DbtestDataSet.資料表1)
    End Sub
    Sub sqlExec(ByVal sqlStr)
        Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, cn)
        cmd.ExecuteNonQuery()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '
        Dim a() = {"明", "天", "明天"}
        Dim f2Value = "後天"
        Call sumTo(a, f2Value)
        Me.資料表1TableAdapter.Fill(Me.DbtestDataSet.資料表1)
    End Sub

    Sub sumTo(ByVal a, ByVal f2Value)
        cn = New OleDbConnection(cnStr)
        cn.Open()
        '
        Dim cmd As New OleDbCommand("SELECT * FROM 資料表1", cn)
        Dim dr As OleDbDataReader = cmd.ExecuteReader()

        Dim sum = 0
        Do While dr.Read()
            For Each elm In a
                If dr.Item("f2").ToString = elm Then
                    sum = sum + dr.Item(2)
                End If
            Next
        Loop

        Dim sqlStr As String = "update 資料表1 set f3= " & sum & " where f2 =" & "'" & f2Value & "';"
        sqlExec(sqlStr)

        cn.Close()
    End Sub
End Class

SQL指令Update Access 資料庫

Imports System.Data.OleDb

Public Class Form1
    Private Sub 資料表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 資料表1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.資料表1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbtestDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 這行程式碼會將資料載入 'DbtestDataSet.資料表1' 資料表。您可以視需要進行移動或移除。
        Me.資料表1TableAdapter.Fill(Me.DbtestDataSet.資料表1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As OleDbConnection
        Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbtest.mdb;Persist Security Info=True"
        cn = New OleDbConnection(cnStr)
        cn.Open()
        Dim f2Value = "fff"
        Dim f3Value = 20
        Dim sqlStr As String = "update 資料表1 set f2= '" & f2Value & "' where f3 >" & f3Value
        Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, cn)
        cmd.ExecuteNonQuery()
        cn.Close()

        Me.資料表1TableAdapter.Fill(Me.DbtestDataSet.資料表1)
    End Sub
End Class

用批次檔執行目錄下的檔案

 

@ECHO OFF     

FOR %%C IN (*.EXE *.BAT) DO %%C   

 

如何用批次檔執行目錄下的檔案? - iT邦幫忙::IT知識分享社群

Visual Studio 11 的 11 個不同！

 

Visual Studio 11 的 11 個不同！

於 星期五, 十一月 25, 2011

Visual Studio 11 顯然是為微軟的 Windows 8 所準備的大餐，鑒於 Win8 對比 Win7 的變化太大，用 Visual Studio 2010 就顯得不與時俱進起來，微軟在 9 月份 BUILD 大會上發佈 Windows 8 的開發者預覽版本時，就一併對外公開提供了 Visual Studio 11 的開發者預覽版本下載。

☆數位夢想☆: Visual Studio 11 的 11 個不同！