1.Public Sub ExecuteSQLScriptFile(cn as ADODB.Connection,sqlFile As String)Dim strSql As String, strTmp As String Open sqlFile For Input As #1 strSql = "" Do While Not EOF(1) Line Input #1, strTmp If UCase$(strTmp) = "GO" Then cn.Execute strSql strSq... [阅读全文]