Ошибка обновления доступа
Вопрос
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Public Sub openDB()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\VFMS_DB.mdb;" & "Jet OLEDB:System Database=Security.mdw;User ID=Adster;Password=300624;")
conn.Open()
End Sub
Public Function UpdateUser() As Integer
Dim retCode As New Integer
Try
openDB()
cmd = conn.CreateCommand()
Приведенная ниже команда обновления продолжает выдавать мне эту ошибку:«Преобразование из строки», где [username] = '"to type' Double 'не является действительным». И я не знаю почему.Поле aUserName является строковым, и я проверил, заполнено ли оно.
cmd.CommandText = "UPDATE Users SET [First Name] = '" & aName & "', [Last Name] = '" & aSurname & "', [Contact Number] = '" & aContactNum & "', [Password] = '" & aPassword & "', [User Rights] = '" & aUserRights + "' WHERE [Username] = '" + aUserName + "' "
cmd.ExecuteNonQuery()
conn.Close()
'rsAddRecs = rsConn.Execute("UPDATE Users ([First Name], [Last Name], [Contact Number], [User Name], [Password], [User Rights]) VALUES ('" & aName & "','" & aSurname & "','" & aContactNum & "','" & aUserName & "','" & aPassword & "','" & aUserRights & "')")
retCode = 0
'rsConn.Close()
Return retCode
Catch ex As Exception
MessageBox.Show(ex.ToString, ex.Message, MessageBoxButtons.OK)
retCode = 1
Return retCode
End Try
End Function
Решение
У вас опечатка.Вы используете + символы concat в конце строки sql вместо & персонажи
Неправильный
cmd.CommandText = "UPDATE Users SET [First Name] = '" & aName & _
"', [Last Name] = '" & aSurname & _
"', [Contact Number] = '" & aContactNum & _
"', [Password] = '" & aPassword & "', [User Rights] = '" & _
aUserRights + "' WHERE [Username] = '" + aUserName + "' "
' ^ ^ ^
Верно
cmd.CommandText = "UPDATE Users SET [First Name] = '" & aName & _
"', [Last Name] = '" & aSurname & _
"', [Contact Number] = '" & aContactNum & _
"', [Password] = '" & aPassword & "', [User Rights] = '" & _
aUserRights & "' WHERE [Username] = '" & aUserName & "' "
' ^ ^ ^
Другие советы
Ваш SQL-код использует [Username]
:
cmd.CommandText = "UPDATE Users SET ... [Username]...
Хотя вы закомментировали используемый код [User Name]
:
'rsAddRecs = rsConn.Execute("UPDATE Users ... [User Name]...
Может ли неправильное имя столбца быть источником проблемы?
Еще одна мысль:очистили ли вы значения своих параметров, например.может ли значение содержать одинарную кавычку, которая нарушает динамический SQL.В любом случае, я думаю, вам следует рассмотреть возможность использования подготовленных операторов (или даже ПРОЦЕДУР) и объектов параметров для вызова SQL, тем самым отложив обработку значений параметров поставщику OLE DB, который, конечно, будет знать больше об этом предмете, чем ты или я :)