none
Bagaimana caranya Menghapus Data yang sudah Simpan pada Datagridview yang terkoneksi dengan dua tabel berbeda ..?? RRS feed

  • Pertanyaan

  • Mas listing Dibawah ini untuk Database Sql Server, Gimana Caranya Untuk rubah Ke Database Ms.Access Tolong Pencerahaanya mas.. Tolong Mas……( untuk Ngebatalin data yang sudah Masuk Di DataGridview, DataGridviewNYA nyambung ama Database Ms.Access, Supaya Bisa Rubah juga Di database Ms. AccessNYA  Mas….. Mohon Mas Bantuanya Lagi kendalah Ne mas)

     

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

            On Error GoTo Keluar

            Dim i As Integer

            i = DataGridView1.CurrentRow.Index

            For i = 0 To DataGridView1.Rows.Count - 1

                TblTransaksi = Proses.ExecuteQuery("select * from tblbarang where ID = '" & DataGridView1.Item(3, i).Value & "'")

                If TblTransaksi.Rows.Count = 0 Then

                Else

                    Dim Jumlah = Val(TblTransaksi.Rows(0).Item("stock")) - Val(DataGridView1.Item(4, i).Value)

                    SQL = "update tblbarang set stock = '" & CInt(Jumlah) & "' where id = '" & DataGridView1.Item(3, i).Value & "'"

                    Proses.ExecuteNonQuery(SQL)

                End If

            Next

     

            SQL = "delete from TblTransaksi_beli_rinci where no_faktur ='" & TextBox1.Text & "'"

            Proses.ExecuteNonQuery(SQL)

     

            MessageBox.Show("Transaksi sudah dibatalakan...!!", "Pembatalan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Call Atur()

            Call Faktur_Otomatis()

            Call Data_Record_Pembelian()

    Keluar:

        End Sub

     

     

    ( Uda Dirubah Jadi seperti Ini Tapi kagak jadi Juga…. Malahan Tombol buttonNYA Kagak berfungsi.. atau muncul Pesan Error)

     

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

            On Error GoTo Keluar

            Dim i As Integer

            i = DataGridView1.CurrentCell.ColumnIndex

            For i = 0 To DataGridView1.Rows.Count - 1

                DML = New OleDbCommand("select * from tblbarang where No_barang = '" & DataGridView1.Item(3, i).Value & "'", Database)

                Cari = DML.ExecuteReader

                Cari.Read()

                If Cari.HasRows = 0 Then

                Else

                    Dim Jumlah = Val(Cari.Item("stock")) - Val(DataGridView1.Item(4, i).Value)

                    'Try

                    Call koneksi()

                    DML.Connection = Database

                    DML.CommandType = CommandType.Text

                    DML.CommandText = "update tblbarang set Stock = '" & CInt(Jumlah) & "' where No_barang = '" & DataGridView1.Item(3, i).Value & "'"

                    DML.ExecuteNonQuery()

                    'Catch ex As Exception

                    'MsgBox(ex.ToString())

                    'End Try

                End If

            Next

            'Try

            Call koneksi()

            DML.Connection = Database

            DML.CommandType = CommandType.Text

            DML.CommandText = "delete from TblTransaksi_beli_rinci where no_faktur ='" & TextBox1.Text & "'"

            DML.ExecuteNonQuery()

            Call Atur()

            'Catch ex As Exception

            'MsgBox(ex.ToString())

            'End Try

     

            MessageBox.Show("Transaksi sudah dibatalakan...!!", "Pembatalan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Call Atur()

    Keluar:

        End Sub

    (Maklum Masih Belajar, Mohon Bantuannya)

    Jumat, 25 Juli 2014 13.32

Semua Balasan

  • bisa kasih pesan errornya ga? nantinya database yang mau dipakai apa? udah coba convert database sql nya ke ms access dulu trus ganti connection string databasenya pake ms access connection string?
    Kamis, 31 Juli 2014 15.34