Coding Tambah Data Pada Datagrid Dengan Form Tambah

Menambahkan data dalam Datagrid1 pada visual basic dengan menggunakan Form Tambah yang menggunakan Data dari MySQL sedikit agak rumit untuk Pemula yang baru tahap belajar dalam mengenal system Source Code yang terstruktur dengan source code yang lain nya,namun jika kita mencermati system Coding yang berlaku pada saat setelah nya jadi dan terkoneksi dengan Data Variabel String yang sudah kita masukan sebelumnya.

Adapun Untuk Source Code menambahkan data ke dalam datagrid yang menggunakan Database dari MySQL adalah sebagai berikut :

Masukan Source Code Di bawah ini kedalam CMDSimpan

Private Sub cmdsimpan_Click()

con.Execute "insert into transaksi (kode, nm_brang, jnis_brang, jumlah, kemasan, hrga_beli, hrga_grosir, hrga_eceran, satuan, hrga_satuan)" & _
          " VALUES('" & Text1.Text & "','" & _
                        Text2.Text & "','" & _
                        Text3.Text & "','" & _
                        Text4.Text & "','" & _
                        Text5.Text & "','" & _
                        Text6.Text & "','" & _
                        Text7.Text & "','" & _
                        Text8.Text & "','" & _
                        Text9.Text & "','" & _
                        Text10.Text & "')"

Text1.SetFocus
X = MsgBox("Data sudah Di Simpan", vbQuestion + vbYes, "Simpan Data")
End Sub

Source Code tersebut di atas harus di sesuaikan dengan Source Code Koneksi Variabel String yang anda gunakan,pada Source Code tersebut di atas saya menggunakan koneksi String Variabel seperti pada source Code di bawah ini :

Public con As New ADODB.Connection
Public RSdata As New ADODB.Recordset
Dim Sql As String

Public Sub Koneksi()
Set con = New ADODB.Connection
Set RSdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=transaksi;uid=root;pwd=****;"
con.CursorLocation = adUseClient
End Sub

Private Sub Form_Load()
 If con.State = adStateOpen Then con.Close
    con.CursorLocation = adUseClient
   con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=transaksi;uid=root;pwd=****;"
End Sub

Ok Guys.. Selamat Mencoba.. Jika masih menemui kendala dalam mencoba nya saat di lakukan "Run" pada Program nya,silahkan tanyakan kepada saya,dan berikan Sample Variabel String koneksi yang anda Gunakan,kalo saya tau insya Allah nanti saya bantu..

Terima Kasih Telah Berkunjung.