‘ letakkan di bagian paling atas
Imports MySql.Data.MySqlClient
‘code
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
‘ Memeriksa apakah objek koneksi masih ada
‘ Jika ada, maka menutup terlebih dahulu
If Not Conn Is Nothing Then Conn.Close()
‘ memasukkan informasi ke variabel
ConnString = “server=localhost;” _
& “uid=tidak_ada;” _
& “pwd=apasaja;” _
& “database=test;”
Try
‘ Membuat objek MySqlConnection melalui
‘ konstruktor dengan parameter string koneksi
Conn = New MySqlConnection(ConnString)
‘ membuka koneksi database
Conn.Open()
MsgBo
“Koneksi ke ” & Conn.DataSource _
& Chr(10) & “Status : ” & Conn.State.ToString(), _
MsgBoxStyle.Information, “Sukses”)
‘ menutup koneksi
Conn.Close()
Catch ex As MySqlException
Select Case ex.Number
Case 0
MessageBox.Show(“Tidak dapat Koneksi ke ” _
& Conn.DataSource, “Koneksi Gagal”, _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Case 1045
MessageBox.Show(“Nama user atau password ” & _
” tidak dikenal”, “Login Gagal”, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Finally
‘ menghapus objek koneksi
Conn.Dispose()
End Try
End Sub ‘ end of Sub Button1_Click
Popularity: 6% [?]
{ 5 comments… read them below or add one }
tolong dong ajarin aku vb.net
Salam kenal..:)
saya ingin mnta tolong, gimana langkah2 ngeinstal VB.6 dan navicat mySQL..agar untuk menggunakan navicat(Mysql GUI) versi 7.2 bisa connect.
Tolong di kirim ke email saya saja di..:)baradh_el03@yahoo.co.id
Terima kasih..
Makasi bos…
sering2 aja Ulas VB….
Apa aja….
:d
klo caranya tampilin report buat data menggunakan vb.net databasenya mysql gmn ???
secepatnya ya sebelumnya makacih
waduh bos kok ‘Imports MySql.Data.MySqlClient’ gak di kenali ya ma vb.net,alias ada garis bawahnya gitu,,,mohon penjelasannya donk, aku dah nyoba sana sini masih belum berhasil juga….thks