Import Data Dari Excel ke MySql

Wah sudah lama ndak nulis di blogku ini, hemmm bingung mau nulis apa. Pikir-pikir kemarin baru meng-import data dari excel ke mysql. Awalnya sih lupa bagaimana mengimport data dari excel ke mysql, karena sebelumnya pernah nyoba. Yaaa dari pada lupa lagi, mending ini aja yang ditulis ke blog sederhana ini. Sebagai catatan untuk diri sendiri dan semoga bisa berguna bagi teman-teman yang membutuhkan (yang mau mengimport data dari excel ke mysql).

oke, pertama buat database di MySql seperti berikut :

CREATE DATABASE `sekolah`;

BELAJAR VISUAL BASIC 6

Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an.

Untuk lebih jelasnya, langsung saja kita lihat tampilan Development Tool ini. Berikut tampilan awal saat kita membuka tool ini :

Gambar 1. Tampilan awal Visual Basic 6.0

Dapat kita lihat ada 3 tab di form awal tool ini, yaitu New, Existing dan Recent. Ketiga-tiganya mempunyai fungsi masing-masing.

1. New, pilihan untuk membuat project baru (artinya kita membuat dari awal).
2. Existing, pilihan untuk memilih project yang sudah ada baik yang ada pada Harddisk maupun maupun dari drive luar, seperti FD atau yang lainnya.
3. Recent, pilihan untuk memilih project yang sudah kita buat di komputer yang sama.

Di bagaian bawah form awal ini terdapat menu cekBox “Don’t show this dialog in the future”, menu ini yang membuat form ini tampil di awal saat kita membuka Visual Basic 6.0 ini, jika cekBox ini kita centang maka form ini tidak lagi tampil di awal kita membuka VB6.

Lanjut ke tahap selanjutnya,langsung saja click Open. Maka kita langsung dihadapkan dengan tampilan IDE (Integrated Development Environment) VB6. Berikut tampilan IDE VB6 :

Gambar 2 : IDE VB6

Oke, langsung saja kita coba untuk membuat sebuah program perhitungan sederhana, artinya yang hanya bisa Penjumlahan, Pengurangan, Perkalian dan Pembagian. Berikut langkah-langkahnya :

Desain sebuah form seperti di bawah ini.

Gambar 3. Desain form

Selanjutnya langsung saja kita belajar coding di VB6 ini. Masukkan code di bawah ini :

Dim v1 As Currency 'variabel untuk nilai pertama

Dim v2 As Currency 'variabel untuk nilai kedua

Dim vH As Currency 'variabel untuk nilai Hasil

Private Sub Command1_Click()

v1 = Text1.Text

v2 = Text2.Text

If Option1 = True Then 'kondisi saat option1(Option Tambah) terpilih

vH = v1 + v2 'aksi yang dijalankan jika option1 bernilai benar

ElseIf Option2 = True Then

vH = v1 - v2

ElseIf Option3 = True Then

vH = v1 * v2

Else

vH = v1 / v2

End If

Text3.Text = vH 'memasukkan nilai vH (nilai hasil) ke textBox hasil

End Sub

Coba jalankan program dengan meng-Click tombol play atau tekan F5….

Gambar 4. Hasil Runing Program

Demikian cara pembuatan program perhitungan sederhana, silakan kembangkan sesuai pemikiran Anda. Berkreatifitaslah dengan VB6 ini. Semakin bagus pemikiran Anda maka semakin bagus juga program yang Anda buat.

Oke, kita lanjutkan membuat program sederhana yang dapat menginputkan dan menampilkan hasil inputan. Langsung saja kita tambahkan form baru pada project yang sama dengan di atas. Caranya klik Project > Add Form maka akan muncul form seperti berikut :

Langsung saja klik Open,setelah itu desain form seperti di bawah ini :

Setelah itu masukkan code di bawah ini, Anda bisa copy-kan ke project yang Anda buat.

Dim string1 As String

Private Sub Check1_Click()

Label2.FontBold = True

End Sub

Private Sub Check2_Click()

Label2.FontItalic = True

End Sub

Private Sub Check3_Click()

Label2.FontUnderline = True

End Sub

Private Sub Command1_Click()

string1 = Text1.Text

If Option1 = True Then

Label2.ForeColor = vbRed

ElseIf Option2 = True Then

Label2.ForeColor = vbBlue

ElseIf Option3 = True Then

Label2.ForeColor = vbGreen

ElseIf Option4 = True Then

Label2.ForeColor = vbYellow

End If

Label2.Caption = string1

End Sub

Coba jalankan program di atas, setelah faham coba kembangkan sesuai pemikiran Anda sendiri. Selamat mencoba…!!

Kamu bisa download file pdf nya di link download di sini