Cara Koneksi Vb Net Dengan Hosting 2. Untuk membuat module dengan cara klik project >. Perintah untuk membuat koneksi ini dituliskan pada module di vb.net,. Untuk memasukan nama server yang tadi telah anda dapatkan, maka selanjutnya cara menghubungkan domain ke hosting yakni. Sekarang buat fungsi untuk koneksi ke database. Buat fungsi bernama koneksi, buat. Sekarang buat fungsi untuk koneksi ke database. Net dengan menggunakan koneksi odbc cara koneksi visual studio (2010) / vb.net ke sql dengan menggunakan odbc cara
mudah. Buat project baru seperti biasa. Pastikan kalian telah memiliki sebuah file database access yang siap untuk digunakan. Jadi sebaiknya coding koneksi ke. Setelah itu jangan lupa di save programnya. Visual studio mendukung berbagai macam jenis database termasuk produk microsoft, namun taukah kamu ms accsess. Dim conn as new odbc.odbcconnection (dsn=presensi)
protected cmd as odbc.odbccommand. Memasukkan server nama ke pengaturan register. Langkah pertama yang harus disiapkan yaitu menginstal conector mysql vb.net, bisa mendownlodnya di link berikut. Cara koneksikan vb net ke database mysql odbc. Berikut pseuducode dari fungsi koneksi yang saya buat sendiri. Buka web project yang sudah kita
buat di tutorial sebelumnya, cari dan buka web.config. Cara membuat form login vb. Kemudian buat module untuk koneksi dengan nama mod_db.vb.1.1 Anda Sudah Memiliki Nama Domain.
Dim Str As String = .
Pertama Tambahkan Reference, Pilih Project, Add Reference, Cari Mysql.data.
Pengertian Login Login Adalah Proses Untuk Mengakses Komputer.
Jika Databasenya Sudah Dibuat Langkah Selanjutnya Buka Vb.net 2010.
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