TUTORIAL CARI

Imports MySql.Data.MySqlClient

Public Class FPenerbit

    Dim MyCon As New MySqlConnection("Server=localhost;User id=root;Password=3306;Database=Perpustakaan")

    Private Sub FMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit", MyCon)

        Dim MyDataTbl As New DataTable

        MyAdapter.Fill(MyDataTbl)

        DGV.DataSource = MyDataTbl

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        If MsgBox("YAKIN ANDA MAU KELUAR?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi") = MsgBoxResult.Yes Then

            End

        End If

    End Sub

    Private Sub Txtcari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtcari.KeyPress

        If e.KeyChar = vbCr Then

            If cmbcari.Text = "IdPenerbit" Then

                Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit Where NPM Like '%" & txtcari.Text & "%'", MyCon)

                Dim MyDataTbl As New DataTable

                MyAdapter.Fill(MyDataTbl)

                DGV.DataSource = MyDataTbl

            ElseIf cmbcari.Text = "Nama" Then

                Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit Where Nama Like '%" & txtcari.Text & "%'", MyCon)

                Dim MyDataTbl As New DataTable

                MyAdapter.Fill(MyDataTbl)

                DGV.DataSource = MyDataTbl

            ElseIf cmbcari.Text = "Alamat" Then

                Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit Where TGLLAHIR Like '%" & txtcari.Text & "%'", MyCon)

                Dim MyDataTbl As New DataTable

                MyAdapter.Fill(MyDataTbl)

                DGV.DataSource = MyDataTbl

            ElseIf cmbcari.Text = "Kota" Then

                Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit Where JKel Like '%" & txtcari.Text & "%'", MyCon)

                Dim MyDataTbl As New DataTable

                MyAdapter.Fill(MyDataTbl)

                DGV.DataSource = MyDataTbl

            ElseIf cmbcari.Text = "NoTelepon" Then

                Dim MyAdapter As New MySqlDataAdapter("Select IdPenerbit,Nama,Alamat,Kota,NoTelepon from Penerbit Where ALAMAT Like '%" & txtcari.Text & "%'", MyCon)

                Dim MyDataTbl As New DataTable

                MyAdapter.Fill(MyDataTbl)

                DGV.DataSource = MyDataTbl

            End If

        End If

    End Sub

    Private Sub Txtcari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcari.TextChanged

    End Sub

    Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

        Btntambah.Focus()

        FPenerbit_Tambah.ShowDialog()

        Me.Close()

    End Sub

    Private Sub txtcari_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcari.TextChanged

    End Sub

End Class

[ Read More ]

TUTORIAL MENAMBAHKAN RECORD DATA

Awalnya buat lah mysql seperti biasa :

Kemudian buat form dan koneksikan mysql ke vb seperti pada postingan sebelumnya,
kemudian buat form seperti pada gambar :

form1 (Fpenerbit)

Form2 (Ftambah)

Setelah membuat form pada tombol tambah (form1) di masukkan rumus untuk mengalihkan from ke From2

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

        Btntambah.Focus()

        FPenerbit_Tambah.ShowDialog()

        Me.Close()

    End Sub

 Kemudian pada tombol simpan di Form2 dimasukkan rumus sbb :

Imports MySql.Data.MySqlClient

Public Class FPenerbit_Tambah

    Dim MyCon As New MySqlConnection("Server=localhost;User id=root;Password=3306;Database=perpustakaan")

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        MyCon.Open()

        Dim StrSQL As String = "Insert Into penerbit (idPenerbit,Nama,Alamat,Kota,NoTelepon) values ('" & txtid.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" & txtkota.Text & "','" & txtno.Text & "')"

        Dim mycmd As New MySqlCommand(StrSQL, MyCon)

        Dim rdr As MySqlDataReader = mycmd.ExecuteReader

        Me.Close()

    End Sub

[ Read More ]

DOWNLOAD VISUAL BASIC

Peluncuran Visual Basic.NET atau Visual Studio oleh Microsoft membuat para programer VB (biasa di sebut) cukup senang adanya software visual basic 2010 express baru ini, pada kesempatan kali ini saya akan mengajarkan pembelajaran - pembelajaran dasar untuk anda yang baru ingin belajar visual basic 2008 atau 2010, visual basic 2008 dan 2010 tidaklah jauh berbeda, jadi jika anda sudah dapat menguasai salah satunya di jamin anda bisa mengusai keduanya.

tutorial-tutorial yang saya berikan akan bersambung dengan artikel selanjutnya, jadi anda hanya tinggal klik next dan next untuk pembelajar selanjutnya. sumber penulisan tutorial - tutorial belajar visual basic untuk pemula ini saya adaptasi dari blog luar negri yang berbahasa inggris dan saya artikan dengan bahasa indonesia dengan sedikit perubahan tentunya, agar dapat lebih di mengerti :D

untuk itu kunjungi terus www.zengbogel.blogspot.com .. ok ..hehehe

*Sedikit info untuk motivasi :
dengan visual basic anda dapat membuat software-software menarik seperti game, anti virus, dan software-software menarik lainnya .

Sebelum kita belajar lebih jauh pertama - pertama anda harus download software nya terlebih dahulu di Microsoft langsung, tidak perlu panik karena gratis, hanya tinggal registrasi dengan serial number valid agar software tersebut tidak trial, dan kebetulan saya ada serial number visual basic 2010 express yang akan saya bagikan untuk anda

Download visual basic 2010 express :
http://www.microsoft.com/visualstudio/en-us/products/2010-editions/express
*Scroll kebawah kemudian klik Visual Basic 2010 Express

Serial Number : 2KQT8-HV27P-GTTV9-2WBVV-M7Y96
Update
Kelihatannya serial number VB.NET ini Sudah di ubah untuk tahun 2012 ini, jadi jika serial number di atas tidak bisa di gunakan, mohon gunakan serial number di bawah ini :
2KQT8-HV27P-GTTV9-2WBVV-M7X96
Atau:
YCFHQ-9DWCY-DKV88-T2TMH-G7BHP
Catatan : Proses download dan install visual basic 2010 express ini memang memakan waktu cukup lama, tapi jika anda benar-benar serius untuk belajar visual basic anda patut mendownload dan menginstall nya.


Setelah anda download dan install software microsoft ini, sekarang saatnya untuk membuatnya tidak trial. dengan cara sbb :

Buka Visual basic 2010 express nya.
Pilih Help dan Pilih Register Product kemudian masukan kode lisensi (serial number)

Bila semua proses lancar silahkan lihat apakah sudah berhasil dengan cara pilih Help lalu pilih About Microsoft Visual Basic 2010 Express dan lihat di sudut kanan atas Licensed To

Sekarang anda sudah punya softwarenya, saatnya kita untuk mempelajarinya ....

[ Read More ]