usp_importfile.vb

来自「SQL2005开发指南」· VB 代码 · 共 25 行

Imports System
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
Imports System.IO


Partial Public Class StoredProcedures
    <Microsoft.SqlServer.Server.SqlProcedure()> _
    Public Shared Sub usp_ImportFile _
    (ByVal sInputFile As String, ByRef sColumn As String)
        Dim sContents As String
        Try
            Dim stmReader As New StreamReader(sInputFile)
            sContents = stmReader.ReadToEnd()
            stmReader.Close()
            sColumn = sContents
        Catch ex As Exception
            Dim sp As SqlPipe = SqlContext.Pipe()
            sp.Send(ex.Message)
        End Try
    End Sub
End Class