Skip to main content

AccessTr.neT


Şifre Değiştirme

Şifre Değiştirme

Çözüldü #1
User formda oluşturduğum şifre değiştirme formunda hep hata alıyorum. kodlar şöyle 
Şifre hatalı diye hata alıyorum.
Private Sub Image4_Click()

user = girisform.TextBox1.Text
Call connection_open
sql1 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic

If Me.TextBox1 <> rs(0) Then
MsgBox "Yanlış Şifre."
rs.Close
conn.Close

Exit Sub
End If

If Me.TextBox2 <> Me.TextBox3 Then
MsgBox "Şifre eşleşmiyor."
rs.Close
conn.Close

Exit Sub
End If

Call connection_open
sql2 = "select [ŞİFRE] from personel where [ID]='" & user & "'"
rs.Open sql2, conn, adOpenKeyset, adLockPessimistic

rs.Update 0, Me.TextBox2
rs.Update
rs.Close
conn.Close
End Sub
Cevapla
#2
Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeli
(24/08/2020 15:54)merttr07 Adlı Kullanıcıdan Alıntı: "select [ŞİFRE] from personel where [ID]='" & user & "'"
yerine

Visual Basic Code
"select [ŞİFRE] from personel where [ID]=" & user 

ile değiştirip dener misiniz

Cevapla
#3
(24/08/2020 16:03)berduş Adlı Kullanıcıdan Alıntı: Id alanı sayısalsa başa ve sona eklenen tek tırnaklar silinmeli
(24/08/2020 15:54)merttr07 Adlı Kullanıcıdan Alıntı:   "select [ŞİFRE] from personel where [ID]='" & user & "'"
yerine

Visual Basic Code
"select [ŞİFRE] from personel where [ID]=" & user 

ile değiştirip dener misiniz

Id kullanıcı adı sorgu ifadesi eksik diye hata verdi
Cevapla
#4
Düzeltemedim bir türlü.
Cevapla
#5
çalışmanızın ilgili kısmını ekleyin inceleyelim.
mümkün olduğunca konularınıza çalışmanızın ilgli kısmını da ekleyin
Cevapla
#6
atamıyorum boyut yetmiyor
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da