Hapus Data koneksi vb.net ke mysql

sobat semua, kali ini saya ingin membagikan source code hapus data untuk membantu kalian yang kesulitan untuk procedure hapus data.

klik tombol hapus dan masukkan source code berikut  :

   Private Sub Hapus_Click(sender As Object, e As EventArgs) Handles Hapus.Click
        If MsgBox("Anda Yakin Ingin Hapus ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Hapus") = MsgBoxResult.No Then
            Exit Sub
        End If
        deletepihak(ListView1.SelectedItems(0).Text) 'menghapus dari listview
        Call isilist()  'panggil data yang ada pada listview
    End Sub

    Private Sub deletepihak(ByVal cc As String)

        Dim cmd As New MySqlCommand 'declare
        cmd.Connection = conn 'set koneksi
        cmd.CommandText = "delete from tbl_pihak where kd_pihak='" & cc & "'"  'isi commandtext
        cmd.ExecuteNonQuery() 'execute query
        cmd.Dispose() 'hancurkan cmd

        MsgBox("Data Telah Dihapus")
        Call ClearForm(Me) 'hapus seluruh textbox, combobox, dll. seperti yg sudah dibahas
    End Sub

Sekian dulu ya source code nya, jangan lupa baca artikel lainnya
Terima kasih telah membaca di blog ini.

Read More

Simpan dan Update data koneksi Vb.net ke Mysql

Kali ini saya ingin membagikan source code simpan, edit,Update, hapus data Vb.net ke databse mysql.

 Private Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
        If TextBox1.Text = "" Then   'kode pihak kosng
            MsgBox("Kode Pihak harus diisi")
            Exit Sub
        End If
        If TextBox2.Text = "" Then 'nama pihak kosong
            MsgBox("Nama Pihak harus diisi")
            Exit Sub
        End If

        Dim command As New MySqlCommand

        command.Connection = conn
        command.CommandText = "select * from tbl_pihak where kd_pihak = '" & TextBox1.Text & "'"
        DR = command.ExecuteReader
        If DR.Read Then
            If Not DR Is Nothing Then DR.Close()
            command.CommandText = "update tbl_pihak set nm_pihak = '" & TextBox2.Text & "' where kd_pihak = '" & TextBox1.Text & "'"
            command.ExecuteNonQuery()
            ClearForm(Me)
            skepdireksi.isilist()
        Else
            If Not DR Is Nothing Then DR.Close()
            command.CommandText = "insert into tbl_pihak (kd_pihak, nm_pihak) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            command.ExecuteNonQuery()
            ClearForm(Me)
            skepdireksi.isilist()
        End If
        If DR Is Nothing Then DR.Close()
        command.Dispose()
 
    End Sub

'textbox1 = kode pihak
'textbox2 = nama pihak

sekian source code untuk pembelajaran mengenai simpan data dan update data dijadikan dalam 1 procedure.

jangan lupa baca juga untuk Hapus data, Edit Data

Terima kasih telah membaca artikel ini, semoga bermafaat buat kalian semua.
maaf jika ada kesalahan, dalam penulisan.

Read More

Koneksi Vb.Net ke Mysql dengan Visual Studio 2012

Sekarang kita mulai untuk membuat koneksi vb.net ke mysql dari visual studio 2012. berikut source code nya,
Buka terlebih dahulu New Project - Module, masukkan script berikut ini :

Imports MySql.Data.MySqlClient

Module KONEKSI
    Public inresponse As String
    Public conn As New MySqlConnection
    Public DR As MySqlDataReader
    Public DA As MySqlDataAdapter
    Public cmd As MySqlCommand
    Public ds As DataSet
    Public dt As DataTable
    Public server, user, pass, db As String


    Public Sub bukaDB()
        Dim SQLconn As String
        SQLconn = "server=localhost;Uid=root;Pwd=root;Database=perjanjian;"
        conn = New MySqlConnection(SQLconn)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module

Sekian dulu ya penjelasan mengenai procedure koneksi vb.net ke mysql. source code ini diambil dari project saya pribadi. terima kasih telah membaca atikel ini. jangan lupa baca artikel lainnya.

Read More

Tampilkan database Mysql ke Listview Vb.Net

Sekarang Kita akan membahas untuk mengisi listview yang terkoneksi ke database, dan saya menggunakan database Mysql untuk mengkoneksikannya, berikut source code nya :

   Public Sub isilistview()

        Dim data As DataTable

        Dim da As MySqlDataAdapter

        isitable()

        data = New DataTable

        KONEKSI.bukaDB()

        da = New MySqlDataAdapter("SELECT * FROM tbl_pihak", conn)

        Dim bs As New BindingSource

        da.Fill(data)

        bs.DataSource = data

        With ListView1

            For i As Integer = 0 To bs.Count - 1

                Dim lst As New ListViewItem

                With lst

                    .Text = bs.Current("kd_pihak").ToString

                    .SubItems.Add(bs.Current("nm_pihak").ToString)

                   

                End With

                .Items.Add(lst)

                bs.MoveNext()

            Next

        End With

    End Sub

    Public Sub isitable()

        ListView1.Clear()

        '  ListView1.Columns.Add("No", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Kode Pihak", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Nama Pihak", 200, HorizontalAlignment.Left)

        '    ListView1.Columns.Add("Keterangan", 220, HorizontalAlignment.Left)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

Saya menggunakan procedure untuk memanggil source code nya pada Form load, dengan source sebagai berikut :

  Private Sub Pihak_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        isilist()

  End Sub

Sekian contoh source code untuk tampil listview dari database MySql kali ini, Terima kasih telah membaca artikel ini. Senangnya berbagi.

Read More

Menampilkan Listview Ke Textbox Vb.Net

Kita Buat terlebih dahulu tampilan formnya, Disana tedapat Textbox Kode Pihak dan Textbox Nama Pihak. Berikut Program sebelum dijalankan. Semua textbox dan listview masih kkosong tidak tampil data apapun.

Setelah Program dijalankan sudah tampil database pada listview yang sudah kita bahas sebelumnya, tampil listview Berikut gambarnya.

Untuk menampilkan database pada textbox pilih data di listview terlebih dahulu, double klik pada listview. Berikut source code nya :

Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick

        With Me.ListView1

            Dim i As Integer

            For Each item As ListViewItem In ListView1.SelectedItems

                i = item.Index

            Next

            Dim innercounter As Integer = 0

For Each subItem As ListViewItem.ListViewSubItem In ListView1.Items(i).SubItems

                Dim myString As String = ListView1.Items(i).SubItems(innercounter).Text

                Select Case innercounter

                    Case 0

                        TextBox1.Text = myString

                    Case 1

                        TextBox2.Text = myString

                  

                End Select

                innercounter += 1

            Next

        End With

    End Sub

Sekian contoh source code untuk tampil listview ke textbox kali ini, untuk ke combobox juga  sama tinggal ganti saja textbox dengan combobox yang kalian inginkan. Terima kasih telah membaca artikel ini.

Senangnya berbagi.

Read More

Kosongkan Textbox, Combobox, DatePicker VB.Net

Kali ini saya ingin membagikan source code untuk membersihkan form textbox, combobox, datepicker dengan menggunakan procedure yang sangat mudah, sehingga mempermudah dalam memodifikasi nya, sesuai kebutuhan.

Buka Project - Module Lalu masukkan source code berikut ini :
 
Sub ClearForm(ByVal frm As Form)
        Dim ctrl As Control
        Dim txtControl As TextBox
        Dim cmbControl As ComboBox
        Dim dtControl As DateTimePicker
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then
                txtControl = ctrl
                txtControl.Text = ""
            ElseIf TypeOf ctrl Is ComboBox Then
                cmbControl = ctrl
                cmbControl.Text = ""
            ElseIf TypeOf ctrl Is DateTimePicker Then
                dtControl = ctrl
                dtControl.Value = Now
            End If
        Next
    End Sub

Demikian source code nya, Semoga bisa membantu kalian.

Read More

Sejarah Singkat WWW atau World Wide Web

Pengenalan Tentang WWW atau World Wide Web

WWW atau disebut World Wide Web, lebih dikenal dengan web, merupakan salah satu layanan yang didapat oleh pemakai computer yang terhubung internet.

Web pada awalnya adalah ruang informasi dalam internet, dengan menggunakan teknologi hyperteks, pemakai dituntun untuk menemukan informasi dengan mengikuti link yang disediakan dalam dokumen web yang ditampilkan dalam browser web.

Kini internet identic dengan web, karena kepopuleran web sebagai standar interface pada layanan-layanan yang ada di internet, dari awalnya sebagai penyedia informasi, kinin digunakan juga untuk komunikasi dari email sampai chatting, sampai dengan melakukan transaksi bisnis (Commerce).

Sekilas lahirnya web pada tahun 1993, ketika Tim Berners-Lee dan peneliti lain di eropean particle Physics lab (Consei European pour la Recherche Nucleaire, atau CERN) di Geneva, swis, mengembangkan suatu cara untuk men-share data antar koleganya menggunakan sesuatu yang disebut dengan hypertext. Pemakai di CERN dapat menampilkan dokumen pada layar computer dengan menggunakan software browser baru.

Kode-kode khusus disisipkan ke dalam dokumen elektronik ini, memungkinkan pemakai untuk meloncat dari saatu dokumen ke dokumen lainnya pada layar dengan hanya memilih sebuah hyperlink.

Bagaimana WWW Bekerja ?

1.       Informasi disimpan dalam dokumen yang disebut dengan halaman-halaman web (web pages)

2.       Web pages adalah file-file yang disimpan dalam computer yang disebut dengan server-server web (web servers).

3.       Computer-komputer membaca web page disebut sebagai web client.

4.       Web client menampilkan page dengan menggunakan program yang disebut dengan browser web (web browser).

5.       Browser web yang popular adalah internet explorer dan netscape navigator.

Read More

Tampilan Baru Yahoo Mesengger

Kalah bersaing dengan social media seperti whatsapp, line, dan mesengger lainnya. Senior Director Product Management Yahoo Austin Shoemaker mengklaim, Yahoo mesengger kali ini memberikan kemudahan dan pengalaman baru dalam berkomunikasi via mesengger.

Yahoo Messenger terbaru sudah dirilis secara global untuk perangkat iOS, Android, dan Yahoo Mesengger di yahoo mail versi desktop. Berikut Update Yahoo Mesengger.

Berbagi Foto Dengan Cepat dan Mudah

Pengguna bisa mengirim foto dalam jumlah banyak secara instant, bahkan hingga ratusan. Selain pengiriman foto dari library atau camera roll di smartphone, foto-foto yang dikirimkan juga bisa diambil dari Flickr.

Karena terintegrasi, pengguna bisa langsung memilih foto yang akan dikirim dari Flickr tanpa sign in terlebih dahulu. Yang menarik, foto-foto yang dibagikan akan ditampilkan dalam sebuah photo drawer yang di-swipe secara horizontal, sehingga pengguna tak perlu repot melakukan scroll ke atas atau bawah untuk melihat konteks percakapan.

Berbagi Animasi GIF

Hal menarik lain yang ditawarkan Yahoo Messenger baru adalah fitur mencari dan berbagi animasi GIF dari Tumblr sebagai sumbernya. Ketika mengobrol dan ingin memberikan respons lebih ekspresif dari sekedar gambar, terdapat tombol GIF dan pengguna tinggal mengetikkan keyword GIF yang diinginkan di kotak pencarian.

"Tumblr merupakan sumber andalan untuk mendapatkan animasi GIF di internet. Kami mengintegrasikannya dengan Yahoo Messenger sehingga pengguna bisa langsung mencari dan mengirimkannya ke teman chat," kata Austin.

Membatalkan pesan, foto, dan GIF

Salah kirim bisa saja terjadi ketika sedang chat. Untuk menghindari kejadian memalukan seperti ini, Yahoo Messenger menyediakan fitur 'Unsend'. Cukup dengan menyentuh sebuah pesan, foto, atau GIF dan pilih 'Unsend' untuk membuangnya dari sebuah percakapan.

"Ini berlaku tak hanya di ponsel Anda, tetapi juga pada perangkat si penerima sehingga pesan, foto dan GIF tersebut benar-benar tidak akan pernah terlihat oleh si penerima ketika kita sudah menekan Unsend," terang Austin.

'Like' foto orang lain

Seringkali kita dikirimi foto oleh teman chat, dan kita menyukainya. Nah, Yahoo Messenger baru mengadopsi 'like' seperti di jejaring sosial berbagi foto. Jadi, ketimbang mengetikkan komentar, ekspresi rasa suka bisa dilakukan hanya dengan menandai 'like' langsung pada foto tersebut.

Kenyamanan Account Key

Pengguna Yahoo Messenger di desktop (baik web atau Yahoo Mail versi desktop) dapat menikmati fitur Account Key, yang menggunakan push notifications untuk memberikan akses cepat dan aman ke akun dari aplikasi mobile Yahoo Messenger. Dengan demikian, pengguna tak perlu repot menghafal password yang ribet dan melalui proses sign-in semudah menyentuh sebuah tombol.

Sumber ; inet.detik.com

Read More

Cara Mendapatkan Uang dari Adf.ly

Apa itu Adf.ly ? Sebuah situs perusahaan periklanan sekaligus jasa pemendekan link/url disini dalam memendekkan link tersebut kita menyembunyikan link asli file yang kita sharing digantikan oleh adf.ly, bukan hanya adf.ly ada beberapa situs lagi seperti goo.gl, bit.ly, tinyurl.com, dll. Cara Kerja adf.ly sama dengan PPC (Pay per Click), pengunjung diarahkan ke dalam iklan adf.ly selama 5 detik untuk melihat iklan kemudian klik lewati/skip. Publisher adf.ly akan menerima komisi.

Komisi yang diberikan 5$/10.000 tampilan iklan untuk publisher Negara premium seperti (US, Canada, dll). Sedangkan 2,5$/10.000 tampilan iklan untuk publisher Indonesia. Withdraw dapat dilakukan setelah saldo minimal 5$ melalui paypal, dan 10$ melalui payoneer.

Get paid to share your links!

Mendapatkan uang dari adf.ly bisa dijalankan oleh siapa saja termasuk yang tidak memiliki blog/website. karena link adf.ly bisa dishare melalui jejaring sosial seperti facebook, twitter, dsb.

tetapi dengan menggunakan blog atau website lebih efektif untuk mendapatkan traffic nya.

Senang nya berbagi..

  

   

Read More