Para Master.
saya ingin bertanya tentang data type mismatch in criteria expression saat saya menekan tombol SIMPAN untuk menyimpan data dari text box dan listview ke database access. apa ada yang salah dengan kode saya? mohon bantuannya master untuk menyelesaikan kode
ini.
berikut kode saya:
Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click
Dim counter As Integer
Dim sql1, sql2 As String
Call koneksi()
Try
sql1 = "insert into Penjualan(tanggal_nota, Nota, Nama, GrandTotal) VALUES ('" & DateTimePicker1.Text & "','" & _
txtnota.Text & "','" & txtkonsumen.Text & "','" & txtgrandTotal.Text & "')"
cmd1 = New OleDbCommand(sql1, con)
Dim x As Integer = cmd1.ExecuteNonQuery
For counter = 0 To index - 1
sql2 = "insert into Detail(Nota, Nama_Barang, Harga, Jumlah, Total) VALUES ('" & txtnota.Text & "','" & ListView1.Items(counter).SubItems(0).Text
& "','" & _
ListView1.Items(counter).SubItems(1).Text & "','" & _
ListView1.Items(counter).SubItems(2).Text & "','" & ListView1.Items(counter).SubItems(3).Text & "')"
cmd2 = New OleDbCommand(sql2, con)
cmd2.ExecuteNonQuery()
Next
If x = 1 Then
MessageBox.Show("Data Transaksi Berhasil Disimpan")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub