Tags Posts tagged with "mysql"

mysql

0 35

Pada posting kali ini saya akan membahas bagaimana cara melakukan proses crud(create, read, update, delete) tabel database MySql dengan VB.net. Sebagai percobaan saya membuat project aplikasi sederhana untuk mempraktekan proses insert, update, delete di VB.net dengan database mysql. Untuk koneksi VB.net silahkan baca petunjuknya di postingan saya koneksi VB.net dengan mysql. Kemudian buat database mysql dan tabelnya. Kali ini saya membuat database bernama phonebook, dengan tabel phonebook. Tabel phonebook terdiri dari field id, nomor, nama, dan email

Setelah database dibuat, kita memulai membuat project baru di vb.net. Beri nama project phonebook. Lakukan koneksi vb.net dengan mysql. Kemudian mulai mendesign form vb.net. Design form yang saya buat adalah seperti berikut ini:


Untuk memudahkan proses coding, saya merubah nama textbox dan button. Kemudian kita dapat memulai coding. Kita deklarasikan variable yang akan kita gunakan untuk menampung data dari database. Source nya sebagai berikut:

Public strconn As String = "server=localhost; uid=root; pwd=; database=phonebook;"
'buat objek adapter
Dim myadp As MySqlDataAdapter
'buat data tabel (agar data disusun tabel)
Dim dt As New DataTable
'buat perintah query disini
Public conn As New MySqlConnection(strconn)

Kemudian kita membuat event onLoad yang akan kita beri code berikut:

'jika koneksi tertutup
If conn.State = ConnectionState.Closed Then
Try
'buka koneksi
conn.Open()
'tangkap error mysql, jika ada ( ini hanya sebagian)
Catch mex As MySqlException
If mex.Number = 0 Then
MsgBox("Tidak bisa connect ke db", "no server")
ElseIf mex.Number = 1045 Then
MsgBox("Salah user/pass mysql", "akses ditolak")
Else
MsgBox(mex.Number & mex.Message)
End If
'tangkap error umum
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Call read_data()

Untuk function read_data() kita gunakan untuk membaca data dari database. isi source codenya adalah sebagai berikut:


Private Sub read_data()
Dim query As String
query = "select * from phonebook"
Try
'jalankan perintah baca
myadp = New MySqlDataAdapter(query, conn)
'isi data tabel
dt.Clear()
myadp.Fill(dt)
'pindahkan isi data tabel ke dgv_data
Dgv_data.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

Setelah ini kita dapat memasukan source code untuk melakukan insert, update, dan delete. source code insert adalah sebagai berikut:

If btntambah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("insert into phonebook (id,nomorHp,nama,email) values ('','" & txtnumber.Text & "','" & txtnama.Text & "','" & txtemail.Text & "')", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("insert data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btntambah.Text = “tambah”
Call read_data()
Exit Sub
End If

Untuk source code hapus, adalah sebagai berikut:

Dim mycmd As New MySqlCommand("delete from phonebook where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("Hapus data berhasil")
Call read_data()
End If
Catch ex As MySqlException
MsgBox("insert data gagal")
End Try
Else
MsgBox("Pilih data yang ingin dihapus")

terakhir untuk proses update record database, dapat menggunakan source code berikut:


If btnubah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("update phonebook set nomorHp='" & txtnumber.Text & "', nama='" & txtnama.Text & "',email='" & txtemail.Text & "' where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("update data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""

txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False

btnhapus.Enabled = True
btnubah.Enabled = True
btnubah.Text = “Ubah”
Call read_data()
Exit Sub
End If

Catch ex As MySqlException
MsgBox(“update data gagal”)
End Try
End If

Silahkan coba compile dan jalankan aplikasinya. Aplikasi ini masih sederhana dan jauh dari sempurna, namun sudah mencukupi untuk melakukan uji coba sederhana. Saran dan masukan sangat diharapkan untuk menyempurnakan panduan ini. Semoga bermanfaat.

Link source code:

download

 

0 15

Tutorial membuat virtualhost xampp windows

virtualhost adalah host buatan atau simulasi host pada server lokal, contoh: http://localhost/ menjadi http://alamat-web.com, Jadi nanti kita bisa membuat lebih dari satu domain virtual yang disimpan di dir: C:WWW. Langkahnya adalah:

1. Instal XAMPP
2. Buka file host (C:WINDOWSsystem32driversetc)
3. Buat perubahan file tersebut
# Copyright (c) 1993-1999 Microsoft Corp.
#
# This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
#
# This file contains the mappings of IP addresses to host names. Each
# entry should be kept on an individual line. The IP address should
# be placed in the first column followed by the corresponding host name.
# The IP address and the host name should be separated by at least one
# space.
#
# Additionally, comments (such as these) may be inserted on individual
# lines or following the machine name denoted by a '#' symbol.
#
# For example:

127.0.0.1 localhost
127.0.0.1 madhidamad.com

4. Buka file httpd.conf (C:xamppapacheconf), ubah directory permission agar bisa diakses oleh siapapun.

Options Indexes FollowSymLinks Includes ExecCGI
AllowOverride All
Order allow,deny
Allow from all

5. Buka file httpd-vhosts.conf (C:xamppapacheconfextra), tambahkan ServerName dan DocumentRoot.
6. Cari NameVirtualHost, lalu hilangkan komentarnya (##), jadi seperti dibawah:
NameVirtualHost *:80
7. Tambahkan virtualhost Anda yang terdiri dari ServerName dan DocumentRoot.
#VirtualHost Anda

DocumentRoot C:/www/madhidamad.com
ServerName madhidamad.com

#Untuk membedakan localhost dengan virtualHost Anda:

DocumentRoot C:/xampp/htdocs
ServerName localhost

8. save

Demikian penjelasan singkatnya, semoga bermanfaat.