CODEWITHSUNDEEP
vb.netms-accessvba
Tom Davis
Tom Davis

Reputation: 103

Characters found after end of SQL Statement Error

First off I started my code with: 

            Comm2 = "INSERT INTO [Results]" _
                 & "([ResultsID], [TestID], [Thickness], [SNR], [STD], [M1], [M2], [kVp], [mAs], [TargetFilter])" _
                 & " values('" & CInt(NewRID) & " ', '" & CInt(NewRID) & " ', '" & Thickness & "', '" & SNR & "', '" & STD & "','" & M1 & "', '" & M2 & "',  '" & kVp & "',  '" & mAs & "',  '" & TargetFilter & "')"

            Comm3 = "INSERT INTO [Test]" _
                 & "([TestID], [Date], [MachineID], [RadiographerID])" _
                 & " values('" & CInt(NewRID) & " ', '" & todaysdate & " ', '" & 1 & " ', '" & UserID & " ',)"

However this didn't work as the tables are related in the database so had to change them at the same time, so i am currently trying this:

            Comm2 = "INSERT INTO [Results] ([ResultsID],[TestID],[Tickness],[SNR],[STD],[M1],[M2],[kVp],[mAs],[TargetFilter]) VALUES('" & CInt(NewRID) & " ', '" & CInt(NewRID) & " ', '" & Thickness & "', '" & SNR & "', '" & STD & "','" & M1 & "', '" & M2 & "',  '" & kVp & "',  '" & mAs & "',  '" & TargetFilter & "');" _
                & "INSERT INTO [Test] ([TestID], [Date[, [MachineID], [RadiographerID]) VALUES('" & CInt(NewRID) & " ', '" & CDate(todaysdate) & " ', '" & CInt(MachineID) & "', '" & CStr(UserID) & "')"
            OleDbInsertCommand.Connection = conn
            OleDbInsertCommand.CommandText = Comm2
            adapter2.InsertCommand = OleDbInsertCommand
            adapter2.InsertCommand.ExecuteNonQuery()

And I am getting this error: https://gyazo.com/36aa32cbfb0f54bbe571f6a9384114e1

            Comm2 = "INSERT INTO [Results] ([ResultsID], [TestID], [Thickness], [SNR], [STD], [M1], [M2], [kVp], [mAs],[TargetFilter]) VALUES('" & CInt(NewRID) & " ', '" & CInt(NewRID) & " ', '" & Thickness & "', '" & SNR & "', '" & STD & "','" & M1 & "', '" & M2 & "',  '" & kVp & "',  '" & mAs & "',  '" & TargetFilter & "')"
            comm3 = " INSERT INTO [Test] ([TestID], [Date], [MachineID], [RadiographerID]) VALUES('" & CInt(NewRID) & " ', '" & CDate(todaysdate) & " ', '" & CInt(MachineID) & "', '" & CInt(UserID) & "')"

            OleDbInsertCommand.Connection = conn
            OleDbInsertCommand.CommandText = comm3
            adapter2.InsertCommand = OleDbInsertCommand
            adapter2.InsertCommand.ExecuteNonQuery()
            OleDbInsertCommand.CommandText = Comm2
            adapter2.InsertCommand = OleDbInsertCommand
            adapter2.InsertCommand.ExecuteNonQuery()

Upvotes: 0

Views: 2531

Answers (1)

Tom Davis
Tom Davis

Reputation: 103

        Comm2 = "INSERT INTO [Results] ([ResultsID], [TestID], [Thickness], [SNR], [STD], [M1], [M2], [kVp], [mAs],[TargetFilter]) VALUES('" & CInt(NewRID) & " ', '" & CInt(NewRID) & " ', '" & Thickness & "', '" & SNR & "', '" & STD & "','" & M1 & "', '" & M2 & "',  '" & kVp & "',  '" & mAs & "',  '" & TargetFilter & "')"
        comm3 = " INSERT INTO [Test] ([TestID], [Date], [MachineID], [RadiographerID]) VALUES('" & CInt(NewRID) & " ', '" & CDate(todaysdate) & " ', '" & CInt(MachineID) & "', '" & CInt(UserID) & "')"

        OleDbInsertCommand.Connection = conn
        OleDbInsertCommand.CommandText = comm3
        adapter2.InsertCommand = OleDbInsertCommand
        adapter2.InsertCommand.ExecuteNonQuery()
        OleDbInsertCommand.CommandText = Comm2
        adapter2.InsertCommand = OleDbInsertCommand
        adapter2.InsertCommand.ExecuteNonQuery()

Upvotes: 1

Related Questions