Koding Muncul Data dari Database ke ComboBox / Panggil Data dari ComboBox

Koding Muncul Data di ComboBox / Panggil Data dari ComboBox
----------------------------------------------------------------------------------

 Sub panggilcombo()
        cmd = New OleDbCommand("select nama from kasir", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            If dr.HasRows Then
                ckasir.Items.Add(dr.Item("nama"))
            End If
        Loop
    End Sub

Koding UBAH / UPDATE pada vb.net access

Koding UBAH / UPDATE vb.net
Sebelumnya memang pernah nulis koding ubah, cari aja di
-----------------
sekarang kamu bisa cobain koding ini juga ya...

    Private Sub bubah_Click(sender As Object, e As EventArgs) Handles bubah.Click
        If tid.Text = "" Then
            MsgBox("ID BELUM DIISI", MsgBoxStyle.Information, "INFORMASI")
            Exit Sub
        End If
        cmd = New OleDbCommand("SELECT * from buku where idbuku = ' " & tid.Text & " ' ", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            Dim update As String = "update buku set judul ='" & tjudul.Text & "', penulis ='" & tpenulis.Text & "', penerbit ='" & tpenerbit.Text & " ' where idbuku = ' " & tid.Text & " ' "
            cmd = New OleDbCommand(update, conn)
            cmd.ExecuteNonQuery()
            Call tampil()
            Call kosong()
        End If
    End Sub

Komponen Dasar Microsoft Office PowerPoint 2007

Komponen Dasar Microsoft Office PowerPoint 2007

Perhatikan Gambar di bawah ini yak...

Keterangan ada disini:
1. Tittle Bar, berisi nama file dan nama program aktif 2. Menu Bar, berisi serangkaian perintah untuk mengelola pekerjaan dan program 3. Tool Bar, serangkaian tombol perintah tertentu 4. Area Outline, tampilan slide 5. Ruler, untuk mengatur batas-batas ketikkan dan indentasi 6. Place Holder, menunjukkan posisi dimana akan mengetik 7. Sizing Button, untuk mengatur tampilan window baik minimize, maximize, restore maupun close 8. Status Bar, memuat segala keterangan mengenai posisi cursor

Konsep Dasar dan Teknologi Webpage

Konsep Dasar dan Teknologi Webpage

1. Pengenalan World Wide Web (WWW)
    adalah dokumen -dokumen yang tersimpan dalam server web di seluruh dunia yang dapat diakses melalui internet.
WWW mempunyai tiga bagian yang digunakan sebagai berikut:

a. HTTP (HyperText Transfer Protocol) yang memungkinkan antara jaringan yang satu dengan jaringan yang lain dapat melakukan pembagian sumber daya secara bersama-sama, saling berkomunikasi dan bertukar informasi.
b. URL (Uniform Resource Locator) yang dapat menentukan aturan penamaan alamat yang ada di web (address).
3. HTML (HyperText Markup Language), yaitu bahasa pemrograman yang umum digunankan untuk mendukung akses web melalui internet. HTML dikenal dengan nama dokumen html dan berekstensi dot html (.html)

2. Pengertian HTML
    HTML merupakan

Tujuan Pembelajaran Pembuatan Web Statis Tingkat Dasar

1. Mampu menjelaskan konsep dasar dan teknologi Webpage
2. Mampu menjelaskan struktur dokumen HTML
3. Dapat menambahkan objek pada web
4. Dapat membuat tabel pada web
5. Dapat membuat Link pada web
6. Dapat menyimpan dokumen
7. Dapat menguji dokumen

SOAL KKPI JEJAK SAKURA

Peraturan dalam menjawab soal!
>> berwarna kuning diisi Nama peserta(selebihnya sudah dijelaskan di kelas)
>> file dalam bentuk lembar kerja excel (bukan gambar)
Kirim via:
Email  : sulistiowati.web@gmail.com
FB :   https://www.facebook.com/jejak.sakura
IG  :  @jejak.sakura
Selamabat-lambatnya pada hari Jum'at 09 Juni 2017 23.59 WIB
NB: Harus Menggunakan Formula, bukan dihitung pakai alat hitung. :)

Terimakasih :)

Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)

Menampilkan Klik Datagridview ke Textbox (cellMouse_Click)
----------------------------------------------------------
Langkah =
1. Klik 2x datagridview nya
2. Ganti Event nya menjadi CellMouse_Click
3. Ketikkan Koding di bawah ini.


Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
Dim d = Me.DataGridView1.CurrentRow.Index
With DataGridView1.Rows.Item(d)
Tid.Text = .Cells(0).Value
Tuser.Text = .Cells(1).Value
Tpass.Text = .Cells(2).Value
Tnama.Text = .Cells(3).Value
Talamat.Text = .Cells(4).Value
Ttelp.Text = .Cells(5).Value
Cstatus.Text = .Cells(6).Value
End With
End Sub