Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal. 'MsgBox("Data tidak ditemukan!", MsgBoxStyle.Information, "Informasi") TabelMhs.Columns(3).HeaderText = "TEMPAT" Sqlstr = "SELECT * FROM mahasiswa WHERE nim or nama LIKE '%" & txtCari.Text & "%'" Sqlstr = "SELECT * FROM mahasiswa WHERE nama LIKE '%" & txtCari.Text & "%'" Sqlstr = "SELECT * FROM mahasiswa WHERE nim LIKE '%" & txtCari.Text & "%'" Private Sub txtCari_KeyPress(ByVal sender As Object, ByVal e As ) Handles txtCari.KeyPress Private Sub tabelMhs_CellClick(ByVal sender As Object, ByVal e As ) Handles tabelMhs.CellClick Perintah.CommandText = "DELETE FROM mahasiswa WHERE nim = '" & txtNim.Text & "'" Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Clickĭim hasil As MsgBoxResult = MessageBox.Show("Apakah data ingin dihapus?", "Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) MsgBox("Data gagal diubah" + ex.Message, MsgBoxStyle.Critical) MsgBox("Data berhasil diubah", MsgBoxStyle.Information, "Informasi") Perintah.CommandText = "UPDATE mahasiswa SET nama = '" & txtNama.Text & "', jekel = '" & cbJk.Text & "', tempat = '" & txtTempat.Text & "', tgl_lahir = '" & dtpTgl.Text & "', alamat = '" & txtAlamat.Text & "' WHERE nim = '" & txtNim.Text & "'" Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Clickĭim perintah As New Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click Konek("localhost", "root", "", "perkuliahandb")ĭtpTgl.Format = DateTimePickerFormat.Custom Sekian tutorial singkat Bagaimana Cara Membuat Koneksi ke Database MySQL Dengan Program. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Di bawah ini adalah contoh program Java untuk membuat koneksi. MsgBox("Data gagal disimpan" + ex.Message, MsgBoxStyle.Critical) MsgBox("Data berhasil disimpan", MsgBoxStyle.Information, "Informasi") Perintah.CommandText = "INSERT INTO mahasiswa (nim, nama, jekel, tempat, tgl_lahir, alamat) VALUES ('" & txtNim.Text & "', '" & txtNama.Text & "', '" & cbJk.Text & "', '" & txtTempat.Text & "', '" & dtpTgl.Text & "', '" & txtAlamat.Text & "')" aneh VB.net masih banyak di pakai Mata kuliah di berbagai universitas. yang dimana ini saya membantu adik kelas saya pada saat sedang UAS. di Vb.net Visual Studio 2008 disini, kali ini berada di VS 2010 Express. Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click sebelum nya saya mengasih contoh CRUD sederhana barang. TabelMhs.Columns(5).HeaderText = "ALAMAT" TabelMhs.Columns(4).HeaderText = "JENIS KELAMIN" TabelMhs.Columns(3).HeaderText = "TGL LAHIR" TabelMhs.Columns(2).HeaderText = "TEMPAT" TabelMhs.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill Dim conn As New MySqlConnection("Server=localhost user=root database=perkuliahandb")Īdapter = New MySqlDataAdapter(sqlstr, conn)
0 kommentar(er)
