vb.net database mysql

eksi VB.Net ke MySQL

Visual Basic .NET

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Imports MySql.Data.MySqlClient.MySqlConnection Imports System.Data   Public Class Form1       '-- MySQL Connection     Public connDB As New MySql.Data.MySqlClient.MySqlConnection       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Call conecDB()         'Close Database         connDB.Close()     End Sub       Public Sub conecDB()         Try               'This is the server IP/Server name.  If server is intalled on your local machine, your IP should be 127.0.0.1 or you may use localhost             Dim strServer As String = "localhost"             Dim strDbase As String = "mysql" 'Database name             Dim strUser As String = "root"  'Database user             Dim strPass As String = ""     'Database password               'MySQL Connection String             If connDB.State <> ConnectionState.Open Then connDB.ConnectionString = "server=" & strServer.Trim & ";database=" & strDbase.Trim & ";user=" & strUser.Trim & ";password=" & strPass             If connDB.State <> ConnectionState.Open Then connDB.Open() Else connDB.Close()             MsgBox("Connected")         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub End Class