loading...

loading...

Unutk Insert Data dari gridview ke database pastinya kita butuh yg namanya databasenya , admin anggap kalian sudah memiliki databasenya dan sudah tekoneksi dengan vb.net kalian ,jika belum terkoneksi maka kita koneksikan , disini admin menggunaka db Mysql dengan bantuan connector tentunya.

Pertama Kita buat Sebuah Modul Koneksi unutk Mengkoneksikan DB ke Project VB.net Kita langsung saja add modul kalian dan berikut codingannya

Imports System.Data.Odbc
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Module KONEKSI
    Public conn As OdbcConnection
    Public da As OdbcDataAdapter
    Public ds As DataSet
    Public cmd As OdbcCommand
    Public dr As OdbcDataReader
    Public str As String
    Public Sub BukaDB()
        Try
            conn = New OdbcConnection("DSN=db_inventory;MultipleActiveResultSets=True")
            
            If conn.State = ConnectionState.Closed Then
                conn.Open()
               
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Module

Dari codingan di atas terlihat jelas bahwa nama DSN atau Data Source Name adalah db_inventory . DSN kita dapati pada saat kita mensetting ODBC COnection Kita , dimana ODBC kita Koneksikan Ke DB Mysql dan dri ODBC terebut kita buat DSN dimna DSN ini kita gunakan Untuk Koneksi Ke Project VB.net kita.
Oke , asumsikan Db kita Sudah terkoneksi , maka selanjutnya adalah Kita buat Sebuah Module lagi untuk Menyimpan data , jadi ketika kita akan menyimpan data kita tidak perlu lagi menuliskan banyak Codingan Cukup Kita Query kemudian kita panggil functionnya. Berikut Codingannya Modul Save

Module Save_Update

 Public Sub jalankansqlSIMPAN(ByVal sQl As String)
 Dim objcmd As New System.Data.Odbc.OdbcCommand
   Call BukaDB()
       Try
          objcmd.Connection = conn
          objcmd.CommandType = CommandType.Text
          objcmd.CommandText = sQl
          objcmd.ExecuteNonQuery()
          objcmd.Dispose()
          MessageBox.Show("Data Berhasil di Simpan..! ", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)
      Catch ex As Exception
          MessageBox.Show(ex.Message)
      End Try
 End Sub
End Module

Kemudian Kita masukan Codingan save pada button save kita agar hasil inputan kita bisa tersimpan
pada database yg sudah kita buat. Berikut Codingannya

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
  
   Call BukaDB()
   Dim simpan As String
       For Each row As DataGridViewRow In DGVX1.Rows
           If row.Cells(1).Value = "" Then
               MsgBox("MOHON LENGKAPI DATA")
           Else
               simpan = "INSERT INTO tbl_item(ItemCode,ItemDesc,ItemUnit,MinStock) VALUES ('" & row.Cells(1).Value & "','" & row.Cells(2).Value &
                                                  "','" & row.Cells(3).Value & "','" & row.Cells(4).Value & "')"
               jalankansqlSIMPAN(simpan)
          End If
      Next

End Sub

*Ket : -Pada Button Save Terdapat JalankansqlSIMPAN(simpan) , code tersebut adalah untuk memanggil
module simpan ,dimana JalankansqlSIMPAN adalah nama function pada modul save dan (simpan) adalah nama variabel untuk menampung smentara hasil query insert kita
-DGVX1 adalah Nama DataGridview

-Admin Asumsikan Bahwa di gridview kalia sudah ada inputan yang di add baik dari textbox maupun input langsung pada gridview.

 

Cara Insert Multiple Data In Grid To Database
Share This
FacebookTwitterGoogle+WhatsAppEmailPrintFriendly
loading...

Post navigation


Leave a Reply

Your email address will not be published. Required fields are marked *