使用MS Access 2007插入多個記錄到數據庫

Question

我正在使用Visual Basic（VB 2010）。 如何使用MS Access 2007將多條記錄插入數據庫？我的代碼不起作用：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
     If DataGridView1.Rows(0).Cells(0).Value = "" Then 
      MsgBox("Belum ada transaksi", MsgBoxStyle.Exclamation, "Informasi") 
      Exit Sub 
     End If 
     If TextBox6.Text = "" Then 
      MsgBox("Jumlah bayar belum diinput!", MsgBoxStyle.Exclamation, "Informasi") 
      Exit Sub 
     End If 
     On Error Resume Next 
     If RadioButton1.Checked Then 
      For baris As Integer = 0 To DataGridView1.Rows.Count - 2 
       Dim simpan As String = "Insert into TBL_JUALTUNAI (NomorFaktur,TglTransaksi,WaktuTransaksi,KodeBarang,NamaBarang,HargaSatuan,JumlahBeli,Total) values " & _ 
     "('" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & DataGridView1.Rows(0).Cells(0).Value & "','" & DataGridView1.Rows(0).Cells(1).Value & "','" & DataGridView1.Rows(0).Cells(2).Value & "','" & DataGridView1.Rows(0).Cells(3).Value & "','" & DataGridView1.Rows(0).Cells(4).Value & "')" 
       CMD = New OleDbCommand(simpan, CONN) 
       CMD.ExecuteNonQuery() 
      Next baris 
     End If 

     If RadioButton2.Checked Then 
      Dim simpan1 As String = "Insert into TBL_PELANGGAN (NomorFaktur,TglTransaksi,WaktuTransaksi,NamaPelanggan,AlamatPelanggan,TelpPelanggan,KodeBarang,NamaBarang,HargaSatuan,JumlahBeli,Total) values " & _ 
"('" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & DataGridView1.Rows(0).Cells(7).Value & "','" & DataGridView1.Rows(0).Cells(8).Value & "','" & DataGridView1.Rows(0).Cells(9).Value & "','" & DataGridView1.Rows(0).Cells(0).Value & "','" & DataGridView1.Rows(0).Cells(1).Value & "','" & DataGridView1.Rows(0).Cells(2).Value & "','" & DataGridView1.Rows(0).Cells(3).Value & "','" & DataGridView1.Rows(0).Cells(4).Value & "')" 
      CMD = New OleDbCommand(simpan1, CONN) 
      CMD.ExecuteNonQuery() 
     End If 

     CMD = New OleDbCommand("select * from TBL_BARANG where KodeBarang='" & DataGridView1.Rows(0).Cells(0).Value & "'", CONN) 
     RD = CMD.ExecuteReader 
     RD.Read() 
     If RD.HasRows Then 
      Dim kurangistok As String = "update TBL_BARANG set StockBarang= '" & RD.Item(4) - DataGridView1.Rows(0).Cells(3).Value & "' where KodeBarang='" & DataGridView1.Rows(0).Cells(0).Value & "'" 
      CMD = New OleDbCommand(kurangistok, CONN) 
      CMD.ExecuteNonQuery() 
     End If 
    End Sub 
End Class 

Answer 1

使用該代碼，您不會一次插入多個記錄。每個INSERT命令將只插入一行，因此您必須對多行使用多個INSERT命令。

如果我正確認識你，你有一個DataGridView那裏多行，而要插入所選行，是嗎？ 糾正我，如果我錯了，但你應該做的是通過DataGridView的行枚舉並插入一行到該數據庫中的每一行DataGridView？

在這種情況下，使用For Each循環檢索行（DataGridView1.Rows），然後在該循​​環中執行INSERT命令。

編輯：在回答你的評論，我不知道你的代碼的完整的上下文，但我可以讓你開始。

For Each dgvRow As DataGridViewRow In dgv.Rows 
     Dim myCommand As String = "INSERT INTO " 'From here, insert your parameters for that row. You can call on dgvRow.Cells. 
     CMD = New OleDbCommand(myCommand, CONN) 
     CMD.ExecuteNonQuery() 
    Next