[سعود]

كود :

Dim sqlConnectionString As String = ""
'Dim file As New FileInfo("C:\myscript.sql")
Dim file As New FileInfo("e:\CHECKALLPLANS.txt")

Dim script As String = file.OpenText().ReadToEnd()
Dim conn As New SqlConnection(sqlConnectionString)
Dim server As New Server(New ServerConnection(conn))
server.ConnectionContext.ExecuteNonQuery(script)

اكتب الكود بوسم كود افضل بعد تعيين المحاذاة لليسار.