Dim pwd As StringIf InputValue(pwd, "筛选","请输入创建数据库名称:")End If
dim cmd as newcommandcmd.connectionname=“sql”
cmd.CommandText = "CREATE DATABASE \'" & pwd & "\'"cmd.ExecuteNonQuery()
这个代码是创建数据的代码,但却不执行了。
Dim pwd As StringIf InputValue(pwd, "筛选","请输入创建数据库名称:")
End if
貌似应该这样写吧?