Private Sub cmdUbah_Click() On Error GoTo SalahUbah Set rsCek = - TopicsExpress



          

Private Sub cmdUbah_Click() On Error GoTo SalahUbah Set rsCek = New ADODB.Recordset SQL = SELECT * FROM Golongan WHERE KdGolongan= & cbokd & rsCek.Open SQL, conn, adOpenKeyset, adLockReadOnly If rsCek.RecordCount = 0 Then SQL = Update Golongan Set NmGolongan = & TxtGolongan & _ where KdGolongan = & txtKd & Set rsUbah = New ADODB.Recordset rsubah.Open SQL, conn, adOpenDynamic, adLockPessimistic MsgBox Data tersimpan ke Database., vbInformation, Simpan Data Exit Sub SalahUbah: MsgBox Err.Description, vbExclamation, Kesalahan Exit Sub End Sub
Posted on: Wed, 06 Nov 2013 11:40:00 +0000

Trending Topics



Recently Viewed Topics




© 2015