隨心記憶

conn.Open()
Dim a1, a2 As String

For y As Integer = 0 To DataGridView1.Rows.Count - 1
  a1 = DataGridView1.Rows(y).Cells(0).Value
  a2 = DataGridView1.Rows(y).Cells(1).Value

  Dim DelStr As String
  DelStr = "delete from test where a1 = ' '  " '刪除空白行

  MyDataAd = New OleDbDataAdapter

  MyDataAd.DeleteCommand = New OleDbCommand(DelStr, conn)

  Dim myParameters(0) As OleDbParameter

  myParameters(0) = New OleDbParameter("a1", a1)

  MyDataAd.DeleteCommand.Parameters.AddRange(myParameters)

  MyDataAd.DeleteCommand.ExecuteNonQuery()

Next

MsgBox("刪除完成", MsgBoxStyle.OkOnly)

conn.Close()