Edit Data SQL Dalam Datagrid dengan Form Edit

Sebelumnya Buatlah Form Edit data yang terdiri dari beberapa Textbox dan juga Button simpan pada Form Edit Data tersebut yang sesuai dengan tabel data SQL atau pada Form Master Program Anda,contoh seperti pada gambar di bawah ini.

lalu setelah anda membuat Form edit data tersebut,masukan Source Code di bawah ini ke dalam Button atau Tombol Simpan.

con.Execute "UPDATE nm_tabel SET nm_fileds='" & Text2.Text & "'," & _
                    "nm_fileds='" & Text3.Text & "', " & _
                    "nm_fileds='" & Text4.Text & "', " & _
                    "nm_fileds='" & Text5.Text & "', " & _
                    "nm_fileds='" & Text6.Text & "', " & _
                    "nm_fileds='" & Text7.Text & "', " & _
                    "nm_fileds='" & Text8.Text & "', " & _
                    "nm_fileds='" & Text9.Text & "', " & _
                    "nm_fileds='" & Text10.Text & "' " & _
                    " Where nm_fileds='" & Text1.Text & "'"

Kemudian untuk mengosongkan setiap Textbox nya,masukan Source code di bawah ini tepat di bawah kode tersebut di atas.

Text1.Text = kosong
Text2.Text = kosong
Text3.Text = kosong
Text4.Text = kosong
Text5.Text = kosong
Text6.Text = kosong
Text7.Text = kosong
Text8.Text = kosong
Text9.Text = kosong
Text10.Text = kosong

Lalu setelah itu anda bisa memasukan Source Code di bawah ini ke dalam nya juga,sebagai pesan bahwa data anda sudah di perbaharui.

X = MsgBox("Data sudah Di Simpan", vbQuestion + vbYes, "Simpan Data")

kemudian sekalian masukan pula Source Code di bawah ini untuk menutup Form Edit data tersebut setelah pesan pemberitahuan muncul.

Unload Me

Ok Sobat blogger.. Demikian untuk Source Code edit data MySQL yang berada dalam dataGrid pada Viual Basic 6.

Untuk Con.Execute bisa anda ganti dengan Source Code Event Variabel String yang anda Gunakan,pada Source Code di atas saya menggunakan Event Variabel String Seperti di bawah ini.

Public con As New ADODB.Connection
Public RSdata As New ADODB.Recordset

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

Selamat Mencoba Guys.. Good Luck