Saturday, July 7, 2012

Merubah data di database MySQL VB6

Anda ingin merubah data di Tabel Database MySQL menggunakan VB6, jika iya silahkan simak postingan ini.

Merubah data tersebut biasanya digunakan untuk melakukan edit data, misal edit data barang, edit nama pengguna dan lain-lain.

Bagi Anda yang  hanya ingin tahu codingnya saja bisa menggunakan coding berikut

        SQL = "SELECT * FROM user " _
            & "WHERE Nama ='" & cboNama.Text & "' " _
            & " AND Password ='" & txtPasswordLama.Text & "'"
        Set rsUpdate = New ADODB.Recordset
        rsUpdate.Open SQL, strkoneksi, adOpenDynamic, adLockOptimistic
      
            With rsUpdate
                .Fields!Password = Trim(txtPasswordBaru.Text)
                .Update
            End With

pada koding diatas untuk koneksi saya menggunakan "strkoneksi" dan tabel database "user"

atau anda bisa simak dahulu postingan berikut ini :
http://cara-mukhlas.blogspot.com/2012/07/membuat-form-menu-login-vb6-mysql.html

kemudian lanjutkan dengan posting ini

buat satu form lagi dengan komponen 3 label, 3 textbox, 2 commandbutton

kemudian ketikkan coding berikut ini :



'===============================================
Sub User()
Call Koneksi
    rsUser.Requery
    With rsUser
    If .EOF And .BOF Then
        MsgBox "DATA USER TIDAK DITEMUKAN", vbOKOnly + vbCritical, "Error"
    Else
        cboNama.Clear
        Do Until .EOF
            cboNama.AddItem ![Nama]
            .MoveNext
        Loop
            .MoveFirst
    End If
    End With
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub



Private Sub cmdOK_Click()
    If cboNama.Text = "" Then
        MsgBox "Nama belum dipilih! ", vbOKOnly + vbCritical, "KESALAHAN"
        cboNama.SetFocus
    ElseIf txtPasswordLama.Text = "" Then
        MsgBox "Password Lama belum diisi! ", vbOKOnly + vbCritical, "KESALAHAN"
        txtPasswordLama.SetFocus
    ElseIf txtPasswordBaru.Text = "" Then
        MsgBox "Password Baru belum diisi! ", vbOKOnly + vbCritical, "KESALAHAN"
        txtPasswordBaru.SetFocus
    Else
    'update password
        SQL = "SELECT * FROM user " _
            & "WHERE Nama ='" & cboNama.Text & "' " _
            & " AND Password ='" & txtPasswordLama.Text & "'"
        Set rsUpdate = New ADODB.Recordset
        rsUpdate.Open SQL, strkoneksi, adOpenDynamic, adLockOptimistic
           
        If rsUpdate.BOF Then
            MsgBox "Password lama salah!", vbCritical + vbOKOnly, "Error"
            txtPasswordLama.Text = ""
            txtPasswordLama.SetFocus
        Else
            With rsUpdate
                .Fields!Password = Trim(txtPasswordBaru.Text)
                .Update
            End With
        MsgBox "Password berhasil dirubah! ", vbOKOnly + vbInformation, "INFORMASI"
        Unload Me
        End If
    End If
End Sub

Private Sub Form_Load()
    User
End Sub
'===============================================

oke selamat mencoba

2 comments:

  1. Terima Kasih, sangat membantu sekali :-)

    ReplyDelete
  2. gan update dong cara membuat user profile termasuk photo dengan my sql! thanks gan!!

    ReplyDelete

Ayo gan Komentarnya jangan lupa,,,biar Mas Mukhlas tambah semangat nulis postingan-nya, kalau ada pertanyaan atau link yang mati laporkan juga disini ya...

LinkWithin

Related Posts Plugin for WordPress, Blogger...