Code:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As New MySql.Data.MySqlClient.MySqlConnection
Dim koneksiku As String
koneksiku = "server=localhost;uid=root;pwd='';database='skyars'"
Try
conn.ConnectionString = koneksiku
conn.Open()
MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Informasi")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
Download Project:
0 komentar:
Posting Komentar
Kita bukanlah apa-apa tanpaNya, jika ada pertanyaan mengenai artikel silakan tinggalkan komentar anda melalui form komentar :)