I have this bit of code shown below. the first part uploads users file to webserver. The next imports that file into sql table.
Now i need to execute a sql command to find results add a new column.
Dim cmd2 As SqlCommand = New SqlCommand("UPDATE ([dbo].[imports] INNER JOIN [dbo].[jdsubs] ON [dbo].[imports].OEMPartNumber = [dbo].[jdsubs].OEMPartNumber)INNER JOIN [dbo].[AMIPartNumbers] ON [dbo].[jdsubs].OEMPartNumber = [dbo].[AMIPartNumbers].OEMItem AFTER TABLE [dbo].[imports] ADD [AMIPartNumber] VARCHAR[30] SET [dbo].[imports].AMIPartNumber = [dbo].[AMIPartNumbers].[Item]", con2)Dim cmd3 As SqlCommand = New SqlCommand("UPDATE ([dbo].[imports] INNER JOIN [dbo].[jdsubs] ON [dbo].[imports].OEMPartNumber = [dbo].[jdsubs].OEMSubNumber)INNER JOIN [dbo].[AMIPartNumbers] ON [dbo].[jdsubs].OEMSubNumber = [dbo].[AMIPartNumbers].OEMItem AFTER TABLE [dbo].[imports] SET [dbo].[imports].AMIPartNumber = [dbo].[AMIPartNumbers].[Item]", con2)I tried this but keep getting incorrect syntax error. Any advice?
I also need to add the cmd3 sql command to compare sb numbers. I am assuming that it does not need the add column.
Protected Sub cmdImport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdImport.Click
Dim savedFiles As String
If Me.FileUpload1.PostedFile Is Nothing Then
MessageBox("this file not correct")
Else
Dim strExt As String = Path.GetExtension(Me.FileUpload1.PostedFile.FileName)
If strExt.ToLower() = ".csv" Then
savedFiles = Path.GetFileName(Date.Now.Month & Date.Now.Day & Date.Now.Year & Date.Now.Hour & Date.Now.Minute & Date.Now.Second & ".csv")
Me.FileUpload1.PostedFile.SaveAs(Server.MapPath("temp\") & savedFiles)
MessageBox("Successfully Uploaded CSV File")
Dim Excel As String = Server.MapPath("temp\" & savedFiles)
Dim table As New DataTable()
table.Columns.Add("OEMPartNumber")
Dim parser As New FileIO.TextFieldParser(Excel)
parser.Delimiters = New String() {","}
parser.TrimWhiteSpace = True
Do Until parser.EndOfData = True
table.Rows.Add(parser.ReadFields())
Loop
Dim contentType As String = FileUpload1.PostedFile.ContentType
Using fs As Stream = FileUpload1.PostedFile.InputStream
Using br As New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(DirectCast(fs.Length, Long))
Dim constr As String = ConfigurationManager.ConnectionStrings("baminterchangerConnectionString").ConnectionString
Using con As New SqlConnection(constr)
Dim query As String = "insert into [dbo].[imports](OEMPartNumber) values (@OEMPartNumber)"
Using cmd As New SqlCommand(query)
cmd.Connection = con
cmd.Parameters.Add("@OEMPartNumber", SqlDbType.VarChar, 50, "OEMPartNumber")
con.Open()
Dim adapter As New SqlClient.SqlDataAdapter()
adapter.InsertCommand = cmd
Dim iRowsInserted As Int32 = adapter.Update(table)
con.Close()
End Using
End Using
End Using
End Using
Dim constr2 As String = ConfigurationManager.ConnectionStrings("baminterchangerConnectionString").ConnectionString
Dim con2 As New SqlConnection(constr2)
Dim cmd2 As SqlCommand = New SqlCommand("UPDATE ([dbo].[imports] INNER JOIN [dbo].[jdsubs] ON [dbo].[imports].OEMPartNumber = [dbo].[jdsubs].OEMPartNumber)INNER JOIN [dbo].[AMIPartNumbers] ON [dbo].[jdsubs].OEMPartNumber = [dbo].[AMIPartNumbers].OEMItem AFTER TABLE [dbo].[imports] ADD [AMIPartNumber] VARCHAR[30] SET [dbo].[imports].AMIPartNumber = [dbo].[AMIPartNumbers].[Item]", con2)
con2.Open()
cmd2.ExecuteNonQuery()
con2.Close()
End If
End If
End Sub