执行 SQL 语句的 VBS 脚本？

Question

要打开，我从来没有写过vbs脚本。我编写了许多 SQL 脚本、视图、开发的数据库。我在 Access 应用程序中写了很多 VBA。

为此，我只是尝试将 SQL 脚本设置为 VBS 脚本，因此用户不必进入 SSMS 即可运行它。他们只需双击 VBS 脚本，在提示时指定服务器和数据库，快速脚本将为他们运行。

这是我到目前为止所得到的，但我不断收到 Microsoft VBScript 编译错误。最新的是第 3 行 char 17，它位于 Dim 语句中。只是想看看是否有人能判断我是否缺少该脚本的基本内容，即阻止它正确编译或处理。

这是非常短的脚本：

Dim conn 
Set conn = createobject("Adodb.Connection")
Dim sConnString As String
Dim SqlStatement As String

sSourceServer = InputBox ("Enter the name of the SQL Server","Enter SQL Server Name","")
    If Len(sSourceServer) = 0 Then
        MsgBox "No SQL Server was specified.", , "Unable to Continue"
        Exit Sub
    End if

sSourceDB = InputBox ("Enter the name of the Law SQL Database","Enter Law SQL DB Name","")
    If Len(sSourceDB) = 0 Then
        MsgBox "No SQL DB was specified.", , "Unable to Continue"
        Exit Sub
    End if

' Create the connection string.
sConnString = "Provider=SQLOLEDB;Data Source=" & sSourceServer & "; Initial Catalog=" & sSourceDB & "; Integrated Security=SSPI;"

MsgBox sConnString

' Open the connection and execute.
conn.Open sConnString
conn.CommandTimeout = 900

SqlStatement = "UPDATE [tablename] " & _
                                "SET UUID = CASE WHEN CHARINDEX('.',[Filename]) > 1 THEN LEFT(CAST([Filename] AS VARCHAR),CHARINDEX('.',[Filename])-1) ELSE [Filename] END " & _
                                "WHERE [Filename] IS NOT NULL"

conn.Execute(SqlStatement)

conn.Close
Set rs = Nothing
SqlStatement = vbNullString

MsgBox "All Done! Go Check your results!"

如果有人能提供帮助，我将不胜感激。

谢谢

Answer 1

没关系。我一直在排除故障，终于让它工作了。对于那些可能会有所帮助的人，与 VBA 不同，不将变量声明为类型更容易。只需将它们调暗并继续前进。见下文：

Dim conn 
Set conn = createobject("Adodb.Connection")
Dim sConnString
Dim SqlStatement

StartScript

Sub StartScript()

sSourceServer = InputBox ("Enter the name of the SQL Server","Enter SQL Server Name","")
    If Len(sSourceServer) = 0 Then
        MsgBox "No SQL Server was specified.", , "Unable to Continue"
        Exit Sub
    End if

sSourceDB = InputBox ("Enter the name of the Law SQL Database","Enter Law SQL DB Name","")
    If Len(sSourceDB) = 0 Then
        MsgBox "No SQL DB was specified.", , "Unable to Continue"
        Exit Sub
    End if

' Create the connection string.
sConnString = "Provider=SQLOLEDB;Data Source=" & sSourceServer & "; Initial Catalog=" & sSourceDB & "; Integrated Security=SSPI;"

' Open the connection and execute.
conn.Open sConnString
conn.CommandTimeout = 900

SqlStatement = "UPDATE [tablename] " & _
                                "SET UUID = CASE WHEN CHARINDEX('.',[Filename]) > 1 THEN LEFT(CAST([Filename] AS VARCHAR),CHARINDEX('.',[Filename])-1) ELSE [Filename] END " & _
                                "WHERE [Filename] IS NOT NULL"

conn.Execute(SqlStatement)

conn.Close
Set rs = Nothing
SqlStatement = vbNullString

End Sub

MsgBox "All Done! Go Check your results!"

请记住，对于那些希望将其用作脚本基础的人 - 我没有进行任何检查，因此如果您不知道自己的数据，那么运行这是一件危险的事情。

了解您的数据，备份您的数据，如果可以，添加一些检查，以确保在运行之前检查并重新检查任何不是 select 语句的内容。