Expand|Select|Wrap|Line Numbers
- Imports System.IO
- Imports System.Data
- Imports System.Data.SqlClient
- Partial Class _Default
- Inherits System.Web.UI.Page
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- End Sub
- Protected Sub Submit1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
- Dim SaveLocation = "\\MSBWEB3\wwwroot\Webfile1\Reminders\Doug_Ancil\upload.txt"
- If UploadFile(SaveLocation) Then
- 'the file was uploaded: now try saving it to the database
- SaveToDatabase(SaveLocation)
- End If
- End Sub
- Private Function UploadFile(ByVal SavePath As String) As Boolean
- Dim fileWasUploaded As Boolean = False 'indicates whether or not the file was uploaded
- 'Checking if the file upload control contains a file
- If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then
- Try
- 'checking if it was .txt file BEFORE UPLOADING IT!
- 'You used to upload it first...but the file could be a virus
- If File1.FileName.EndsWith(".txt") = False Then
- 'The file is not the expected type...do not upload it
- 'just post the validation message
- message.Text = "The file you submitted is not a .txt file, please select a .txt file to upload."
- Else
- 'The file is a .txt file
- 'checking to see if the file exists already
- 'If it does exist Deleting the existing one so that the new one can be created
- If IO.File.Exists(SavePath) Then
- IO.File.Delete(SavePath)
- End If
- 'Now upload the file (save it to your server)
- File1.PostedFile.SaveAs(SavePath)
- 'After saving it check to see if it exists
- If File.Exists(SavePath) Then
- 'Upload was sucessful
- message.Text = "Thank you for your submission"
- fileWasUploaded = True
- Else
- 'the file was not saved
- message.Text = "Unable to save the file"
- End If
- End If
- Catch Exc As Exception
- 'We encountered a problem
- message.Text = Exc.Message + " " + Exc.StackTrace
- End Try
- Else
- 'No file was selected for uploading
- message.Text = "Please select a file to upload"
- End If
- Return fileWasUploaded
- End Function
- Private Sub SaveToDatabase(ByVal SavePath As String)
- Try
- Dim sqlQueryText As String = _
- "BULK INSERT dialerresults " + _
- "FROM '" & SavePath & "' " + _
- "WITH ( FIELDTERMINATOR = ',' , ROWTERMINATOR = '\n' )"
- ' and bulk import the data:
- 'If ConfigurationManager.ConnectionStrings("Dialerresults") IsNot Nothing Then
- 'Dim connection As String = ConfigurationManager.ConnectionStrings("Dialerresults").ConnectionString
- Dim connection As String = "data source=10.2.1.40;initial catalog=IVRDialer;uid=xxx;password=xxxx;"
- Using con As New SqlConnection(connection)
- con.Open()
- ' execute the bulk import
- Using cmd As New SqlCommand(sqlQueryText, con)
- cmd.ExecuteNonQuery()
- End Using
- End Using
- 'Else
- 'message.Text="ConfigurationManager.ConnectionStrings('Dialerresults') is Nothing!"
- 'End If
- Catch ex As Exception
- message.Text = ex.Message + " " + ex.StackTrace
- End Try
- End Sub
- End Class
Any help would be appreciated.
Thank you,
Doug