UdwRZJuy

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
9            strConn = "Server =localhost; userid = root; password = ;"
10            strConn &= "Database = mysql; pooling=false;"
11
12            conn = New MySqlConnection(strConn)
13
14            strCmd = "create database '" + namadatabasetxt.Text + "'"
15
16            cmd = New MySqlCommand(strCmd, conn)
17
18            conn.Open()
19
20            cmd.ExecuteNonQuery()
21            conn.ChangeDatabase("'" & namadatabasetxt.Text & "'")
22
23            Dim sbCmd As New System.Text.StringBuilder
24
25            sbCmd.Append("Create Table If Not Exists Blog ")
26            sbCmd.Append("(ID varchar(36) PRIMARY KEY, PostDate date, BlogText Text)")
27
28            cmd = New MySqlCommand(sbCmd.ToString, conn)
29            cmd.ExecuteNonQuery()
30            conn.Close()
31
32        Catch ex As Exception
33            MsgBox(ex.ToString())
34        End Try
35    End Sub