Macam mana kalo saya nak set up new password ke dalam database...

if wat yg dgview boleh laa tukar... kalo x guna dgv macam mane erk??

contonhya :

Old Password:

New Password :

Re-enter Password :

ada sesapa boleh bantu saya?? sy guna vb.net

Private Sub cmdChangePassword_Click()

Dim objUser As IADsUser

If txtUsername.Text <> "" Then

If txtPass1.Text = txtPass2.Text Then

Set objUser = GetObject("LDAP://cn=" + txtUsername.Text _

+ ",cn=Users,dc=mycorp,dc=com") ' ni yang aku x paham nyaa

objUser.SetPassword txtPass1.Text

objUser.pwdLastSet = 0

objUser.lockoutTime = 0

objUser.SetInfo

'Reset everything

txtUsername.Text = ""

txtPass1.Text = ""

txtPass2.Text = ""

MsgBox "Password changed!"

Else

MsgBox "Passwords are not the same, please try again!"

End If

Else

MsgBox "A username must be specified!"

End If

Edited October 15, 200817 yr by aem1354

ko maksudkan nak tkr password utk login db ke?yg sql query ni ke?...... sp_password 'passwordlama', 'passwordbaru'

atau ko tanye psl cara nak buat dia punye form?

ko maksudkan nak tkr password utk login db ke?yg sql query ni ke?...... sp_password 'passwordlama', 'passwordbaru'

atau ko tanye psl cara nak buat dia punye form?

aku ty untuk tukar pass untuk login ke db... . aku baru dalam bidang ni tu yang agak merangkak sket ni. untuk aku updatekan db tu aku kena guna mcm mana erk?

Katakan ada 4 objek:

txtUsername 'text box

txtUPassword 'text box

btnEnter 'button

btnSave 'button

    Private cnADONetConnection As New OleDb.OleDbConnection()
    Private daPengguna As OleDb.OleDbDataAdapter
    Private cbPengguna As OleDb.OleDbCommandBuilder
    Private dtPengguna As New DataTable
    Private authorized As Boolean = False

    Private Sub refreshDatabase()
        dtPengguna.Clear()
        daPengguna = New OleDb.OleDbDataAdapter("SELECT * FROM tbl_pengguna WHERE username='" & txtUsername.Text & "' AND password = '" & txtPassword.Text & "'", cnADONetConnection)
        cbPengguna = New OleDb.OleDbCommandBuilder(daPengguna)
        daPengguna.Fill(dtPengguna)
    End Sub

    Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
        refreshDatabase()

        If (dtPengguna.Rows.Count = 1) Then
            MessageBox.Show("Anda berjaya login")
            authorized = True
            btnSave.Enabled = True
        Else
            MessageBox.Show("Salah! Cuba lagi")
        End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If (authorized = True) Then
            dtPengguna.Rows(0)("username") = txtUsername.Text
            dtPengguna.Rows(0)("password") = txtPassword.Text
            daPengguna.Update(dtPengguna)
            refreshDatabase()
            MessageBox.Show("Maklumat dah update")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnADONetConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=sdssds;Data Source=|DataDirectory|\db1.mdb"
        cnADONetConnection.Open()
        btnSave.Enabled = False
    End Sub

Pehtu jgn lupa nak close connection bila sesuai

Katakan ada 4 objek:

txtUsername 'text box

txtUPassword 'text box

btnEnter 'button

btnSave 'button

    Private cnADONetConnection As New OleDb.OleDbConnection()
    Private daPengguna As OleDb.OleDbDataAdapter
    Private cbPengguna As OleDb.OleDbCommandBuilder
    Private dtPengguna As New DataTable
    Private authorized As Boolean = False

    Private Sub refreshDatabase()
        dtPengguna.Clear()
        daPengguna = New OleDb.OleDbDataAdapter("SELECT * FROM tbl_pengguna WHERE username='" & txtUsername.Text & "' AND password = '" & txtPassword.Text & "'", cnADONetConnection)
        cbPengguna = New OleDb.OleDbCommandBuilder(daPengguna)
        daPengguna.Fill(dtPengguna)
    End Sub

    Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
        refreshDatabase()

        If (dtPengguna.Rows.Count = 1) Then
            MessageBox.Show("Anda berjaya login")
            authorized = True
            btnSave.Enabled = True
        Else
            MessageBox.Show("Salah! Cuba lagi")
        End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If (authorized = True) Then
            dtPengguna.Rows(0)("username") = txtUsername.Text
            dtPengguna.Rows(0)("password") = txtPassword.Text
            daPengguna.Update(dtPengguna)
            refreshDatabase()
            MessageBox.Show("Maklumat dah update")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnADONetConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=sdssds;Data Source=|DataDirectory|\db1.mdb"
        cnADONetConnection.Open()
        btnSave.Enabled = False
    End Sub

Pehtu jgn lupa nak close connection bila sesuai

if ada userName n Password aku ok... if ade old pass, new pass n comfrmation pass.... yg aku x paham cam ne nak set kan nye.Kalo login yg ko bagi nie...aku dah set satu class. Tp kalo yang aku nk tu...aku nk kena compare ke?? kalo new pass bleh compare ngan ngan comfirmtion pass... kalo old pass plak???

Ooo aku ingatkan kau nak sample coding cara nak save ke database. So aku buat je laa simple coding. Dalam coding aku tu, hanya user yg dah berjaya login boleh click kat button Save sebab button tu jadi "Enabled" lepas dia berjaya login. Kat button save tu sistem tak compare langsung ngan username/password lama sebab dia dah berjaya login.

Buat pe nak check kali kedua kat database samada username/password sama sedangkan dia dah login? Unless kau buat utk web apps di mana ada session yg kau nak auto log out.

So kalau kau nak gak check dua kali, nie pseudecode. Kau boleh rojakkan sample coding yg aku dah kasi:

1. User enter username and password

2. Check guna SQL sama ke tak. Kalau sama, return Key

3. Save ke database mengikut Key yg dapat tadi

Kalau kau masih tak reti buat, kau prepare kan flow chart login yg kau nak. Misalnya memula kau nak display apa, then user kena buat apa, then kau nak sistem buat apa, ....etc. Nanti aku buatkan sample yg sebijik cam kau nak. Tapi kau cuba laa buat sendiri dulu. Skop coding yg aku kasi tu dah cukup kot... tinggal nak twist jadi apa yg kau nak.

Edited October 16, 200817 yr by Coisox

tankz la sebb bg idea....

aku bukan nak check login buat kali ke dua... cuma aku nak user bleh tukar pass bila2 yang dia . Contohnya kat website kan user bleh tukar pass bila2 die nak.. then kat screen akan kuar

old password :

new password :

comfirmation password :

yang selama nie aku buat hanya develop je leh tukar pass untuk user... tp skunk ni aku nk user leh tukar sendiri ....

login masuk mmg aku wat sekali ja. so sapa ada id die leh log in. Yang aku nak wat sekarang nie..aku nk tukar pass so element yang aku perlu ada macam sample kat atas yang aku buat.Aku ada wat contoh codingnya, kalo ko ade idea ubah sket.

Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click

Dim objcon As New clsDataLib

Dim conDatabase As New Maxeff_TechnologiesDataSet

Dim strSQL As String

Dim intCheckPwd As Integer

conDatabase = MaxxAsigment.frmChangePassword.Connection

On Error GoTo Error_Handler

If ((IsNull(txtConfirmPwd)) Or (IsNull(txtNewPass))) Then

MsgBox("Enter both and new and confirm password")

Exit Sub

End If

'Check that the new and confirmed passwords match.

intCheckPwd = StrComp(txtNewPass, txtConfirmPwd, vbBinaryCompare)

'Determine if we are changing/clearing the current password

'or setting a new one.

If txtOldPass.Enabled = False And intCheckPwd = 0 Then

strSQL = "select Password from `User` where Password=" & txtNewPass & " NULL"

conDatabase.User(strSQL)

MsgBox("The new password was successfully set.", vbInformation)

'Change the current password.

ElseIf intCheckPwd = 0 Then

'Check that the old password was given.

If IsNull(txtOldPass) Then

MsgBox("Please enter the current (old) password.", _

vbInformation)

txtOldPass.SetFocus()

Exit Sub

End If

strSQL = "select Password from `User` where Password=" & txtNewPass & " " & txtOldPass

conDatabase.Execute(strSQL)

MsgBox("The password was successfully changed.", vbInformation)

'Password was not confirmed.

Else

MsgBox("The password was not confirmed. Please try again.", _

vbExclamation)

txtConfirmPwd = vbNullString

txtConfirmPwd.SetFocus()

End If

'Close out the form and all object variables.

conDatabase.Close()

conDatabase = Nothing

DoCmd.Close(Form1, "frmChangePassword")

Exit Sub

Error_Handler:

MsgBox(Err.Description, vbCritical)

Edited October 16, 200817 yr by aem1354

so apa beza ngan coding aku? cuma kedudukan soalan je tak sama. result akhir tetap user boleh tukar password.

Aku nye: Login > Check > Change Password > Update DB

Kau nye: Login + Change Password > Check Password > Update DB

Edited October 16, 200817 yr by Coisox

aku dah leh buat...tankz alot... im using dis 1.. tankz bro sebb bagii idea kat aku.

Public Function ChangePassword( _

ByVal UserID As String, _

ByVal OldPassword As String, _

ByVal NewPassword As String, _

ByVal ConfirmPassword As String) As Boolean

ChangePassword = False

Dim con As New OleDbConnection

Try

Dim cmdUpdate As New OleDbCommand

Dim cmdTbl As New OleDbCommand

Dim adtTbl As New OleDbDataAdapter

Dim cbrTbl As New OleDbCommandBuilder

Dim dstTbl As New DataSet

Dim tblTbl As New DataTable

Dim strSQL As String = "select * from `User` where UserID='" & UserID & "';"

strErrorMessage = ""

con.ConnectionString = Me.strConnectionString

con.Open()

cmdTbl.Connection = con

cmdTbl.CommandText = strSQL

cmdUpdate.CommandText = "Update `User` Set UserPassword = '" & NewPassword & "' where UserID = '" & UserID & "';"

adtTbl.SelectCommand = cmdTbl

cbrTbl.DataAdapter = adtTbl

adtTbl.InsertCommand = cbrTbl.GetInsertCommand

'adtTbl.UpdateCommand = cbrTbl.GetUpdateCommand

adtTbl.UpdateCommand = cmdUpdate

adtTbl.Fill(dstTbl, "User")

tblTbl = dstTbl.Tables("User")

If tblTbl.Rows.Count > 0 Then

If Not tblTbl.Rows(0).Item("UserPassword").ToString = OldPassword Then

strErrorMessage = "Invalid Old Password!"

Exit Function

End If

If NewPassword.Length = 0 Then

strErrorMessage = "Invalid New Password!"

Exit Function

End If

If Not NewPassword = ConfirmPassword Then

strErrorMessage = "Invalid Confirm Password!"

Exit Function

End If

tblTbl.Rows(0).Item("UserPassword") = NewPassword

adtTbl.Update(dstTbl, "User")

ChangePassword = True

Else

strErrorMessage = "Invalid User ID!"

End If

Catch ex As Exception

strErrorMessage = ex.Message

Finally

If con.State <> ConnectionState.Closed Then

con.Close()

End If

End Try

End Function

aper fungsi "try" dengan "strSQL"?
sayer pown baru je nk tau basic..

[quote name='annaz123' date='28 April 2010 - 01:21 AM' timestamp='1272388879' post='1027828']
aper fungsi "try" dengan "strSQL"?
sayer pown baru je nk tau basic..
[/quote]
hmmm..lama dah thread ni..

Try tu untuk exception handling.. [url="http://www.homeandlearn.co.uk/NET/nets5p4.html"]Bacaan lanjut di sini[/url]
strSQL tu String variable untuk SQL syntax..