Quantcast
Channel: Visual Studio and Visual Web Developer Express
Viewing all articles
Browse latest Browse all 3509

Running a sqlcommand on table and adding column

$
0
0

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



Viewing all articles
Browse latest Browse all 3509

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>