Membuat Database dan Tabel

Pada artikel sebelumnya yaitu Koneksi ke Database MySql  ( VB-MySql ) kita telah mengetahui bagaimana caranya melakukan koneksi ke MySql database. Dan sekarang kita akan mencoba membuat program untuk membuat tabel didalam MySql. Untuk mudahnya, terlebih dahulu kita buat contoh tabel seperti di bawah ini :

Daftar Siswa

Nomor	NIM	Nama Siswa	Jenis Kelamin	Kelas
1.	821584223	Ahmad Zailani	L	3
2.	821584231	Yanti Wulandari	P	3

Dari gambaran tabel di atas kita tentukan nama database dengan “Daftar_Siswa” dan nama tabel dengan “DfrSiswa”. Tentukan juga jumlah field yang dibutuhkan, kemudian beri nama serta jumlah karakter maksimal pada masing-masing field. Dari gambar di atas terdapat 5 field dengan definisi sbb :

Keterangan	Nama Field	Jumlah Karakter Maksimal
Nomor	Nomor	4
NIM	NIM	20
Nama Siswa	Nama	20
Jenis Kelamin	JenisKelamin	4
Kelas	Kelas	5

Selanjutnya buka Visual Basic dan pilih Standard EXE dan secara default akan muncul Form baru. Desain Form dengan menambahkan dua buah Commandbutton, kemudian atur propertinya sebagai berikut :

Controls	Properti
	Name	Height	Width	Caption	StarUpPosition
Form	BuatTblFrm	2700	6500	Program Membuat Tabel	2 - CenterScreen
Commandbutton	BuatTblCmd	375	1815	Buat Tabel
	SelesaiCmd	375	1815	Selesai

Tampilan Desain Form

  

Double click Form dan kita akan di arahkan menuju View Code. Isikan View Code dengan kode di bawah ini :

Option Explicit

Public Conn As MYSQL_CONNECTION

Public Rs As MYSQL_RS

Public Sql As String

Private Sub Form_Load()

Set Conn = New MYSQL_CONNECTION

Conn.OpenConnection "", "", "", ""

End Sub

Private Sub BuatTblCmd_Click()

 Conn.Execute "CREATE DATABASE Data_Siswa"

 Conn.Execute "USE Data_Siswa"

‘Perintah membuat tabel dengan nama DfrSiswa

  Sql = "CREATE Table DfrSiswa"

  Sql = Sql & "("

  Sql = Sql & "Nomor VARCHAR(4) NOT NULL DEFAULT '-',"

  Sql = Sql & "NIM VARCHAR(20) NOT NULL DEFAULT '-',"

  Sql = Sql & "Nama VARCHAR(20) NOT NULL DEFAULT '-',"

  Sql = Sql & "JenisKelamin VARCHAR(4) NOT NULL DEFAULT '-',"

  Sql = Sql & "Kelas VARCHAR(5) NOT NULL DEFAULT '-',"

  Sql = Sql & "Primary Key(NIM)"

  Sql = Sql & ") TYPE=MyISAM;"

  Conn.Execute Sql

  Msgbox “Databases Data Siswa dan Tabel Daftar Siswa telah berhasil dibuat” ,  

  vbInformation, "Pemberitahuan"

End Sub

Private Sub SelesaiCmd_Click()

  Unload Me

End Sub

Save dengan nama file “BuatTabelProject” kemudian uji coba program dengan menekan tombol F5 di keyboard…

Tampilan Form saat diuji coba

Untuk memeriksa table yang kita buat, maka periksa dengan langkah sebagai berikut :

Buka aplikasi WinMySQLAdmin dan pilih Tab Databases,

Tampilan Aplikasi WinMySQLAdmin

Lihat pada List Databases ada “data_siswa” yaitu nama database yang telah kita buat. Kemudian coba klik “data_siswa”, maka pada List Databases Table akan muncul “dfrsiswa” dengan keterangan Field  dalam List Table Columns.

Selamat mencoba...!  :-)

File download :
Contoh kode program.