KERJA IT - COMPUTER

Markas Rabbani Surabaya Jl.Pucang Anom Timur No. 14 Surabaya Telp. 08123015071 Email : Markas_rabbani_sby@yahoo.co.id

  • RSS
  • Google +
  • Facebook

Popular Posts

IDHOSTINGER memang OK
Radio - TV OnLine
Asyiiikk Bro

Translate Google

About Me

Foto saya

1. Kerja di Perusahaan Jualan Computer 2. Konsultan Management and Software House di Jakarta Jl. Kemang Raya Jakarta Selatan, PT Sumber Saran Sempurna 3. Honor di Kantor Bea dan Cukai TG. Perak dan Juanda Surabaya 4. Free Line di berbagai Instansi sebagai Programmer 5. Mulai awal tahun 2007 sampai sekarang kerja di Rabbani Profesor Kerudung Instan Jl. Dharmawangsa 98 A Surabaya

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Google+ Followers

Total Tayangan Laman

HOSTINGER

Web Hosting

Prof DR KH Said Aqil Sirodj - Ketua PB NU

Gus Mus - Prof DR KH Said Aqil Sirodj - Alm Gus Dur

HOSTINGER Web Gratis Tanpa Iklan

Gak Percaya Buktikan

Griya Asy-Syifa

Jl Suromulang Timur II/18 Perum Citra Surodinawan Estate Kota Mojokerto Contac : 081231821800, 08814353000, 085746201881 Pin BB : 24D0B84C e-mail : ariesmojokerto@gmail.com

HOSTINGER Gratis tanpa Iklan

Web Hosting GRATIS dI Indonesia Tanpa Iklan

WaliSongo

Babat alas Tanah Jawa - Pengikut Nabi Muhammad saw - NU

Senin, 25 Agustus 2014

VB.NET KONEKSI DENGAN MYSQL HOSTING

 

 Kebetulan di salah satu Komunitas Programer VB di FB menawarkan DataBase Gratis tapi hanya untuk Pembelajaran
FB nya : klik sini

atau kunjungi Komunitas  ini :



Untuk koneksi Data Base nya saya buat Module :

Imports MySql.Data.MySqlClient
Imports System.Data
Module modulku
       Dim ConString = "server=dikoding.cloudapp.net;Port=24555; User ID=user_kami; password=123; database=jomblo"
    Public db As New MySqlConnection(ConString)
    Public Sub konek()
        Try
            tutupDB()
            db.Open()
            MsgBox("Koneksi DataBase berhasil dilakukan")
        Catch ex As MySqlException
            MsgBox(ex.Message)
            MsgBox("Koneksi tidak berhasil dilakukan")
        End Try
    End Sub
    Public Sub tutupDB()
        If db.State = ConnectionState.Open Then
            db.Close()
        End If
    End Sub

End Module




Coding berikutnya :
Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        tutupDB()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        konek()
        DisplayData()
    End Sub
    Private Sub DisplayData()
        Dim da As New MySqlDataAdapter("SELECT * FROM daftar_jomblo", db)
        Dim dt As New DataTable
        da.Fill(dt)
        dgv.DataSource = dt
        'percantik Grid
        dgv.GridColor = Color.Cyan
        dgv.DefaultCellStyle.ForeColor = Color.Black
        dgv.RowsDefaultCellStyle.BackColor = Color.PaleGreen
        dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.PapayaWhip
        dgv.GridColor = Color.Silver
        'merubah ukuran dari kolom
        dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells


    End Sub
    Private Sub btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefresh.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            konek()

            Dim cmd As New MySqlCommand("insert into daftar_jomblo(Idjomblo, Nama_jomblo, No_hp) values('" & txtid.Text & "','" & txtnama.Text & "','" & txthp.Text & "')", db)
            cmd.ExecuteNonQuery()
            DisplayData()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class


Hasilnya :


Selamat Otak Atik