Execute the SQL Server *. SQL File

' Method 1
Public   Sub executesqlscriptfile () 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
Strsql =   ""
Else
Strsql = Strsql & Strtmp & Vbcrlf
End   If
Loop
If Strsql <>   ""   Then CN. Execute strsql
Close # 1
End sub

' Method 2
Public   Sub executesqlscriptfile () Sub Executesqlscriptfile (CN As ADODB. Connection, sqlfile As   String )
Dim SQL As   String  

SQL = " Master. DBO. xp_mongoshell 'osql-u username-P password-I "   & Sqlfile
Cn.exe cute SQL
End sub