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

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Total Tayangan Halaman

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

 

2 komentar:

  1. jadi cara koneksi nya hanya perlu taruh nama server dan port sesuai dgn database hosting nya ya, makasih info nya gan.
    tapi nama database nya ngenes bgt gan :v

    BalasHapus
  2. Halo saya ingin tanya, saya pemula vb.net, itu domain name dicoding.cloudapl.net mksdnya apa ya?? Dan port tsb dri port apa ya? Maaf saya newbie dan blm tau apa2:)

    BalasHapus