Kami share kodingan untuk Insert, Update, Delete dan Search untuk database MySQL. Sama seperti sebelumnya kodingan ini sudah di sepersimple mungkin untuk digunakan. Berikut beberapa kodingan yg sudah dimodifikasi :
Insert
TryCall kon()cd = New MySqlCommand("INSERT INTO namatable(Column1) VALUES ('" & Text1.Text & "')", koneksi)cd.ExecuteNonQuery()Catch ex As ExceptionEnd Try
Update
TryCall kon()cd = New MySqlCommand("UPDATE namatable set Column1='" & Text1.Text & "' WHERE ColumnKey = '" & TextKey.Text & "'", koneksi)cd.ExecuteNonQuery()Catch ex As ExceptionEnd Try
Delete
Try
Call kon()
cd = New MySqlCommand("DELETE * FROM namatable WHERE ColumnKey = '" & Datagridview1.Item(0, Datagridview1.CurrentRow.Index).Value & "'", koneksi)
cd.ExecuteNonQuery()
Catch ex As Exception
End Try
Search
TryDatagridview1.Rows.Clear()Dim dt As New DataTableDim ds As New DataSetds.Tables.Add(dt)Call kon()cd = New MySqlCommand("SELECT * FROM namatable WHERE ColumnKey LIKE '%" & TextKey.Text & "%'", koneksi)da = New MySqlDataAdapter(cd)dt.Clear()da.Fill(dt)Dim myRow As DataRowFor Each myRow In dt.RowsDatagridview1.Rows.Add(myRow.Item(0), myRow.Item(1), myRow.Item(2), myRow.Item(3))Nextda.Dispose()koneksi.Close()Catch ex As ExceptionEnd Try
Semoga bermanfaat...
==============================================================================
Tinggalkan komentar jika anda membutuhkan bantuan :)
==============================================================================
0 Comments