none
data type mismatch in criteria expression vb 2010 dan access RRS feed

  • Pertanyaan

  • 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

    Kamis, 18 Desember 2014 17.40

Jawaban

  • coba di debug keseluruhan programnya, dan di share error line yang mana yang meyebabkan error

    coba untuk yang ada datetimpicker pake # jangan ,

    Senin, 22 Desember 2014 06.17