strTarget = "MySQL"
strDB = "mysql"
strUser = "root"
strPass = ""
ConnectionString = _
"Provider=MSDASQL" & _
";DSN=" & strTarget & _
";DATABASE=" & strDB & _
";UID=" & strUser & _
";PWD=" & strPass & _
";"
on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
WScript.Echo Err.Description
Wscript.Quit
end if
on error goto 0
Query = "create database newdb"
Cn.Execute Query
Cn.Close
|