vb.net - Edit/update function not working properly -


help, i'm working on update function on aplication program using visual studio ultimate 2012 vb.

after fixed error on coding, debug program f5. but, when tried update data on datagridview doesn't change thought messagebox "data has been updated" show up.

how fix problem?

here coding update function:

form1:

private sub button1_click(sender object, e eventargs) handles button1.click         classsiswa.ubahdata(new sqlconnection, (txt_nis.text), (txt_nisn.text), (txt_namasiswa.text), (cmb_kelaminsiswa.text), (txt_kotalahir.text), (dtp_siswa.text), (cmb_agamasiswa.text), (txt_beratsiswa.text), (txt_tinggi_badan.text))         datagridview()     end sub  private sub updatedatasiswa()     classsiswa.nis = txt_nis.text     classsiswa.nisn = txt_nisn.text     classsiswa.nama_siswa = txt_namasiswa.text     classsiswa.tanggal_lahir = dtp_siswa.text     classsiswa.jenis_kelamin = cmb_kelaminsiswa.text     classsiswa.kota_lahir = txt_kotalahir.text     classsiswa.agama = cmb_agamasiswa.text     classsiswa.tinggi_badan = txt_tinggi_badan.text     classsiswa.berat_badan = txt_beratsiswa.text     classsiswa.updatesiswa(classsiswa.opencon, (txt_nis.text))     datagridview() end sub 

classsiswa:

public shared sub ubahdata(byval _cn sqlclient.sqlconnection, byval _nis string, byval _nisn string, byval _nama_siswa string, byval _jenis_kelamin string, byval _kota_lahir string, byval _tanggal_lahir string, byval _agama string, byval _berat_badan string, byval tinggi_badan string)         dim sql new sqlclient.sqlcommand         sql.connection = _cn         sql.commandtype = commandtype.text         sql.commandtext = "update siswa set nis='" & nis & "',nisn='" & nisn & "',nama_siswa='" & nama_siswa & "',jenis_kelamin='" & jenis_kelamin & "' ,kota_lahir='" & kota_lahir & "',tanggal_lahir='" & tanggal_lahir & "'agama='" & agama & "'berat_badan='" & berat_badan & "',tinggi_badan='" & tinggi_badan & "'"           messagebox.show(" data telah diupdate")         classsiswa.closecon()     end sub     public shared sub updatesiswa(byval _cn sqlclient.sqlconnection, byval _nis string)         dim sql sqlclient.sqlcommand         sql = new sqlclient.sqlcommand         sql.connection = _cn         sql.commandtype = commandtype.text         sql.commandtext = "update siswa set nis = '" & nis & "', nisn = '" & nisn & "' nis = '" & _nis & "'"         sql.executenonquery()     end sub 

you're missing sql.executenonquery() sub ubahdata.