Question

我无法修复代码，它总是显示没有给出一个或多个参数的值。我想知道我应该改变什么来修复它。我的数据库是基于我怀疑的电子邮件地址是问题的根源，因为它包含一个@字符的查询访问2007

尝试

 dataB = "Update login set username = '" & txtUserName.Text.Replace("'", "''") & "' , dateofb = '" & dtpDOB1.Text.Replace("'", "''") & "', placeofb = '" & txtPOB.Text.Replace("'", "''") & "', email = '" & txtEmailID.Text.Replace("'", "''") & "' where userid = " & useridlbl.Text 

     ConnDB() 
     cmd = New OleDbCommand(dataB, conn) 
     Dim i As Integer 
     i = cmd.ExecuteNonQuery 
     If i > 0 Then 
      MsgBox("Update Succesfully", MsgBoxStyle.Information, "Confirmation") 
      Me.Dispose() 
      userinfofrm.Show() 


     Else 
      MsgBox("Failed Updating", MsgBoxStyle.Information, "Alert!") 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    Finally 
     cmd.Dispose() 
     conn.Close() 

    End Try 

Answer 1

。 OleDbCommand将其解释为参数，因此查找参数值。由于您未指定参数值，因此会引发错误。

为了解决这个问题，请在您的查询中更好地使用参数。尽管您在语句中使用了单引号，但使用参数来防止SQL注入攻击要安全得多。参数也规避了关于日期值等地区特定格式的问题。另外，使用参数化查询允许数据库服务器（或MS访问）为后续请求缓存查询计划。

如下更改声明：

dataB = "Update login set username = @userName, dateofb = @dateOfB, " + _ 
     "placeofb = @placeOfB, email = @email where userid = @userId " 

ConnDB() 

cmd = New OleDbCommand(dataB, conn) 
cmd.Parameters.AddWithValue("@userName", txtUserName.Text) 
cmd.Parameters.AddWithValue("@dateOfB", DateTime.Parse(dtpDOB1.Text)) ' Maybe your control can provide you with the DateTime value right away 
cmd.Parameters.AddWithValue("@placeOfB", txtPOB.Text) 
cmd.Parameters.AddWithValue("@email", txtEmailID.Text) 
cmd.Parameters.AddWithValue("@userId", useridlbl.Text) 

Dim i As Integer 
i = cmd.ExecuteNonQuery 
' ... 

请注意，我用的是MS接入理解命名参数语法。其他OleDB提供者可能需要以问号形式提供未命名的参数。正如@Steve在注释中指出的那样，语句中参数的顺序应该与它们被添加到Parameters集合的顺序相匹配。