vb.net的Oracle數據庫錯誤

Question

我的任務是制作一個基於GUI的簡單數據庫查看器。 該數據庫托管在我們學校的ftp服務器上，我們必須使用Visual Basic，並且在大多數情況下我都能正常工作，我可以搜索，查看和添加到數據庫中，但是編輯現有記錄給我帶來了問題。

當我嘗試更新記錄時，如果在查詢的何處不使用冒號（:)，而得到的變量ora-01008不是與冒號（:)綁定的變量，則會收到ora-00904錯誤無效標識符。 到目前為止，我們僅真正使用過sqldeveloper，並且作為最后一個項目，我們被要求使用Visual Basic，但是我們從未在課堂上介紹過此類內容，因此我認為這是一個挑戰。

PS：我只注釋掉了那一部分，以便我可以查看錯誤。

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim strCustomerEmail As String = ""
Dim strLastName As String = ""
Dim strFirstName As String = ""
Dim strAddress As String = ""
Dim strCity As String = ""
Dim strState As String = ""
Dim intZip As Integer = 0
Dim datDateSignedUp As Date
Dim intCustomerNumber As Integer = 0


Try
    strCustomerEmail = CStr(txtCustomerEmail.Text)
    strLastName = CStr(txtLastName.Text)
    strFirstName = CStr(txtFirstName.Text)
    strAddress = CStr(txtAddress.Text)
    strCity = CStr(txtCity.Text)
    strState = CStr(txtState.Text)
    intZip = CInt(txtZip.Text)
    datDateSignedUp = CDate(txtDateSignedUp.Text)
    intCustomerNumber = CInt(txtCustomerNumber.Text)



    Dim sql As String = "UPDATE P_CLIENTS SET CUSTOMER_EMAIL = :CUSTOMER_EMAIL, LASTNAME = :LASTNAME, FIRSTNAME = :FIRSTNAME, ADDRESS = :ADDRESS, CITY = :CITY, STATE = :STATE, ZIP = :ZIP, DATE_SIGNED_UP = :DATE_SIGNED_UP, CUSTOMER# = :CUSTOMER# WHERE CUSTOMER_EMAIL = :EDIT_CUSTOMER_EMAIL"

    Dim cmd2 As New OracleCommand(sql, conn)
    conn.Open()
    cmd2.Parameters.Add("CUSTOMER_EMAIL", strCustomerEmail)
    cmd2.Parameters.Add("LASTNAME", strLastName)
    cmd2.Parameters.Add("FIRSTNAME", strFirstName)
    cmd2.Parameters.Add("ADDRESS", strAddress)
    cmd2.Parameters.Add("CITY", strCity)
    cmd2.Parameters.Add("STATE", strState)
    cmd2.Parameters.Add("ZIP", intZip)
    cmd2.Parameters.Add("DATE_SIGNED_UP", datDateSignedUp)
    cmd2.Parameters.Add("EDIT_CUSTOMER_EMAIL", strEditCustomerEmail)
    cmd2.CommandType = CommandType.Text
    cmd2.ExecuteNonQuery()

    txtCustomerEmail.Text = strEditCustomerEmail
    txtLastName.Text = ""
    txtFirstName.Text = ""
    txtAddress.Text = ""
    txtCity.Text = ""
    txtState.Text = ""
    txtZip.Clear()
    txtDateSignedUp.Clear()
    txtCustomerNumber.Clear()
    'txtCustomerEmail.Select()

    txtCustomerEmail.Enabled = True
    txtLastName.Enabled = True
    txtFirstName.Enabled = True
    txtAddress.Enabled = True
    txtCity.Enabled = True
    txtState.Enabled = True
    txtZip.Enabled = True
    txtDateSignedUp.Enabled = True
    txtCustomerNumber.Enabled = True



    'Catch ex As Exception
    '    MessageBox.Show("An error occurred while attempting to add a new record.", "Error")
Finally
    conn.Close()
    txtCustomerEmail.Select()
End Try
End Sub

Answer 1

您從參數列表中缺少Customer# 。