Sui Sei Seki :D

     * Nama : Yuri
    * Nama Lengkap : Kwon Yuri
    * Arti Nama : Putih melati yang ramah ( Baik hati )
    * Nama Panggilan di SNSD : Black Pearl
    * Nama Panggilan Lain : Yul, Kwongul, Ggab-Yul, Black Yul, Yuree
    * Tgl. Lahir : 5 Desember 1989
    * Gol. Darah : AB
    * Tinggi Badan : 167 cm
    * Berat Badan : 45 kg
    * Posisi : Ketua Dancer yang ke-2, membantu vokal
    * No. Favorite : 19
    * Hobi : Dancing, Ballet, Main piano, Violin, Renang
    * Spesial : Bahasa Cina, renang
    * Durasi Latihan : 5 tahun 11 bulan
    * Lagu Favorite Dari SNSD : Baby Baby

     * Nama : Hyoyeon
    * Nama Lengkap : Kim Hyo Yeon
    * Arti Nama : Selalu tumbuh dengan indah
    * Nama Panggilan di SNSD : Bright Snow White
    * Nama Panggilan Lain : Dancing Queen, Princess Fiona, Hyo Fit and Firm, Apple Princess, Hyon
    * Tgl. Lahir : 22 September 1989
    * Gol. Darah : AB
    * Tinggi Badan : 160 cm
    * Berat Badan : 48 kg
    * Posisi : Ketua Dancer yang ke-1, membantu vokal
    * No. Favorite : 85
    * Hobi : Menari/Nge dance
    * Spesial : Bahasa Cina, Dance
    * Durasi Latihan : 6 tahun 1 bulan

     * Nama : Jessica
    * Nama Lengkap : Jung Soo Yeon, Jessica Jung
    * Arti Nama : Cantik dan kemewahan / barang mewah
    * Nama Panggilan di SNSD : Ice Princess
    * Nama Panggilan Lain : Sic, Sica, Sicachu, Liquid Sica, Sica Effect,, Sica Of Sweat, Baby Sic, Puppet Sic, Sexica, glowing Sic, Sleepy Sica
    * Tgl. lahir : 18 April 1989
    * Gol. darah : B
    * Tinggi badan : 163 cm
    * Berat badan : 45 kg
    * Posisi : ketua Vocal yang ke- 2
    * No. Favorite : 52
    * Hobi : sepakbola, tinju
    * Spesial : Dance, bahasa inggris
    * Durasi latihan : 7 tahun 6 bulan
    * Lagu favorite dari SNSD : Complete

     * Nama : SeoHyun
    * Nama Lengkap : Seo Joo Hyun
    * Arti Nama : Mutiara penting/mutiara yang berguna
    * Nama Panggilan di SNSD : The Youngest Princess
    * Nama Panggilan Lain : Seororo, Innocent Seohyun, Kerohyun, Youngest Child, Milk Seo Joo
    * Tgl. Lahir : 28 Juni 1991
    * Gol.Darah : A
    * Tinggi Badan : 168 cm
    * Berat Badan : 48 kg
    * Posisi : Ketua Vokal yang ke-3
    * No. Favorite : 64
    * Hobi : Main Piano, nonton Keroro
    * Spesial : Bahasa Cina, Main Piano
    * Durasi Latihan : 6 tahun 6 bulan
    * Lagu Favorite dari SNSD : Kissing You

     * Nama : SooYoung
    * Nama Lengkap : Choi Soo Young
    * Arti Nama : Daun bunga yang kemewahan
    * Nama Panggilan di SNSD : Fun Loving Princess
    * Nama Panggilan Lain : A Person with long body, Long Legs, Model, Food God, Interuptor, Syoung
    * Tgl. Lahir : 10 Februari 1990
    * Gol. Darah : O
    * Tinggi Badan : 170 cm
    * Berat Badan : 48 kg
    * Posisi : Membantu Vokal
    * No. Favorite : 08
    * Hobi : Makan
    * Spesial : Bahasa Jepang, Dance
    * Durasi Latihan : 6 tahun 3 bulan
    * Lagu Favorite dari SNSD : Complete

     * Nama : Sunny
    * Nama Lengkap : Lee Sun Kyu
    * Arti Nama : Permata yang dilahirkan dengan indah
    * Nama Panggilan di SNSD : Energy Pill
    * Nama Panggilan lain : Lee Sunny, Lee Sun, Dolphin, Dolphin Sunny, Cute Sunny, Sun Kyu
    * Tgl. Lahir : 15 Mei 1989
    * Gol. Darah : B
    * Tinggi Badan : 158 cm
    * Berat Badan : 43 kg
    * Posisi : Membantu Vokal
    * No. Favorite : 26
    * Hobi : Renang, main video game, olahraga
    * Spesial : Atletik
    * Durasi Latihan : 9 bulan
    * Lagu Favorite dari SNSD : Ooh-La-La!

     * Nama : Tiffany
    * Nama Lengkap : Hwang Mi Young, Tiffany Hwang
    * Arti Nama : Daun bunga yang cantik
    * Nama Panggilan di SNSD : Brighter Than Gem
    * Nama Panggilan Lain : Fany, Brighter than Mushroom Tiffany, Fanny of Belly, Bacteria Fany, Fany The Practicer, Rural Fany, Spongebob Hwang, Fany Fany Tiffany, Human Jukebox, Mushroom
    * Tgl. Lahir : 1 Agustus 1989
    * Tinggi Badan : 162 cm
    * Berat Badan : 50 kg
    * Posisi : Ketua Vokal yang ke-4
    * Hobi : Main Seruling
    * Spesial : Bahasa Inggris, Main Flute ( Seruling )
    * Durasi Latihan : 3 tahun 7 bulan
    * Lagu Favorite dari SNSD : Baby Baby

    * Nama : Yoona
    * Nama Lengkap : Im Yoon Ah
    * Arti Nama : Anak kecil yang tak berdosa
    * Nama Panggilan di SNSD : Charming Girl
    * Nama Panggilan Lain : Little Deer, Retarol, Flower Deer, Powerful Yoona, Bravery Yoona, YoonABC
    * Tgl. Lahir : 30 Mei 1990
    * Gol. Darah : B
    * Tinggi Badan : 166 cm
    * Berat Badan : 47 kg
    * Posisi : Ketua Dancer yang ke-3, membantu vokal
    * No. Favorite : 93
    * Spesial : Akting
    * Durasi Latihan : 7 tahun 2 bulan
    * Lagu favorite dari SNSD : Complete

    * Nama : Taeyeon
    * Nama Lengkap : Kim Tae Yeon
    * Arti Nama : Kebesaran ( yang mulia ) yang cantik
    * Nama Panggilan di SNSD : little child that is like Pack Sol – Ge snack
    * Nama Panggilan lain : Taetae, Taeng, leader Taeyeon, leader Taeng, Kid leader, Auntie, Afro Tangee, little person, A person with short body, Pack-Sol-Ge snack
    * Tgl. lahir : 9 Maret 1989
    * Gol. darah : O
    * Tinggi badan : 162 cm
    * Berat Badan : 44 kg
    * Posisi : ketua, ketua vocal yang ke- 1
    * No. Favorite : 22, 3, 6 ,9
    * Hobi : Renang
    * Special : Menyanyi Trot, bahasa Cina
    * Durasi latihan : 5 tahun 3 bulan
    * Lagu favorite dari SNSD : Merry Go – Round

coding module

Option Explicit
Public cn As New ADODB.Connection

Public Sub openConnection()
    Set cn = New ADODB.Connection
        With cn
            .ConnectionString = ""
            .CursorLocation = adUseClient
            .Open
        End With
End Sub

coding simpan

Private Sub Command1_Click()
    Dim strsql As String
    If Text1.Text <> "" And Text2.Text <> "" Then
        strsql = "insert into siswa" & "(nis,nama)" _
        & "values(' " & Text1.Text & " ',' " & Text2.Text & " ')"
        cn.Execute strsql
        MsgBox "Data Telah Tersimpan", vbInformation, Me.Caption
        Adodc1.Refresh
        Text1.Text = ""
        Text2.Text = ""
        Exit Sub
    Else
        MsgBox "DData Belum Lengkap", vbInformation, Me.Caption
        Exit Sub
    End If

End Sub

coding hapus

Private Sub Command2_Click()
Dim strsql As String
If MsgBox("Yakin Akan Di Hapus?" _
, vbQuestion + vbYesNo, "Hapus Data") = vbYes Then
strsql = "Delete from siswa where nis= '" & Text1.Text & "'"
cn.Execute strsql, , adCmdText
MsgBox "Data Sudah Terhapus!", vbInformation, Me.Caption
End If
Command3_Click
Exit Sub
End Sub

coding refresh

Private Sub Command3_Click()
Set Ldata = New ADODB.Recordset
Dim strsql As String
Set Ldata = Nothing
strsql = "select * from siswa order by nis desc"
Ldata.Open strsql, cn, adOpenDynamic, adLockOptimistic, adCmdText
Tampilkan_Data
End Sub

coding tampilkan data

Private Sub tampilkan_data()
On Error Resume Next
With Ldata
        Text1.Text = !nis
        Text2.Text = !nama
    End With
    Set DataGrid1.DataSource = Ldata.DataSource
    DataGrid1.Refresh
    End Sub

ges ah sakie hela ahahahah :D

Sui Sei Seki :D

Jumat, 11 Februari 2011

The Profil Of Girl's Generation

Daftar Coding Visual Basic :D