Modul Semester Ganjil 2015/2016 STMIK WD Pontianak

Java :
http://www.mediafire.com/view/4lrig9e0ch77e3x/Modul_Praktikum_123.pdf

Foxpro 9.0 :
http://www.mediafire.com/view/jfe5fb5qut5b8p3/Pengenalan_Tabel_OK.doc

MPS (Update) :
http://www.mediafire.com/download/c32iiypafi6kwz3/Part1+-+Pengantar+Manajemen+Proyek+Sistem+Informasi.pptx
Baru :
http://www.mediafire.com/view/dwsp8il53tdeplr/Part_2-Tantangan_dalam_Manajemen_Proyek_Sistem.pdf
http://www.mediafire.com/view/enndbpznpldzfx5/Part_3_-_Pengelolaan_Siklus_Hidup_Proyek_Sistem_Informasi.pdf


VB 6.0 "
http://www.mediafire.com/download/690tod389nk89k2/Modul_TEORI_VB+6.0+%28I%29.pdf

Sistem Multimedia :
http://www.mediafire.com/download/yl1e974b2p3hzn9/SM.zip 

Kapita Selekta (Update) :
http://www.mediafire.com/view/og9ipx2ccbgtr7s/03_Internet01.ppt
http://www.mediafire.com/view/11u1ylwettah1pl/04_PENGENALAN_SEARCH_ENGINE.ppt 
http://www.mediafire.com/download/b5cos8kpbnuodcd/KS-Lanjutan.zip

Modul Lanjutan VBNET

Silakan diunduh disini yah :
http://www.mediafire.com/download/7eu4962z1ocyg1n/VBnet.zip

Koding Simpan - Update

Try
            For i As Integer = 0 To ListView1.Items.Count - 1
                SQL2 = "INSERT INTO DTJUAL VALUES('" & TXTNOFAKTUR.Text & "','" & ListView1.Items(i).SubItems(0).Text & "','" & ListView1.Items(i).SubItems(2).Text & "','" & ListView1.Items(i).SubItems(4).Text & "')"
                connection.Open()
                adapter.InsertCommand = connection.CreateCommand
                adapter.InsertCommand.CommandText = SQL2
                adapter.InsertCommand.ExecuteNonQuery()
                connection.Close()

                'TAMBAHKAN UPDATE STOK
                SQL4 = "SELECT * FROM TBLBRG WHERE KODEBRG ='" & ListView1.Items(i).SubItems(0).Text & "'"
                connection.Open()
                With command2
                    .CommandText = SQL4
                    .Connection = connection
                    reader = .ExecuteReader
                End With

                Try
                    reader.Read()
                    If reader.HasRows = True Then
                        STOK = reader.GetValue(3)
                    End If
                Finally
                    reader.Close()
                End Try
                connection.Close()


                SQL3 = "UPDATE TBLBRG SET STOK = '" & STOK + ListView1.Items(i).SubItems(2).Text & "' WHERE KodeBRG = '" & ListView1.Items(i).SubItems(0).Text & "'"
                connection.Open()
                adapter.UpdateCommand = connection.CreateCommand
                adapter.UpdateCommand.CommandText = SQL3
                adapter.UpdateCommand.ExecuteNonQuery()
                connection.Close()

            Next

Modul Updatean VB.Net SI4B & SI4P

Silakan diunduh di sini yah :
http://www.mediafire.com/view/br6958lzbd1t6lf/UPDATEAN_MODUL.pdf