資料庫開發017 ExecuteNonQuery方法

    ExecuteNonQuery方法用來執行INSERT、UPDATE、DELETE和其他沒有傳回結果集的SQL語句，并傳回執行指令後影響的行數。如果UPDATE和DELETE指令所對應的目标記錄不存在，傳回0。如果出錯，傳回-1。

Imports System.Data.SqlClient
Public Class Form1
    Dim conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Private Function GetConnection() As SqlConnection
        Return New SqlConnection(My.Settings.SalesConnectionString)
    End Function
    Private Sub displayData(ByVal str As String)
        DataGridView1.DataSource = Nothing

        conn = GetConnection()
        conn.Open()
        Dim comm As New SqlCommand(str, conn)
        Dim dr As SqlDataReader = comm.ExecuteReader
        Dim dt As New DataTable
        dt.Load(dr)
        conn.Close()

        DataGridView1.DataSource = dt
    End Sub
    Private Sub InsertRecord()
        conn = GetConnection()
        conn.Open()
        Dim strSql As String = "Insert into grade(學号,姓名,國文,數學,英語) " & _
                               "Values('" & txtId.Text & "','" & txtName.Text & "','" & _
                               txtChinese.Text & "','" & txtMaths.Text & "','" & txtEnglish.Text & "')"
        Dim comm As New SqlCommand(strSql, conn)
        comm.ExecuteNonQuery()
        conn.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        displayData("Select * from grade")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        InsertRecord()

        displayData("Select * from grade")
    End Sub
End Class