INSERT DATA DARI DATAGRIDVIEW KE MYSQL DATABASE

Kali ini saya akan memberi tahukan bagaimana menginput data sekaligus banyak dengan perulangan dari Datagridview ke MYSQL Database

Sekarang coba kalian buat form seperti dibawah ini

Keterangan :

Textboxt 1 : No Transaksi

Textboxt 2 : Nama

Textboxt 3 : Nama Obat

Textboxt 4 : Jumlah

Textboxt 5 : Harga

Label8 : 0

Oke langsung aja kita coba buat codingan nya, klik 2x pada button tambah

ketikan skrip dibawah ini :

DataGridView1.Rows.Add(1)

        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(0).Value = TextBox3.Text

        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(1).Value = TextBox4.Text

        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(2).Value = TextBox5.Text

        Dim total As String

        apa = Val(TextBox4.Text) * Val(TextBox5.Text)

        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(3).Value = total

        DataGridView1.Update()

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        Dim totalsemua As Double

        totalsemua= 0

        For t As Integer = 0 To DataGridView1.Rows.Count - 1

            totalsemua= totalsemua+ Val(DataGridView1.Rows(t).Cells(3).Value)

        Next

        Label8.Text = totalsemua

Klik 2x pada Simpan

Dim str As String = "server=localhost;user id=root;password=;database=smkn22"

        conn = New MySqlConnection(str)

        conn.Open()

        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1

            Using cmd As New MySqlCommand("INSERT INTO detail_pembayaran (id_pembayaran,nama_obat,jumlah) VALUES('" + TextBox1.Text + "',@nama_obat, @jumlah)", conn)

                cmd.Parameters.AddWithValue("@nama_obat", DataGridView1.Rows(i).Cells(0).Value)

                cmd.Parameters.AddWithValue("@jumlah", DataGridView1.Rows(i).Cells(1).Value)

                cmd.ExecuteNonQuery()

            End Using

        Next

        Dim cmd1 As MySqlCommand

        cmd1 = New MySqlCommand("INSERT into pembayaran values ('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & Label8.Text & "')", conn)

        cmd1.ExecuteNonQuery()

        MessageBox.Show("SUKSES INPUT DATA")

Oke sekarang kia uji 

Ketika saya kli lihat data

Beda form ya buat lihat_datanya

Dim str As String = "server=localhost;user id=root;password=;database=smkn22"

        conn = New MySqlConnection(str)

        Dim da As MySqlDataAdapter

        Dim ds As DataSet

        da = New MySqlDataAdapter("SELECT nama,total,nama_obat,jumlah FROM pembayaran INNER JOIN detail_pembayaran ON pembayaran.id_pembayaran = detail_pembayaran.id_pembayaran", conn)

        ds = New DataSet

        da.Fill(ds, "bebas")

Ini saya sengaja masukin di formx_load