a

Sunday 30 September 2012

Binding data ke form lain melalui DataGridView Vb.net

Dalam kesempatan ini, saya akan sedikit membahas tentang keluarga .Net lainnya yaitu Visual Basic.Net, yaitu cara untuk
membinding data dari form 1 ke form lainnya tetapi melalui DataGridView, biasanya DataGridView berisi replika salah satu tabel
dalam database yang kita binding ke form, akan tetapi kekurangannya adalah semakin banyak data akan semakin
banyak *** memory yang dibutuhkan.
berikut gambar hasil dari aplikasinya :D caranya dengan double click pada record yang ada pada DataGridView
a
Berikut langkah-langkahnya :
1. Buat New Project pada Visual Studio 2010
b
Name dan Solution name nya bebas, misalkan saya tulis "CRUD" lalu klik OK
2. Buat databasenya, berikut langkah-langkahnya
connect dulu, saya menggunakan Microsoft SQL Server 2008 R2 untuk databasenya
v
databasenya saya beri nama "mhs" dengan tabel yang beri nama "t_mhs" yang berisi 4 field, seperti dibawah ini
re
Jangan lupa disave :D
3. buat koneksi databasenya, saya menggunakan konsep ADO.NET, tidak menggunakan modul dalam koneksi databasenya, karena cara ini adalah cara tercepat,
berikut caranya,klik kanan pada project kita,lalu pilih properties
egi
lalu pilih tab settings, beri Name, beri nama bebas misalkan saya memberi nama "RegiePahlewi", typenya dibuat menjadi
Connection string, scopenya menjadi Application setelah itu valuenya kita browse
regie
browse

Tulis Server namenya, lalu pilih databasenya

kita dapat tes koneksi databasenya

Oke koneksinya sukses, lalu pilih button OK
b
4. Sekarang buat formnya, seperti ini, (Form 1)

berikut adalah source codenya
Imports System.Data.SqlClient
Imports System.Data
'karena kita tidak menggunakan module dalam koneksi ke database, kita harus membuat global variabel nya, dari koneksi, command, dataset, dan
DataAdapter

Public Class Form1
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private cmp As SqlCommand
    Private da As SqlDataAdapter
    Private ds As DataSet

   
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MhsDataSet.t_mhs' table. You can move, or remove it, as needed.
        Me.T_mhsTableAdapter.Fill(Me.MhsDataSet.t_mhs)
        Dim regie = My.Settings.RegiePahlewi 'memanggil settings yg kita buat sebelumnya
        conn = New SqlConnection(regie) 'ini adalah koneksi ke database yang sebelumnya kita buat di properties tadi
        Me.Button1.Enabled = False 'button satu ini adalah button simpan, ini kebiasaan saya, tidak pernah mengganti nama button, saya buat enable dulu :D
        Me.DataGridView1.Select()
    End Sub

    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
        Dim a As Integer  'membuat variabel lokal
        a = Val(TextBox2.Text)
        If a >= 1 Then
            Me.Button1.Enabled = True 'membuat enable button simpan
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim query = "INSERT INTO t_mhs (npm, nama,jurusan,angkatan)values(@npm, @nama, @jurusan, @angkatan ) " 'query
        cmd = New SqlCommand(query, conn)
        Try
            conn.Open()
            cmd.Parameters.AddWithValue("@nama", TextBox1.Text)
            cmd.Parameters.AddWithValue("@npm", TextBox2.Text)
            cmd.Parameters.AddWithValue("@jurusan", TextBox3.Text)
            cmd.Parameters.AddWithValue("@angkatan", TextBox4.Text)

            cmd.ExecuteNonQuery()
            MessageBox.Show("Data berhasil ditambah !")
        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)

        Finally
            cmd.Dispose()
            conn.Close()


        End Try

        Me.TextBox1.Clear() 'Nama
        Me.TextBox2.Clear() 'NPM
        Me.TextBox3.Clear() 'Jurusan
        Me.TextBox4.Clear() 'Angkatan
        Me.DataGridView1.Refresh()
        Form2.Close()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
        Me.TextBox4.Clear()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
'Saya membuat event, saya record yang ada pada datagridview double klik, lalu akan kluar form edit

        If MessageBox.Show("Apakah Anda ingin mengubah data ?", "Konfirmasi",
                           MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
            Exit Sub
        End If
        Form2.Show()

        Form2.TextBox2.Text = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value.ToString()
       
    End Sub
End Class
5. Form 2 untuk form edit, buat seperti form di atas, akan tetapi datagridviewnya jangan didrag ke formnya (lupa gak print screen) :D
Imports System.Data.SqlClient
Imports System.Data

Public Class Form2
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private cmp As SqlCommand
    Private da As SqlDataAdapter
    Private ds As DataSet

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim regie = My.Settings.RegiePahlewi 'memanggil settings yg kita buat sebelumnya
        conn = New SqlConnection(regie) 'ini adalah koneksi ke database yang sebelumnya kita buat di properties tadi
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim query = "update t_mhs set nama=@nama, jurusan=@jurusan, angkatan=@angkatan "
        cmd = New SqlCommand(query, conn)
        Try
            conn.Open()
            cmd.Parameters.AddWithValue("@nama", TextBox1.Text)
            cmd.Parameters.AddWithValue("@jurusan", TextBox3.Text)
            cmd.Parameters.AddWithValue("@angkatan", TextBox4.Text)

            cmd.ExecuteNonQuery()
            MessageBox.Show("Data dengan NPM " & TextBox2.Text & " Berhasil diupdate")
        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)

        Finally
            cmd.Dispose()
            conn.Close()
        End Try
        Me.Close()
    End Sub

    Private Sub TextBox2_TextChanged_1(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
        Try
            If Not TextBox2.Text = "" Then
                TextBox1.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                da = New SqlClient.SqlDataAdapter("SELECT * FROM t_mhs WHERE npm ='" & TextBox2.Text & "'", conn)
                Dim dttampil As New DataTable
                dttampil.Clear()
                da.Fill(dttampil)

                TextBox1.DataBindings.Add("Text", dttampil, "nama")
                TextBox2.DataBindings.Add("Text", dttampil, "npm")
                TextBox3.DataBindings.Add("Text", dttampil, "jurusan")
                TextBox4.DataBindings.Add("Text", dttampil, "angkatan")

            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Perhatian")
        End Try

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
        Me.TextBox4.Clear()
        Me.Close()

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class
6. Debug program yang telah kita buat, alhasil :D
Proses penambahan data
a 
Proses double click pada DataGridView
Proses Edit data pada form edit (form 2)

Sukses Update data 


NB : - Script yang saya lampirkan diatas tidak termasuk validasi proses input, 
        - Apabila ada script yang tidak efektif, dapat teman-teman ubah sesuai kebutuhan
Read More >>

Thursday 27 September 2012

Perintah Insert, Edit dan Delete pada VB Net

Mungkin diantara anda agak sedikit bingung yang baru migrasi dari VB 6.0 ke  VB Net dalam pembuatan suatu program, contohnya penggunaan perintah insert, edit dan delete. Sebenarnya konsepnya sama saja baik VB 6.0 maupun VB Net yang membedakan hanyalah pada jendela dan sedikit perubahan struktur bahasa dan objeknya.Baik disini saya akan mencoba sedikit berbagi mengenai pengetahuan saya dalam pemrograman VB Net dengan database Access  beserta koneksinya. Berikut Langkah-langkahnya :
1. Buka Microsoft Visual Studio anda dengan cara pilih Start >> All Program >> Microsoft Visual Studio 2008 ini versi VB Net yang saya gunakan.
2. Setelah terbuka jendela Start Up kemudian pilih Create Project buat nama project anda sesuai keinginan anda dan disini saya buat proInputBarang simpan project anda sesuai keinginan anda dan usahakan satu directory dengan database anda kemudian pilih OK


3. Sebelum memulai berkoding ria sebelumnya kita buat dulu databasenya disini kita pake database Access. Pilih Start >> All Program >> Miscrosoft Office >> Miscrosoft Office Access 2007 ini versi yang saya gunakan. Buat nama database misalnya dbBarang dan jangan lupa simpan dengan ekstensi .mdb biar mudah konfigurasinya caranya pilih icon folder disamping nama database kemudian pada Save As Type pilih Miscrosoft Access Database (2000 format) (*.mdb) lalu pilih Ok kemudian pilih Create..

4. Kemudian buat sebuah tabel dengan nama tblBarang buat 5 field dengan kriteria sebagai berikut :

5. Setelah selesai membuat database beserta tabelnya selanjutnya kita masuk lagi ke project VB Net kita, buat beberapa control seperti label, textbox , button dan DataGridView desain seperti tampilan dibawah ini :

6. Pilih menu Project >> proInputbarangproperties , setelah muncul jendela properties maka pilih pada bagian Settings, kemudian buat konfigurasi seperti gambar di bawah ini :

untuk field value buat konfigurasinya seperti gambar berikut :

7. Kembali ke form design kemudian ketikkan perintah dibawah ini :
Imports System.Data.OleDb
Public Class Form1
Private Sub TampilData()
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using Adp As New OleDbDataAdapter(“Select * From tblBarang”, Conn)
Conn.Open()
Dim Tabel As New DataTable
Adp.Fill(Tabel)
DataGridView1.DataSource = Tabel
End Using
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Tambah As String = “Insert Into tblBarang Values(‘” & TextBox1.Text & “‘,’” & TextBox2.Text & “‘,’” & TextBox3.Text & “‘,’” & TextBox4.Text & “‘,’” & TextBox5.Text & “‘)”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Tambah, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil Ditambah”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Ubah As String = “Update tblBarang Set NamaBarang=’” & TextBox2.Text & “‘, HargaBeli=’” & TextBox3.Text & “‘,HargaJual=’” & TextBox4.Text & “‘,Jumlah=’” & TextBox5.Text & “‘ Where KodeBarang=’” & TextBox1.Text & “‘”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Ubah, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil DiUbah”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Hapus As String = “Delete From tblBarang Where KodeBarang=’” & TextBox1.Text & “‘”
Try
Using Conn As New OleDbConnection(My.Settings.ConnStr)
Using cmd As New OleDbCommand(Hapus, Conn)
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox(“Data Berhasil Dihapus”, MsgBoxStyle.Information, “Perhatian”)
TampilData()
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TampilData()
End Sub
End Class
selesai sudah program yang sudah kita buat sekarang coba anda jalankan kalau benar langkah-langkah yang anda kerjakan maka tampilan program anda akan seperti ini :

Maaf kalau tulisan saya masih berantakan yach…karena kejar tayang makanya seperti ini tapi yang penting artikel ini benar adanya…
yang mau download source codenya berikut linknya :
password : parno
http://www.4shared.com/file/4BRvi9tl/proInputBarang.html
Selamat Mencoba…
Read More >>

Download WPE PRO All type

Temen-temen, bagi yang susah untuk mencari WPE PRO untuk ngutak atik Pico kalian, bisa dengan cepat mencarinya disini. Untuk download klik disini. ☺
Read More >>

Tuesday 11 September 2012

Trik Tips Download File di FreakShare downloader



imageFreakShare – salah satu File Sharing yang mirip dengan Rapidshare, Megaupload, EasyShare, Enterupload, Mediafire dan lainnya. Tentunya, bagi mereka yang sering download file seperti video, audio (mp3), ataupun ebook pdf, saya yakin sudah tidak asing lagi dengan nama ini “FreakShare”.
Freakshare juga menyediakan premium account seperti rapisdhare, megaupload, easy-share, dan lainnya. Tapi semua itu butuh uang untuk mendapatkan premium account. Tenang, kini dengan software Mipony, anda dapat download file di freakshare dengan mudah dan high speed.
Langsung aja ya, nih trik download yang aku maksud: Trik Download File di FreakShare:
1. Download software Mipony, disini lalu install software mipony ke komputer anda.
2. Jalankan program mipony lalu copy URL yang anda inginkan maka mipony akan deteksi langsung link yang anda copy tadi.
3. Tekan tombol Download, jika diminta untuk masukkan captcha – anda harus masukkan captcha tersebut lalu tunggu sampai selesai. Perhatikan snapshot dibawah ini:
image
image
Read More >>

Wednesday 5 September 2012

Setting Filezilla

Sering kali klien kami kesulitan ketika melakukan upload ke server menggunakan software FTP client, kali ini Management AtriumHosting akan memberikan tutorial cara yang benar setting menggunakan Filezilla.
Bagi yang belum memiliki software ini silahkan download disini
Kalo sudah di download jgn lupa di install ya, cara install nya tidak sulit kok … ikutin aja petujuknya ..
Untuk Filezilla terbaru versi 3.3.5.1 memerlukan cara khusus untuk melakukan akses FTP dengan cara ini, bila server hosting anda tidak menggunakan firewall security, abaikan saja ini. Namun sangat kecil kemungkinan sebuah server hosting tanpa firewall karena akan beresiko.
1. Silahkan Buka Filezilla anda…  File – Site Manager

2. Akan muncul tampilan di bawah ini, jgn lupa berikan nama koneksi anda sesuai web yang anda gunakan :

Isikan namanya:

3. Isikan Data Account Hosting Cpanel anda seperti gambar di bawah ini :

4. Ini langkah yg penting untuk anda , masuk ke menu Transfer Setting dan pilih Pasive Mode, krn secara default akan terpilih active mode.

5. Silahkan connect kan FTP anda , selamat ber upload ria :)

Read More >>

Cara Mengekstrak File Zip Di FTP Manager Secara Cepat Menggunakan Script PHP

Selamat sore sahabat, dan seperti biasanya saya selalu berharap sahabat semua terus bahagia sejahtera :P .
Pada kesempatan kali ini saya ingin membahas tentang FTP atau lebih spesifiknya File manager, mungkin sahabat blogger banyak yang sudah mengerti dengan apa yang disebut FTP manager atau file manager yang dapat di akses melalui FTP client, dan sahabat yang menggunkan Hosting / CMS self hosted sudah tidak asing lagi dengan yang namanya File Manager .
Sedikit saja saya bahas tentang FTP , Untuk sebuah blog yang menggunakan Hosting atau bisa dibilang menggunakan CMS selfhost ataupun yang dapat mengakses dan mengunduh file nya di sebuah penyimpanan untuk konten dari file – file  untuk web / blog seorang webmaster / blogger.
Umumnya dan pasti malah sebuah web hosting yang menyuguhkan tempat untuk mengelola file bagi blogger baik itu gratisan atau berbayar pastilah mempunyai tempat penyimpanan dari file para blogger , untuk menyimpan seluruh file  hasil upload ataupun file yang telah ditentukan oleh hosting tersebut dengan menyediakan File Manager dan walaupun tidak ada pasti Hosting tersebut menyediakan Akun FTP untuk mengakses isi dari File yang tersimpan ataupun nati akan mengunggah file blogger tersebut secara global..?? global maksudnya gimana..??
Gini walaupun kita mempunyai penyimpanan berkas / file di hosting , kita masih bisa mengaksesnya bukan hanya lewat Cpanel atau situs dari hosting tersebut. Melainkan dapat pula diakses melalui FTP Manager seperti Filezilla,SmartFTP dll. dan bahkan dapat diakses secara Online melalui situs penyedia FTP manager atau sering disebut dengan WEB-FTP seperti net2ftp.com 01ftp.com dll.
Jadi kalau mau upload file – setting CHMOD ( permission file ), download dsb. tidak perlu untuk masuk di halaman akun hosting dan masuk di halaman File Manager Hosting tersebut. Cukup memakai FTP manager yang diinstall di Komputer kita ataupun secara online.
Bah walaupun penjelasan saya cukup belibet dan gak karuan semoga sahabat setidaknya sedikit paham lah :D hehehe. eh iya File Manager / FTP ini sepertinya tidak berlaku untuk Kaum pengguna Hosting blogspot/ blogger. Karena file penyimpanan dari Web / blog yang dikelola dengan Blogger adalah berupa File Redirewct yang tersimpan apada penyimpanan umum, sepertinya tidak bisa diaklses melalui WEB-FTP. :)

Kembali ke pokok masalah, Dalam mengupload sebuah file atau banyak file adalah sesuatu yang wajar bagi para  blogger , akan tetapi misalnya kalau kita aklan mengupload banyak file ke dalam sebuah directory Web / Blog kita pasti akan membutuhkan waktu yang lama walaupun file tersebut berukuran kecil – kecil di bandingkan 1 file yang berukuran sama tapi berisi banyak file tersebut, sulit ngejelasinnya.
kita ambil contoh saja :
  • saya akan mengupload sebuah CMS selfhost WordPress , dalam bentuk arsip ( .zip ) dan mengupload dari kumpulan CMS wordpress yang sudah diekstract. Dan secara garis besarnya apabila kita mengupload 1 file arsip wordpress akan jauh lebih cepat dibandingkan mengupload hasil ekstak dari arsip wordpress tersebut.
  • Kelemahan wordpress dalam bentuk arsip : untuk menginstallnya kita harus mengekstrak / unzip dulu file arsip dari CMS wordpress tersebut , baru file daopat terinstall dan dijalankan.
  • mengupload hasil dari ekstrak arsip  wordpress : Langsung bisa dijalankan karena berupa file file document web .

akan tetapi kita mungkin sudah tau untuk mengekstrak ( bagi sebagian blogger ) file arsip tersebut membutuhkan waktu yang lebih sedangkan kita sebagai blogger dituntut untuk bisa lebih bertindak cepat dan mengetahui teknologi yang memudahkan kita :P ( bahasanya sungguh terlalu ).
Apabila kita mengekstrak melalui FTP manager pasti tidak akan bisa , karena di FTP Manager seperti FileZilla tidak ada tools untuk mengeksatrak sebuah File Arsip ( .zip ),
Dan apabila kita mengekstrak melalui WEB – FTP seperti di Net2ftp.com pasti kita membutuhkan waktu yang lebih dan wah.. menyulitkan dan membuat tidak sabaran.
Kenapa kita tidak memakai cara pintas?? hehehe.. pertama upload arsip ( otomatis lebih cepat ) dan yang ke-2 mengekstrak arsip dengan lebih cepat tanpa masuk di File Manager. :)
Lalu gimana caranya..??

Saya tadi berseluncur di blognya orang luar dan menemukan sebuah script PHP yang termasuk tergolong lama juga tampilannya juga terkesan sangatlah biasa tapi hasilnya lumyan :P .
Namanya “PHP Unzipper” , langsung saja ke tutorial atau overview nya yah :P

  1. Download File “PHP Unzipper” lalu extract , dan upload di web server di file manager sahabat. ( disarankan membuat direktori baru dan upload di direktoru baru tersebut)CHMOD Setting
  2. Lalu Setting CHMOD Index.PHP ke 777 , seperti gambar diatas settingnya ( setting lewat filezilla juga boleh ) :P
  3. Nah setelah itu buka halaman dimana shabat meletakkan file php unzipper tersebut , sebgai contoh apabila sahabat meletakkan di direktoy baru “ftp” , maka akses menggunakan http://domainsahabat.com/ftp
    maka kan tampak halaman seperti ini :  php unzipper
  4. lalu isikan username dan password sahabat,  setelah itu klik register. , maka akan tampil halaman seperti dibawah ini :
  5. login now
  6. Upload file arsipnya dulu taruh di folder / direktori  yang akan diekstraksi.upload file zip
  7.  Registrasi telah sukses , maka klik login , setelah login sahabat akan dibawa halaman tempat dimana struktur direktori – direktori di file manager webserver sahabat.Unzip
  8. Setalah itu telusur dah dimana letak file arsip sahabat :P , dan klik Unzip pada file yang ingin diekstrak. ( sebagai catatan, file akan terekstrak di direktori yang sama dengan letak file arsip. )
Dan akhir kata beres dah pekerjaan :D hehe.. tenang saja sahabat file ini , tidak mengandung backdoor, hacking dan sebagainya karena saya tidak bisa hacking :P .. heheh dan udah dites ma temen kalau file .php ini cuman perintah extractor saja. so let’s do it dah buat mempermudah :P
langsung saja download dah :D
klik dibawah ini :
Download Unzipper

Read More >>