无效对象名“purchase_report”

Question

我使用两个数据库，PC_PARTS表名是STOCKS，第二个数据库是PURCHASE_STOCK，表名是PURCHASE REPORT。

查询的第一部分正在运行，因为它更新了表，但是第二部分没有插入查询并向我显示msgbox。

无效对象名“purchase_report”

这是我的密码

 Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click   
 '''''''''''''''1st part'''''''''''''''''''''''''''''''''
 Dim qtyrelease As Integer
    qtyrelease = pqty.Text - prelease.Value


    Dim release As String = String.Empty
    release &= "update stocks set "
    release &= "quantity=@qty "
    release &= "where build_number=@build"

    Using conn As New SqlConnection("server=WIN10;database=pc_parts;user=admin;password=12345;")
        Using cmd As New SqlCommand
            With cmd
                .Connection = conn
                .CommandType = CommandType.Text
                .CommandText = release
                .Parameters.AddWithValue("@qty", qtyrelease)
                .Parameters.AddWithValue("@build", pbuildnumber.Text)
            End With

            Try
                conn.Open()
                cmd.ExecuteNonQuery()
                MsgBox("Purchase Complete!")
                conn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Using

    '''''''''''''''2nd part''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim purchase As String = String.Empty
    purchase &= "insert into puchase_report(buildnumber,pcbrand,pcpart,qty,date_purchase)"
    purchase &= "values"
    purchase &= "(@build1,@brand,@part,@quantity,@date)"

    Using conn1 As New SqlConnection("server=WIN10;database=purchase_stock;user=admin_report;password=54321;")
        Using cmd1 As New SqlCommand
            With cmd1
                .Connection = conn1
                .CommandType = CommandType.Text
                .CommandText = purchase
                .Parameters.AddWithValue("@build1", pbuildnumber.Text)
                .Parameters.AddWithValue("@brand", pbrand.Text)
                .Parameters.AddWithValue("@part", ppart.Text)
                .Parameters.AddWithValue("@quantity", prelease.Value)
                .Parameters.AddWithValue("@date", pdate.Text)
            End With

            Try
                conn1.Open()
                If prelease.Value = 0 Then
                    MsgBox("Please Input a value on Release cannot proceed if the value is 0")
                ElseIf prelease.Value > 0 Then
                    cmd1.ExecuteNonQuery()
                    MsgBox("Item Has been Release in the inventory")
                End If
                conn1.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End Using
    End Using
End Sub  

Answer 1

根据ChrisR.Timmon的评论，在INSERT INTO puchase_report中有一个“r”错误，应该是INSERT INTO purchase_report，因为OP问题已经解决了。

Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click   
'''''''''''''''1st part'''''''''''''''''''''''''''''''''
Dim qtyrelease As Integer
qtyrelease = pqty.Text - prelease.Value


Dim release As String = String.Empty
release &= "update stocks set "
release &= "quantity=@qty "
release &= "where build_number=@build"

Using conn As New SqlConnection("server=WIN10;database=pc_parts;user=admin;password=12345;")
    Using cmd As New SqlCommand
        With cmd
            .Connection = conn
            .CommandType = CommandType.Text
            .CommandText = release
            .Parameters.AddWithValue("@qty", qtyrelease)
            .Parameters.AddWithValue("@build", pbuildnumber.Text)
        End With

        Try
            conn.Open()
            cmd.ExecuteNonQuery()
            MsgBox("Purchase Complete!")
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Using
End Using

'''''''''''''''2nd part''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim purchase As String = String.Empty
purchase &= "insert into purchase_report(buildnumber,pcbrand,pcpart,qty,date_purchase)"
purchase &= "values"
purchase &= "(@build1,@brand,@part,@quantity,@date)"

Using conn1 As New SqlConnection("server=WIN10;database=purchase_stock;user=admin_report;password=54321;")
    Using cmd1 As New SqlCommand
        With cmd1
            .Connection = conn1
            .CommandType = CommandType.Text
            .CommandText = purchase
            .Parameters.AddWithValue("@build1", pbuildnumber.Text)
            .Parameters.AddWithValue("@brand", pbrand.Text)
            .Parameters.AddWithValue("@part", ppart.Text)
            .Parameters.AddWithValue("@quantity", prelease.Value)
            .Parameters.AddWithValue("@date", pdate.Text)
        End With

        Try
            conn1.Open()
            If prelease.Value = 0 Then
                MsgBox("Please Input a value on Release cannot proceed if the value is 0")
            ElseIf prelease.Value > 0 Then
                cmd1.ExecuteNonQuery()
                MsgBox("Item Has been Release in the inventory")
            End If
            conn1.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        End Using
    End Using
   End Sub