uN7rUh41

1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles buatbtn.Click
2        Try
3            Dim conn As MySqlConnection
4            Dim strConn As String
5            Dim cmd As MySqlCommand
6            Dim strCmd As String
7
8            strConn = "Server =localhost; userid = root; password = ;"
9            strConn &= "Database = mysql; pooling=false;"
10
11            conn = New MySqlConnection(strConn)
12            strCmd = "create database '" & namadatabasetxt.Text & "'"
13            cmd = New MySqlCommand(strCmd, conn)
14            conn.Open()
15
16            cmd.ExecuteNonQuery()
17            conn.ChangeDatabase("'" & namadatabasetxt.Text & "'")
18
19            Dim sbCmd As New System.Text.StringBuilder
20            sbCmd.Append("Create Table If Not Exists Blog ")
21            sbCmd.Append("(ID varchar(36) PRIMARY KEY, PostDate date, BlogText Text)")
22
23            cmd = New MySqlCommand(sbCmd.ToString, conn)
24            cmd.ExecuteNonQuery()
25            conn.Close()
26        Catch ex As Exception
27            MsgBox(ex.ToString())
28        End Try
29    End Sub