Matlab Create Read Update Delete database 2

Source code saat tombol Ubah ditekan

function btnUbah_Callback(hObject, eventdata, handles)

lkode_admin=char(get(handles.edKode,'string'));

lpassword=char(get(handles.edPass,'string'));

lusername=char(get(handles.popUsername,'Userdata')); 

lstatus=char(get(handles.uipanel3,'Userdata'));

whos

if length(lkode_admin)<1

    msgbox('Silakan lengkapi Kode Admin...','Lengkapi Data');

elseif length(lpassword)<1

    msgbox('Silakan lengkapi Data Pass Admin...','Lengkapi Data');

else   

    con = Koneksi();

    curs = exec(con, ['update tb_admin set username=''', lusername, ''',password=''', lpassword, ''',status=''', lstatus, ''' where kode_admin=''', lkode_admin, '''']);

    a = fetch(curs);

    exec(con, 'rollback');

    exec(con, 'commit');

    [mydata,header,no ] = Lihat();

    set(handles.myTabel,'data',mydata,'ColumnName',header,'RowName',no);

    set(handles.myTabel,'Userdata',mydata);

        adadata=cell2mat(mydata(1,1));

    jum=size(mydata,1);

    if strcmp(adadata,'No Data')

    set(handles.txtJum,'String','0');

    else   

    set(handles.txtJum,'String',num2str(jum));

    end

  

    set(handles.edPass,'string','');

    [psn]=['Proses Ubah Berhasil....' ];

    msgbox(psn);

   

    set(handles.edPass,'string','');

    con = Koneksi();

    setdbprefs('NullNumberWrite', 'NaN');

    AU=matlabKodeAuto('ADM');

    set(handles.edKode,'string',AU);

    set(handles.radAktif,'Value',0);

set(handles.radTidak,'Value',0);

set(handles.popUsername,'Value',1);

set(handles.popCari,'Value',1);

set(handles.edItem,'String','');

end

Source code saat tombol Hapus ditekan

function btnHapus_Callback(hObject, eventdata, handles)

lkode_admin=cell2mat(get(handles.edKode,'string'));

if length(lkode_admin)<1

    msgbox('Silakan lengkapi Kode Admin...','Lengkapi Data');

else   

    con = Koneksi();

    setdbprefs('NullNumberWrite', 'NaN');

    %sql=['delete from tb_admin where kode_admin='''  lkode_admin  ''''];

    sql=['delete from tb_admin where kode_admin=''' lkode_admin ''''];

 

    curs = exec(con, sql);

    fetch(curs);

    exec(con, 'rollback');

    exec(con, 'commit');

    [mydata,header,no ] = Lihat();

    set(handles.myTabel,'data',mydata,'ColumnName',header,'RowName',no);

    set(handles.myTabel,'Userdata',mydata);

    adadata=cell2mat(mydata(1,1));

    jum=size(mydata,1);

    if strcmp(adadata,'No Data')

    set(handles.txtJum,'String','0');

    else   

    set(handles.txtJum,'String',num2str(jum));

    end

  

    set(handles.edPass,'string','');

    con = Koneksi();

    setdbprefs('NullNumberWrite', 'NaN');

    AU=matlabKodeAuto('ADM');

    set(handles.edKode,'string',AU);

    set(handles.radAktif,'Value',0);

    set(handles.radTidak,'Value',0);

    set(handles.popUsername,'Value',1);

    set(handles.popCari,'Value',1);

    set(handles.edItem,'String','');

    [psn]=['Proses Hapus Berhasil' ' !'];

    msgbox(psn);

end

Kursus / Konsultasi / Bimbingan Belajar / Skripsi Mahasiswa

http://www.lp2maray.com

021-92771708   / 085279959498

URL VIDEO :

https://www.youtube.com/watch?v=0UaDnmPkH6U&feature=youtu.be