KERJA IT - COMPUTER

Markas Rabbani Surabaya Jl.Pucang Anom Timur No. 14 Surabaya Telp. 08123015071 Email : Markas_rabbani_sby@yahoo.co.id

  • RSS
  • Google +
  • Facebook

Popular Posts

IDHOSTINGER memang OK
Radio - TV OnLine
Asyiiikk Bro

Translate Google

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Total Tayangan Halaman

HOSTINGER

Web Hosting

Prof DR KH Said Aqil Sirodj - Ketua PB NU

Gus Mus - Prof DR KH Said Aqil Sirodj - Alm Gus Dur

HOSTINGER Web Gratis Tanpa Iklan

Gak Percaya Buktikan

Griya Asy-Syifa

Jl Suromulang Timur II/18 Perum Citra Surodinawan Estate Kota Mojokerto Contac : 081231821800, 08814353000, 085746201881 Pin BB : 24D0B84C e-mail : ariesmojokerto@gmail.com

HOSTINGER Gratis tanpa Iklan

Web Hosting GRATIS dI Indonesia Tanpa Iklan

WaliSongo

Babat alas Tanah Jawa - Pengikut Nabi Muhammad saw - NU

Sabtu, 05 Juli 2014

INPUT DATA LEWAT GRID - VB-2010

Input Data Grid di simpan di DataBase MYSQL

Kita siapkan Tabelnya Misal : temporary_beli


Buat New Project di VB-2010
 Siapkan ToolBox nya :
1. Button namenya = Button2 dan Text nya = SIMPAN
2. Data Grid View  = namenya dgv

di dgv cari di Properties ; Coloumn - ( Collection ) Click
Ini untuk membuat Coloumn - coloumn Grid nya

Tentukan nama (name grid coloumn) dan Text nya ( text header nya )


Beri nama Coloumn Gridnya
Misal  :

KODE BARANG = mkdbrg
NAMA BARANG = mnabar
SATUAN = msatuan
JUMLAH  = mjumlah
HARGA = mharga
SUBTOTAL = mtot

Dan perhatikan Coloumn Type nya : lihat gambar


BERIKUTNYA :


Kita siapkan variabel dan Koneksinya ke MYSQL
yaitu Add Module dan Add Referent nya :
 ini codingnya :
Imports MySql.Data.MySqlClient
Imports System.Data

Module Module1
 Public vkdbrg, vnabar, vsat As String
    Public vjumlah As Integer
    Public vharga As Integer
    Public vtot As Integer
    Public cmd As New MySqlCommand
      Dim serv As String = "Server=localhost;"
    Dim dbase As String = "Database=toko;"
    Dim uid As String = "uid=root;"
    Dim pwd As String = "pwd=;"
    Dim ConString = serv & dbase & uid & pwd
    Public db As New MySqlConnection(ConString)
    Public Sub konek()
        Try
            tutupDB()
            db.Open()
            MsgBox("Koneksi DataBase berhasil dilakukan")
        Catch ex As MySqlException
            MsgBox(ex.Message)
            MsgBox("Koneksi tidak berhasil dilakukan")
        End Try
    End Sub
    Public Sub tutupDB()
        If db.State = ConnectionState.Open Then
            db.Close()
        End If
    End Sub

End Module
*****************

Setelah itu Coding Simpan nya :

Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
 
    
    Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit
        If e.ColumnIndex = 3 Then
            dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value
        ElseIf e.ColumnIndex = 4 Then
            dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        konek()
        Dim cmd As New MySqlCommand("INSERT INTO temporary_beli(kdbrg,nabar,satuan,jumlah,harga,subtotal) VALUES (@mkdbrg,@mnabar,@msatuan,@mjumlah,@mharga,@mtot)", db)
        Try

      
            For i As Integer = 0 To (dgv.Rows.Count - 2)

                vkdbrg = dgv.Rows(i).Cells(0).Value
                vnabar = dgv.Rows(i).Cells(1).Value
                vsat = dgv.Rows(i).Cells(2).Value
                vjumlah = dgv.Rows(i).Cells(3).Value
                vharga = dgv.Rows(i).Cells(4).Value
                vtot = dgv.Rows(i).Cells(5).Value

                cmd.Parameters.AddWithValue("@mkdbrg", vkdbrg)
                cmd.Parameters.AddWithValue("@mnabar", vnabar)
                cmd.Parameters.AddWithValue("@msatuan", vsat)
                cmd.Parameters.AddWithValue("@mjumlah", vjumlah)
                cmd.Parameters.AddWithValue("@mharga", vharga)
                cmd.Parameters.AddWithValue("@mtot", vtot)
                cmd.ExecuteNonQuery()
                cmd.Parameters.Clear()
            Next
        Catch ex As Exception
            Beep()
            MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")
            cmd.Dispose()
        End Try
    End Sub

End Class
*************

Setelah itu Save all



Kita Cek sebelum di jalankan DataBase nya Kosong isinya :


Kemudian Jalankan / Run Programnya :


Setelah di Input Data nya kemudian tekan Tombol Simpan :

Kita Cek Tabel nya sudah ter Rekam / tidak Data tersebut :


Selamat Ber Otak Atik

Tidak ada komentar:

Posting Komentar