pengen bisa VB.net dan lihat-lihat tutorial di internet (http://ho1onk.blogspot.com/2012/12/membuat-koneksi-vbnet-dengan-mysql.html) masih butuh banyak perbaikan di sana sini. Jadi saya fix bugging
ok this is the entire source :
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim blnAdd As Boolean 'indicator if add button was pressed
    Dim db As New MySql.Data.MySqlClient.MySqlConnection
    Dim cmd As MySqlCommand
    Dim rs As MySqlDataReader
    Dim sql As String
    Sub opendb()
        sql = "server=localhost;uid=xxxxx;pwd=r4h4514;database=xxxxx"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Sub Rubah(ByVal T1 As Boolean, ByVal T2 As Boolean, ByVal T3 As Boolean, ByVal T4 As Boolean, ByVal T5 As Boolean, ByVal T6 As Boolean)
        baru.Enabled = T1
        edit.Enabled = T2
        hapus.Enabled = T3
        simpan.Enabled = T4
        batal.Enabled = T5
        keluar.Enabled = T6
    End Sub
    Sub BuatTable()
        ListView1.Columns.Add("NIDN", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 120, HorizontalAlignment.Center)
        ListView1.Columns.Add("Keahlian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Alamat", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Telp", 80, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()

        ListView1.Items.Clear()

        sql = "select * from dosen"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim baris As New ListViewItem
                baris.Text = rs("NIDN")
                baris.SubItems.Add(rs("Nama"))
                baris.SubItems.Add(rs("Keahlian"))
                baris.SubItems.Add(rs("Alamat"))
                baris.SubItems.Add(rs("Tlp"))
                ListView1.Items.Add(baris)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()


    End Sub
    Sub hapussql()

    End Sub
    Sub bersih()
        NIDN.Text = ""
        Nama.Text = ""
        Keahlian.Text = ""
        Alamat.Text = ""
        Tlp.Text = ""
        isitabel()
        Rubah(True, True, True, False, False, True)
    End Sub
    Sub buka()
        NIDN.Enabled = True
        Nama.Enabled = True
        Keahlian.Enabled = True
        Alamat.Enabled = True
        Tlp.Enabled = True
    End Sub

    Sub tutup()
        NIDN.Enabled = False
        Nama.Enabled = False
        Keahlian.Enabled = False
        Alamat.Enabled = False
        Tlp.Enabled = False
    End Sub
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        opendb()
        BuatTable()
        isitabel()
        bersih()

    End Sub
    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
        bersih()
        buka()
        Rubah(False, False, False, True, True, False)
        NIDN.Focus()
        blnAdd = True
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        bersih()
        tutup()
        NIDN.Focus()
        Rubah(True, True, True, False, False, False)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        If blnAdd Then
            sql = "INSERT INTO dosen VALUES(' " & NIDN.Text & "',' " & Nama.Text & " ',' " & Keahlian.Text & " ',' " & Alamat.Text & " ',' " & Tlp.Text & " ')"
            Try
                cmd = New MySqlCommand(sql, db)
                cmd.ExecuteNonQuery()

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            bersih()
            tutup()
            NIDN.Focus()
        Else
            sql = "UPDATE dosen SET nama='" & Nama.Text & "', keahlian='" & Keahlian.Text & "', alamat='" & Alamat.Text & "', tlp='" & Tlp.Text & "' where nidn='" & NIDN.Text & "'"
            Try
                cmd = New MySqlCommand(sql, db)
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            bersih()
            tutup()
            NIDN.Focus()
        End If


    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click
        buka()
        blnAdd = False
        NIDN.Enabled = False
        Rubah(False, False, False, True, True, False)
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        MsgBox("Yakin Hapus??", vbYesNo, "peringatan")
        If vbYes Then
            sql = "DELETE FROM dosen where nidn='" & NIDN.Text & "'"
            Try
                cmd = New MySqlCommand(sql, db)
                cmd.ExecuteNonQuery()
                isitabel()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

    Private Sub NIDN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIDN.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If NIDN.Text = "" Then
                MsgBox("Isi dulu NIDN nya mas bro")
            Else
                sql = "SELECT * FROM dosen where nidn='" & NIDN.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    rs.Read()
                    Nama.Text = rs("Nama")
                    Keahlian.Text = rs("Keahlian")
                    Alamat.Text = rs("Alamat")
                    Tlp.Text = rs("Telp")
                    Rubah(False, False, True, True, True, False)
                Catch ex As Exception
                    Dim x As String
                    x = NIDN.Text
                    bersih()
                    NIDN.Text = x
                    Rubah(False, True, False, False, True, False)
                End Try
                rs.Close()
                Nama.Focus()
            End If
        End If
    End Sub

    Private Sub NIDN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIDN.TextChanged

    End Sub

  
    Private Sub ListView1_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        For Each a In ListView1.SelectedItems
            Dim sQ As String = "select * from dosen where NIDN='" + ListView1.SelectedItems(0).Text + "'"
            NIDN.Text = ListView1.SelectedItems(0).Text
            Nama.Text = ListView1.SelectedItems(0).SubItems(1).Text
            Keahlian.Text = ListView1.SelectedItems(0).SubItems(2).Text
            Alamat.Text = ListView1.SelectedItems(0).SubItems(3).Text
            Tlp.Text = ListView1.SelectedItems(0).SubItems(4).Text
        Next
    End Sub
End Class



database struktur:

NIDN : varchar(50)
Nama : varchar(50)
Keahlian : varchar(50)
Alamat : varchar(50)
Tlp : varchar(50)

 Perbaikan bug dari yang dulu hanya Edit, Delete, cancel menggunakan database My SQL.
semoga next time bisa pake DB SQL Server

Ini Cara Redakan Sakit Kepala Tanpa Obat

Anda sering diganggu oleh sakit kepala yang tidak tertahankan? Ada beberapa hal yang dapat menjadi penyebab, diantaranya stres atau perut yang sedang tidak bersahabat. Kerap kali Anda butuh solusi, namun segan terus-terusan minum obat pereda sakit kepala yang dijual bebas. Untuk itu, Anda bisa mencoba beberapa cara berikut ini, agar bisa meredakan sakit dan segera kembali beraktivitas. Teknik rileksasi Mengambil nafas mendalam beberapa kali dan melakukan peregangan di area leher dan bahu dapat merilekskan otot yang kaku, yang berkontribusi pada sakit kepala. Sheena Aurora, MD, direktur Swedish Headache Center, di Seattle, menganjurkan solusi ini untuk meredakan sakit kepala yang terjadi karena Anda sedang stres. Selain itu, peregangan tubuh juga dapat memperbaiki postur tubuh yang buruk, yang juga merupakan salah satu penyebab sakit kepala. Terapi panas atau dingin Sensasi panas atau dingin cocok bagi jenis sakit kepala yang sifatnya ringan (bukan migren). Caranya mudah, Anda hanya perlu menempelkan kompres panas atau dingin (sekarang tersedia dalam kemasan praktis dan bisa dibeli di apotek retail) di bagian yang terasa sakit, lalu biarkan selama 15 menit. "Pilihan kompres panas atau dingin itu tergantung pada preferensi Anda," kata Jason Rosenberg, MD, direktur Johns Hopkins Headache Center, Bayview, Baltimore. Para ahli masih belum menemukan mengapa terapi ini bisa efektif, namun diduga kompres dingin dapat memperlambat aliran darah dan mengurangi inflamasi. Sementara, kompres panas meningkatkan aliran darah dan meredakan nyeri. Minum kopi Untuk sakit kepala skala ringan, menyesap kopi yang mengandung kafein bisa jadi "obat" yang manjur. Kafein dapat menghambat adenosine, sejenis neurotransmiter yang dapat menyebabkan pembuluh darah melebar dan menciptakan tekanan. Minum minuman mengandung kafein sesaat setelah sakit kepala datang dapat membantu meredakan rasa nyeri. Namun, sayangnya ini hanya berlaku bagi mereka yang jarang minum kopi, atau konsumsinya tidak lebih dari 1 cangkir sehari. Bila Anda memang peminum kopi berat, bisa jadi "obat" ini kurang responsif. Teh peppermint Sakit kepala datang bersama dengan perut yang tidak nyaman? Minum saja teh peppermint untuk meredakannya. "Peppermint terbukti dapat meredakan ketegangan di saluran gastrointestinal, sekaligus meredakan gejala sakit kepala," kata Audrey L. Halpern, MD, direktur Manhattan Center for Headache and Neurology. Selain itu, perubahan neurokimia di otak akibat serangan sakit kepala juga dapat memengaruhi bagian otak yang menciptakan rasa mual, lanjut Halpern. Nah, teh peppermint akan juga membantu meredakan rasa tidak nyaman itu. Penting: Bila Anda sedang hamil, sebaiknya tidak mengonsumsi peppermint tanpa berkonsultasi dengan dokter.

radiasi

NEW YORK - Badan Kesehatan Dunia WHO baru-baru ini mengingatkan bahaya radiasi dari ponsel yang diklasifikasikan sebagai "sangat mungkin berisiko kanker". Badan ini sebelumnya telah melakukan peninjauan dari efek gelombang elektromagnetik terhadap kesehatan manusia. Deklarasi tersebut didasarkan pada bukti dalam penelitian atas mereka yang menggunakan ponsel secara intensif. Diketahui, intensitas tinggi pemakaian ponsel mengakibatkan peningkatan risiko glioma, sebuah bentuk kanker otak ganas. Kesimpulan yang diambil International Agency for Research on Cancer (IARC), badan di bawah WHO, berlaku untuk radiasi elektromagnetik frekuensi radio pada umumnya, meskipun sebagian besar penelitian di daerah ini berpusat pada telepon selular. Temuan adalah puncak dari pertemuan IARC yang diikuti 31 ilmuwan dari 14 negara untuk mengkaji ratusan hasil penelitian sebelumnya yang telah dipublikasi tentang risiko kanker yang ditimbulkan oleh medan elektromagnetik. Jonathan Samet, seorang ilmuwan di University of Southern California, yang memimpin grup itu menyatakan, "Mungkin ada beberapa risiko, dan oleh karena itu kita harus tetap mencermati hubungan antara ponsel dan kanker." Dalam menunjuk bidang frekuensi radio sebagai "mungkin karsinogenik", WHO telah menempatkan mereka setara dengan sekitar 240 agen lain yang merugikan, termasuk medan magnet tingkat rendah, bedak, dan bekerja sebagai dry cleaner. Laporan tersebut tidak menemukan mekanisme yang jelas bagi gelombang menyebabkan tumor otak. Radiasi dari ponsel terlalu lemah untuk menyebabkan kanker dengan memecah DNA, yang menyebabkan para ilmuwan mencari faktor penyebab lain. "Kami menemukan beberapa benang merah yang memberitahu kita bagaimana kanker dapat terjadi tetapi ada kesenjangan dan ketidakpastian," kata Samet. Christopher Liar, Direktur IARC, mengatakan bahwa dalam melihat implikasi potensial untuk kesehatan masyarakat, harus ada penelitian lebih lanjut tentang jangka panjang penggunaan ponsel. "Menunggu ketersediaan informasi tersebut, penting untuk mengambil langkah-langkah pragmatis untuk mengurangi eksposur seperti perangkat hands-free atau SMS," katanya. REPUBLIKA.CO.ID,

ciri wanita beresiko jantung

TAK hanya pria, kaum perempuan mulai kini juga mesti lebih mewaspadai penyakit jantung dengan mengetahui faktor apa saja yang bisa menjadi risiko. Contohnya di Amerika, jantung kini menjadi penyebab kematian utama pada perempuan. Maka itu para ilmuwan pun merekomendasikan agar setiap perempuan mengetahui apakah dirinya juga berisiko . Berikut beberapa factor yang bisa membuat Anda berisiko mengidap sakit jantung, seperti dikutip dari Shine.com. Dengan mengetahuinya, Anda bisa segera melakukan upaya pencegahan sedini mungkin. Anda berisiko tinggi bila: 1. Mengidap penyakit arteri koroner (stent, operasi bypass, dan serangan jantung) 2. Mengalami stroke atau karotis (leher) penyakit arteri 3. Arteri di kaki Anda terhambat 4. Mengalami abdomen Aortic Aneurysm yakni arteri melemah di perut 5. Mengidap penyakit ginjal kronis 6. Mengidap diabetes Anda berisiko terkena penyakit jantung bila: 1. Perokok 2. Kurang gerak 3. Kegemukan atau obesitas 4. Memiliki riwayat keluarga berpenyakit jantung (ayah dengan penyakit jantung kurang dari 65 tahun atau ibu dengan penyakit jantung kurang dari 55 tahun) 5. Tekanan darah tinggi (lebih dari 130/85 mmHg) 6. Kolesterol tinggi (lebih dari 200 mg/dL, HDL (kolesterol baik) kurang dari 50 mg/dL) 7. Mengidap lupus atau rheumatoid arthritis (penyakit autoimun) 8. Mengidap sindroma metabolik 9. Mengalami komplikasi saat kehamilan komplikasi seperti diabetes berhubungan dengan kehamilan, eklampsia atau preeklampsia (hipertensi berhubungan dengan kehamilan). Ini juga pertama kalinya terdapat rekomendasi tekanan darah tinggi yang berhubungan dengan kehamilan atau diabetes sebagai faktor risiko untuk penyakit jantung di kemudian hari meski setelah kehamilan kondisi tersebut tidak lagi perlu diobati. Sebuah analisis baru-baru ini juga menunjukkan bahwa perempuan dengan kondisi tersebut dua kali lipat berisiko mengidap penyakit jantung koroner (penyumbatan dalam arteri jantung) dan stroke dalam 5 sampai 15 tahun mendatang setelah kehamilan, seperti dikutip dari British Medical Journal pada 2007. Penyakit autoimun kini juga tengah dipertimbangkan sebagai faktor risiko untuk penyakit jantung dan stroke. Semua faktor risiko harus dioptimalkan jika Anda memiliki lupus atau rheumatoid arthritis. Oleh karena itu, optimalkan kesehatan Anda sekarang. Bagaimanapun, lebih baik mencegah ketimbang mengobati!

Penyebab emosi memuncak di kantor

SURVEI yang dilakukan oleh sebuah situs karier di Inggris menemukan 10 penyebab utama kemarahan di lingkungan kerja: 1. Manajemen yang buruk. Misalnya: staf disuruh melakukan sesuatu yang salah, perintah yang berubah-ubah, atasan yang selalu mengkritik bawahan, bawahan yang merasa jauh lebih baik daripada atasan. 2. Perlakuan tak adil. Misalnya: staf lain mengerjakan pekerjaan yang sama dengan gaji yang lebih besar, tak ada sanksi bagi staf yang melanggar peraturan. 3. Minimnya kesempatan berkembang. Pekerja dijanjikan kenaikan gaji, promosi atau proyek penting, namun tidak pernah terjadi. 4. Tidak dihargai. Pekerja tidak mendapatkan reward atas kinerja yang baik. 5. Overload. Pekerja tidak dapat mengikuti target dari atasan, karena target yang terlalu tinggi. 6. Masalah komputer. Misalnya: koneksi internet yang lambat, spesifikasi komputer yang ketinggalan jaman dan tidak sesuai kebutuhan. 7. Rekan kerja yang tidak jujur 8. Anak buah yang kurang cakap 9. Rekan kerja yang tidak sopan atau berperilaku kasar 10.Atasan yang menyalahgunakan kekuasaan.

OTAK

Otak memiliki ritme kerja teratur yang dipengaruhi jam biologis, pola tidur, sensitivitas cahaya, dan faktor keturunan. Ini seringkali membuat kondisi otak tak sesuai dengan aktivitas yang tengah dijalani.

Menyelaraskan aktivitas sehari-hari dengan ritme kerja otak pun menjadi penting demi mengoptimalkan kualitas hidup. Tak hanya menyehatkan, tapi juga membuat tubuh bugar, lebih berenergi dan tidak stres. Ini bukan hal aneh karena sistem tubuh diatur di otak.

Berikut ritme kerja otak yang berulang setiap 24 jam, seperti dikutip dari laman Shine:

05.00 - 09.00 : Puaskan gairah seksual

"Saat yang paling tepat untuk bercinta adalah ketika Anda bangun tidur," ujar Ilia Karatsoreos, PhD, ahli saraf Universitas Rockefeller. Ini karena produksi hormon cinta atau oksitoksin yang melimpah ketika bangun tidur.

Pereliti asal Inggris telah membuktikan bahwa hormon oksitoksin di pagi hari pada pria akan menurun seiring datangnya siang. Demi kehidupan seksual yang lebih baik dan ikatan emosional lebih kuat, tidak ada salahnya bercinta sebelum memulai aktivitas di luar rumah.

09.00 - 11.00 : Maksimalkan kreativitas

"Pada jam ini, otak memiliki tingkat hormon stres atau kortisol yang rendah, sehingga Anda bisa lebih fokus dalam berpikir," ujar Sung Lee, MD, sekretaris International Brain Education Association.

Menurut penelitian Universitas Michigan, mahasiswa sampai pensiunan memiliki ketajaman berpikir yang sama di pagi hari, namun akan berkurang di sore hari. "Pada umur produktif, Anda akan lebih fokus di pagi hari," ujar Carolyn Yoon, PhD, salah satu peneliti.

Anda dapat memaksimalkan kerja otak Anda dengan membangung ide-ide baru, membuat presentasi, atau memecahkan suatu masalah, pada periode waktu ini.

11.00 - 14.00 : Selesaikan pekerjaan

Saat ini terjadi penurunan level hormon melatonin, hormon yang menyebabkan rasa kantuk. Artinya, Anda dapat mengerjakan banyak proyek. Para peneliti asal Jerman menemukan bahwa manusia dapat

melakukan banyak pekerjaan di siang hari.

Namun, kerjakan satu per satu tugas Anda. Jangan biarkan Anda tersesat dalam tumpukan tugas yang belum terselesaikan. Sebab, ini dapat mengakibatkan kebingungan pada otak dan Anda pun akan

kehilangan konsentrasi untuk menyelesaikan tugas-tugas Anda.

14.00 - 15.00 : Saatnya istirahat

"Untuk mencerna makanan, tubuh Anda akan mengarahkan aliran darah dari otak ke perut," ujar Sung Lee. Berdasarkan penelitian Unversitas Harvard, Anda akan merasakan kantuk dan malas setelah

makan karena jam biologis Anda berada pada fase terendah.

Lupakan sejenak pekerjaan. Tak harus tidur, Anda dapat membuka akun situs pertemanan atau membaca majalah. Jika Anda diharuskan bekerja, sempatkan sejenak menenggak segelas atau dua gelas air. Ini bisa memaksa perpindahan aliran darah dari perut ke otak. "Air meningkatkan volume darah dan sirkulasi, dan membuat aliran darah menuju otak," ujarnya.

15.00 - 18.00 : Berolahragalah!

"Otak Anda akan mengalami kepanikan saat ini," ujar Paul Nussbaum, PhD, ahli psikologi syaraf dan penulis 'Your Brain Health Lifestyle'. Namun, bukan berarti Anda mengalami stres. Menurut para peneliti Unversitas Michigan, level hormon kortisol pada wanita mengalami penurunan di sore hari.

Berolahraga bisa menjadi pilihan yang tepat karena kekuatan, ketangkasan, dan ketrampilan fisik berada dalam level yang paling tinggi di malam hari. Namun, jika Anda berolahraga terlalu malam, sisa adrenalin akan mengganggu waktu tidur sebagian orang. Pergi ke pusat kebugaran sebelum makan malam adalah pilihan yang tepat.

18.00 - 20.00 : Waktunya santai

Menurut para peneliti, di waktu ini otak memasuki fase yang disebut 'wake maintenance'. Otak memproduksi melatonin, hormon yang mengatur jam biologis manusia. Sisa energi Anda akan digunakan

untuk menstimulasi serotonin, hormon pengendali mood atau semangat. Saat ini adalah waktu yang tepat untuk jalan-jalan, berbincang-bincang ringan dengan suami dan anak Anda, atau mungkin teman Anda.

20.00 - 22.00 : Bersiaplah tidur

Anda akan cepat merasakan kantuk karena melatonin meningkat dengan cepat. Namun di saat yang sama, banyaknya serotonin dalam tubuh mulai menurun. "80 persen dari serotonin terstimulasi oleh sensitivitas cahaya, Anda pun akan merasa lelah," ujar Rubin Naiman, PhD, spesialis tidur dan asisten profesor bidang obat-obatan Universitas Arizona.

Waktunya untuk Anda merasakan kenyamanan dan tidak memikirkan hal-hal yang berat. "Ketika malam tiba, otak Anda akan merasa lelah, saat ini waktu yang paling tepat untuk membawa diri Anda terlelap," ujarnya.

sumber : http://id.news.yahoo.com/viva/20110225/tls-waktu-terbaik-bercinta-34dae5e.html

Logon failure

pertama kali msalah ini muncul aku hanya ingin melakukan sharing antar komputer ternyata setelah mengakses komputer sebelah ada masalah yang muncul yaitu :
"Logon failure: user account restriction. Possible reasons are blank passwords not allowed, logon hour restrictions, or a policy restriction has been enforced"
cara mengatasinya mudah dengan cara :
1. Access register dengan cara klik start menu dan klik run atau dengan tombol shortcut yaitu windows key + R lalu ketik "regedit"(tanpa tanda kutip).
2. Lalu access HKEY_LOCAL_MECHINE\System\CurrentControlSet\Control\Lsa\limitblankpassworduse.
3. double klik nilainya lalu ganti nilai 1 dengan 0.
and problem solved.
thats all semoga membantu