无法更新数据库中的值 [英] can't update value in the data base

问题描述

我有一个包含表ADDRESS_BOOK&的访问数据库. USER_MASTER，我编写并更新了语句以更新address_book记录，该语句运行良好，但是我编写的用于更新user_master的相同代码却未提供所需的结果，例如我正在更新USER_NAME和PASSWORD，然后它会更新0而不是给定的文本，代码是这样的

i have an access database containing Tables ADDRESS_BOOK & USER_MASTER, i write and update statement to update address_book records which is running fine, but the same code i write for updating user_master then it is not giving the desired result like i''m updating USER_NAME and PASSWORD then it updates 0 instead of given text, the code is like this

Public Function Edit(ByVal EmployeeID As String, ByVal EmployeeName As String, ByVal UserName As String, ByVal Password As String) As Boolean
       Try
           Dim StrSql As String = ""
           'StrSql = "UPDATE USER_MASTER SET EMPLOYEE_NAME = '" + EmployeeName.ToLower.ToString + "', USER_NAME = '" + UserName.ToLower.ToString + "' AND PASSWORD = '" + Password.ToLower.ToString + "' WHERE EMPLOYEE_ID = " + EmployeeID.ToString + " "
           StrSql = "UPDATE USER_MASTER SET EMPLOYEE_ID = " & EmployeeID & ", EMPLOYEE_NAME = '" & EmployeeName.ToLower.ToString & "', USER_NAME = '" & UserName.ToLower.ToString & "' AND PASSWORD = '" & Password.ToLower.ToString & "' WHERE EMPLOYEE_ID = " & EmployeeID.ToLower.ToString & ""
           objConnection.Conn = New OleDb.OleDbConnection(objConnection.ConnStr)
           objConnection.Conn.Open()
           objConnection.Cmd = New OleDb.OleDbCommand(StrSql, objConnection.Conn)
           objConnection.Cmd.ExecuteNonQuery()
           Return True
       Catch ex As Exception
           Return False
       End Try
   End Functi

on

推荐答案

无需代表员工ID更新员工ID coz，您将能够更新ur表，因为这将成为您的主键.

像这样使用

no need to update Employee Id coz on behalf of employee id u would be able to update ur table as that would be ur primary key.

use like it

UPDATE USER_MASTER SET EMPLOYEE_NAME = ''"& EmployeeName.ToLower.ToString & "'',USER_NAME = ''" & UserName.ToLower.ToString & "'',PASSWORD = ''" & Password.ToLower.ToString & "''WHERE EMPLOYEE_ID = " & EmployeeID.ToLower.ToString & ""

尝试一下:

Try this:

Dim StrSql As String = ""
StrSql = "UPDATE USER_MASTER SET EMPLOYEE_NAME = '" + EmployeeName.ToLower.ToString + "', USER_NAME = '" + UserName.ToLower.ToString + "', PASSWORD = '" + Password.ToLower.ToString + "' WHERE EMPLOYEE_ID = " + EmployeeID

这篇关于无法更新数据库中的值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！