How do I make the user choose the name of the database? - vb.net

Question

in my project i need some changes in my code to give the user choose the name of sql database !
and this is My original code:
Dim DssD As String
DssD = TextBox1.Text
Zsql = "CREATE DATABASE my_db ON PRIMARY" +
"(Name=my_db, filename = 'D:\DB\SQL\my_db.mdf')log on" +
"(name=my_db_log, filename='D:\DB\SQL\my_db_log.ldf')"
Zcmd = New SqlCommand(Zsql, Zsqlcon)
Try
Zsqlcon.Open()
Zcmd.ExecuteNonQuery()
Zsqlcon.Close()
MsgBox("Done", MsgBoxStyle.Information, " ZerAllail")
Catch
MsgBox("Somthing wrong", MsgBoxStyle.Critical, " ZerAllail")
End Try
its working good but its not create the log fail !

Answer 1

You can use a interpolated string (preceded with $) if you are using Visual Studio 2015 or later. You can embed variables directly into the string enclosed in braces. Otherwise see String.Format.
I added a Using...End Using block to your code because connections and commands need to closed and disposed. They use unmanaged resources and need to release them in their .Dispose methods. A Using block will do this for you even if there is an error.
Private Sub CreateDatabase()
Dim DssD = TextBox1.Text 'I would expect you would validata this input
Dim Zsql = $"CREATE DATABASE {DssD} ON PRIMARY (Name=my_db, filename = 'D:\DB\SQL\{DssD}.mdf')log on
(name={DssD}_log, filename='D:\DB\SQL\{DssD}_log.ldf')"
Try
Using Zsqlcon As New SqlConnection("Your connection string"),
Zcmd = New SqlCommand(Zsql, Zsqlcon)
Zsqlcon.Open()
Zcmd.ExecuteNonQuery()
End Using
MsgBox("Done", MsgBoxStyle.Information, " ZerAllail")
Catch
MsgBox("Somthing wrong", MsgBoxStyle.Critical, " ZerAllail")
End Try
End Sub