Dim Multi As String = FileSys.ReadAllText(ProjectPath & "脚本文件.sql") Dim Values() as String Values = System.Text.RegularExpressions.Regex.split(Multi ,"\WGO\W",System.Text.RegularExpressions.RegexOptions.IgnoreCase) Dim cmd as New SQLCommand cmd.C '这里部分代码被论坛吃了,设置外部数据源名称为m For Each s As String In Values cmd.CommandText = s cmd.ExecuteNonQuery() Next