Kamis, 01 Februari 2018

Menyimpan Data dari SQL Server menjadi CSV

Tidak ada komentar:
Bagi seorang Programer maupun Database Administrator terkadang sering diminta oleh user ataupun atasan di kantor untuk memberikan data yang diminta oleh keduanya. Apakah data transaksi penjualan maupun data - data umum seperti data pelanggan, data barang dan lain sebagainya. Kalau anda menggunakan database SQL Server maka anda bisa memanfaatkan fungsi Save As pada software Microsoft SQL Server Management Studio. Adapun caranya yaitu dengan membuat query pemanggilan terhadap data yang akan diminta kemudian eksekusi. Akan muncul hasil seperti berikut pada Results Pane
Kemudian klik kanan pada baris data pilih Save As
File yang disimpan akan berformat .csv dan untuk membuka file tersebut silahkan lihat disini : http://www.salamilmu.com/2016/11/melihat-isi-data-dari-file-berformat.html
Berikut hasil export data ke format .csv

Rabu, 31 Januari 2018

Menggabungkan Isi Beberapa Tabel Menjadi Satu Pada SQL Server

Tidak ada komentar:
Pada SQL Server terdapat perintah yang berfungsi untuk menggabungkan beberapa isi tabel menjadi satu, perintah tersebut adalah Union. Penggabungan tersebut menggunakan query disertai fungsi Union dengan syarat field - field yang terkandung pada tabel - tabel yang akan digabung harus memiliki nama yang sama, jika tidak maka perintah tersebut gagal dijalankan. Namun jika terdapat perbedaan nama pada tabel - tabel yang ada, maka anda harus menggunakan fungsi AS atau alias untuk field  - field yang akan digabung. Sebagai contoh saya memiliki dua buah tabel yaitu tabel zona1 dan tabel zona2, dimana isi dari tabel zona1 adalah sebagai berikut :
SELECT * FROM zona1

sedangkan isi dari tabel zona2 adalah sebagai berikut :
SELECT * FROM zona2

Pada MS SQL Server Management Studio ketikkan query berikut :
SELECT * FROM zona1
UNION
SELECT * FROM zona2
Kemudian ekseskusi query tersebut dengan mengklik tombol Execute atau tekan tombol F5 pada keyboard, maka hasilnya bisa dilihat pada gambar dibawah :
Anda juga bisa menggunakan Clause Where untuk memfilter data yang diinginkan dengan membuat Sub Query. Semoga bermanfaat.

Senin, 29 Januari 2018

Export Data ke Excel dari DataGridView dengan Visual Basic .Net

Tidak ada komentar:
Terkadang setiap pekerjaan kantor tidak bisa lepas dari yang namanya dokumen Excel. Hampir semua pengguna komputer pasti menggunakan Microsoft Office Excel untuk membuat beragam dokumen, baik untuk pembuatan laporan, database, perhitungan dan lain sebagainya. Tentunya bagi anda yang bergelut di dunia pemrograman, harus mempu memenuhi kebutuhan dari user yang ada dikantor anda bekerja maupun pengguna program anda terkhusus masalah export data dari database ke format dokumen excel. Berikut ini saya tunjukkan cara mengeksport data dari komponen DataGridView ke dokumen excel menggunakan Visual Basic .Net. Buat sebuah project dengan nama ExportDataToExcel.
Desain form seperti dibawah ini
Klik dua kali pada form kemudian ketikkan listing kode berikut
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim conn As New OleDb.OleDbConnection(My.Settings.Koneksi)
    conn.Open()
    Dim adp As New OleDb.OleDbDataAdapter("Select * From Customers", conn)
    Dim dt As New DataTable
    adp.Fill(dt)
    Me.datagrid.DataSource = dt
End Sub
Klik dua kali pada tombol Export Data dan ketikkan listing kode berikut
   Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
        Dim sfd As New SaveFileDialog
        sfd.Filter = "Microsoft Excel File (*.xls)|*.xls"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Me.datagrid.Rows.Count > 0 Then
                Try
                    Dim dt As New DataTable()
                    For Each col As DataGridViewColumn In Me.datagrid.Columns
                        dt.Columns.Add(col.HeaderText, col.ValueType)
                    Next
                    Dim count As Integer = 0
                    For Each row As DataGridViewRow In Me.datagrid.Rows
                        If count < Me.datagrid.Rows.Count - 1 Then
                            dt.Rows.Add()
                            For Each cell As DataGridViewCell In row.Cells
                                dt.Rows(dt.Rows.Count - 1)(cell.ColumnIndex) = cell.Value.ToString()
                            Next
                        End If
                        count += 1
                    Next

                    Dim wr As New IO.StreamWriter(sfd.FileName)

                    For i As Integer = 0 To dt.Columns.Count - 1
                        wr.Write(dt.Columns(i).ToString().ToUpper() & vbTab)
                    Next
                    wr.WriteLine()

                    For i As Integer = 0 To (dt.Rows.Count) - 1
                        For j As Integer = 0 To dt.Columns.Count - 1
                            If dt.Rows(i)(j) IsNot Nothing Then
                                wr.Write(Convert.ToString(dt.Rows(i)(j)) & vbTab)
                            Else
                                wr.Write(vbTab)
                            End If
                        Next
                        wr.WriteLine()
                    Next
                    wr.Close()
                    MsgBox("Data berhasil diexport ke excel!", MsgBoxStyle.Information, "Information")
                Catch ex As Exception
                    Throw ex
                End Try
            End If
        End If
    End Sub
Mulai jalankan project anda.
Klik tombol Export Data ketikkan nama dokumen file excel yang akan disimpan, sebagai contoh saya buat Data Customer kemudian pilih OK
Akan muncul pesan Data berhasil diexport ke excel!

Cari dan buka file excel hasil export tadi dan tampilannya seperti dibawah ini
Silahkan anda kembangkan lagi dengan menambahkan warna pada kolom header dan lain sebagainya, semoga bermanfaat.

Jumat, 26 Januari 2018

Menampilkan Daftar Tabel dari Database Access dengan Visual Basic .Net

Tidak ada komentar:
Mungkin tips ini berguna bagi anda yang menggunakan database Access untuk membuat sebuah sistem, karena tutorial kali ini saya ingin menunjukkan pada anda tips untuk menampilkan daftar tabel yang ada pada database Access menggunakan VB.Net. Baik langsung saja buka Visual Basic .Net anda, buat sebuah project dengan nama DaftarTabel. Disini saya anggap anda sudah memiliki database Access yang akan digunakan pada project yang akan dibuat. Desain form seperti berikut :
Klik dua kali pada form dan ketikkan listing berikut pada event Form1_Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim userTables As DataTable = Nothing
    Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Northwind.mdb"
    Dim restrictions() As String = New String(3) {}
    restrictions(3) = "Table"
    conn.Open()
    userTables = conn.GetSchema("Tables", restrictions)
    conn.Close()
    Me.cboTabel.Items.Clear()
    
    Dim i As Integer
    For i = 0 To userTables.Rows.Count - 1 Step i + 1
        Me.cboTabel.Items.Add(userTables.Rows(i)(2).ToString())
    Next
End Sub
Jalankan program dan hasilnya bisa dilihat seperti dibawah ini
Trik ini bisa anda kembangkan untuk membuat sebuah program Management Query khusus database Access agar memudahkan ketika membuat query.

Rabu, 24 Januari 2018

Mengecek Informasi Sistem Operasi Windows dengan Visual Basic .Net

Tidak ada komentar:
Dengan bahasa pemrograman Visual Basic .Net kita bisa melihat beberapa informasi dari sistem operasi windows yang kita pakai, mulai dari nama produk, versi, processor bit dan lain - lain. Sebelumnya silahkan download file library yang berisi class - class yang akan digunakan pada program berikut linknya https://www.4shared.com/s/fGAOI3Zqqei.

Sekarang buka VB.Net dan buat sebuah project dengan nama OSInfo. Desain form menjadi seperti berikut :
Tambahkan komponen Operating.System.Info.dll yang sudah di download dengan cara klik kanan pada panel Solution Explorer -> Nama Project -> Add Reference...
Pilih tab Browse kemudian cari dimana file komponen Operating.System.Info.dll anda simpan lalu pilih OK
Klik dua kali pada form kemudian ketikkan listing berikut :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblName.Text = JCS.OSVersionInfo.Name
        Me.lblEdition.Text = JCS.OSVersionInfo.Edition
        Me.lblServicePack.Text = JCS.OSVersionInfo.ServicePack
        Me.lblVersion.Text = JCS.OSVersionInfo.VersionString
        Me.lblProcessorBits.Text = String.Format("{0}", JCS.OSVersionInfo.ProcessorBits)
        Me.lblOSBits.Text = String.Format("{0}", JCS.OSVersionInfo.OSBits)
        Me.lblProgramBits.Text = String.Format("{0}", JCS.OSVersionInfo.ProgramBits)
End Sub
Klik dua kali pada tombol OK dan isikan listing berikut :
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
End Sub
End Sub

Jalankan program dan hasil seperti berikut
Trik diatas mungkin bisa digunakan untuk mengetahui informasi dan spesifikasi dari komputer yang ada pada kantor, kampus ataupun sekolah.

Kamis, 11 Januari 2018

Implementasi Kriptografi Menggunakan Algoritma Caesar Chiper dan Visual Basic .Net

Tidak ada komentar:
Pada dunia kriptografi terdapat jenis dan ragam algoritma yang dapat digunakan untuk mengenkripsi dan mendeskripsikan ulang data yang dianggap rahasia. Dalam kriptografi, sandi Caesar, atau sandi geser, kode Caesar atau Geseran Caesar adalah salah satu teknik enkripsi paling sederhana dan paling terkenal. Sandi ini termasuk sandi substitusi dimana setiap huruf pada teks terang (plaintext) digantikan oleh huruf lain yang memiliki selisih posisi tertentu dalam alfabet. Misalnya, jika menggunakan geseran 3, W akan menjadi Z, I menjadi L, dan K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pada teks tersandi. Nama Caesar diambil dari Julius Caesar, jenderal, konsul, dan diktator Romawi yang menggunakan sandi ini untuk berkomunikasi dengan para panglimanya.

Diatas mungkin sedikit penjelasan tentang algoritma Caesar Chiper. Kali ini saya akan membuat contoh penggunaan kriptografi menggunakan algoritma Caesar Chiper dan Visual Basic. Net. Buat sebuah project dengan nama CaesarChiper dan desai form menjadi seperti dibawah ini
Buat dua sebuah routin function yang masing - masing berfungsi untuk mengenkripsi dan mendeskripsikan teks.

a. Fungsi Enskripsi
     Public Function Encrypt(ByVal PlainText As String, ByVal Key As Integer) As String
        Dim PlainChar() As Char = PlainText.ToCharArray()
        Dim Ascii(PlainChar.Length) As Integer

        For Count As Integer = 0 To PlainChar.Length - 1
            Ascii(Count) = Asc(PlainChar(Count))
            If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
                Ascii(Count) = ((Ascii(Count) - 65 + Key) Mod 26) + 65
            ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
                Ascii(Count) = ((Ascii(Count) - 97 + Key) Mod 26) + 97
            End If
            PlainChar(Count) = Chr(Ascii(Count))
        Next

        Return PlainChar
    End Function

b. Fungsi Deskripsi
     Public Function Decrypt(ByVal CipherText As String, ByVal Key As Integer) As String
        Dim CipherChar() As Char = CipherText.ToCharArray()
        Dim Ascii(CipherChar.Length) As Integer

        For Count As Integer = 0 To CipherChar.Length - 1
            Ascii(Count) = Asc(CipherChar(Count))
            If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
                Ascii(Count) = ((Ascii(Count) - 65 - (Key Mod 26) + 26)) Mod 26 + 65
            ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
                Ascii(Count) = (((Ascii(Count) - 97 - (Key Mod 26) + 26)) Mod 26) + 97
            End If
            CipherChar(Count) = Chr(Ascii(Count))
        Next

        Return CipherChar
    End Function

Klik dua kali pada tombol Enkripsi lalu ketikkan kode berikut :
    Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
        If txtTeks.Text.Trim = "" Or txtKey.Text.Trim = "" Then
            MessageBox.Show("Masukkan teks dan kunci untuk dienkripsi!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Try
                txtHasil.Text = Encrypt(txtTeks.Text.Trim, txtKey.Text.Trim)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

Klik dua kali pada tombol Deskripsi lalu ketikkan kode berikut :
    Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
        If txtHasil.Text.Trim = "" Or txtKey.Text.Trim = "" Then
            MessageBox.Show("Masukkan teks dan kunci untuk dideskripsi!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Try
                txtHasil.Text = Decrypt(txtTeks.Text.Trim, txtKey.Text.Trim)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

Jalankan program dan masukkan contoh kata maupun kalimat kedalam kotak teks. Isi dari kunci sebatas angka tidak bisa huruf maupun kombinasi angka dan huruf. Klik tombol Enkripsi maka hasilnya seperti berikut
Untuk mengembalikan teks hasil enkripsi tadi, salin teks dari kotak Hasil dan tempelkan ke kotak Teks kemudian klik tombol Deskripsi dan hasilnya bisa dilihat pada gambar berikut
Metode ini bisa diterapkan pada model enkripsi password login pada sistem anda. Namun algoritma ini masih sederhana sehingga perlu pengembangan lebih lanjut agar lebih sulit dipecahkan ketika ada pihak - pihak tidak bertanggung jawab yang ingin mendeskripsi password anda secara ilegal.

Jumat, 15 Desember 2017

Mengubah Karakter Field pada SQL Server

Tidak ada komentar:
Pada SQL Server terdapat banyak fungsi dan manfaatnya. Salah satunya adalah fungsi REPLACE yang berfungsi untuk mengubah karakter maupun kata dalam sebuah field sesuai yang kita inginkan. Saya ingin mengubah kata 'boxes' pada field QuantityPerUnit menjadi 'dus', perhatikan contoh dibawah ini :
SELECT ProductName,UnitPrice,QuantityPerUnit,
REPLACE(QuantityPerUnit,'boxes','dus') AS Change
FROM [products] 
WHERE QuantityPerUnit like '%boxes%'
Ketika saya jalankan perintah diatas maka secara otomatis akan mengubah karakter ataupun kata yang akan diubah, namun hasilnya bukanlah mengubah langsung pada field yang dimaksud melainkan sifatnya sementara. Berikut hasilnya
Anda bisa menyesuaikan fungsi diatas sesuai dengan case yang terdapat pada sistem anda. Selamat mencoba.

Senin, 04 Desember 2017

Membuat Fungsi Pencarian Data dengan Visual Basic .Net

1 komentar:
Sebuah sistem hendaknya dibangun dengan konsep User Friendly atau mudah digunakan. Aktifitas yang biasa dilakukan pengguna adalah mencari data - data yang telah lalu dengan tujuan mungkin untuk analisa data dan sebagainya. Untuk menambahkan fungsi pencarian data pada program ikuti langkah - langkah dibawah ini :

1. Buat sebuah projek pada Visual Basic .Net dengan nama Pencarian.sln.
2. Desain antar muka seperti dibawah ini.
3. Buat sebuah SubRoutin dengan nama Pencarian, kemudian ketikkan listing berikut
Private Sub Pencarian()
  Dim CnnDb As New OleDbConnection(My.Settings.Koneksi)
  CnnDb.Open()

  Dim str As String = "SELECT Orders.OrderID, Orders.OrderDate,Customers.CompanyName," & _
  "Products.ProductName, [Order Details].UnitPrice, [Order Details].Quantity " & _
  "FROM Products INNER JOIN ((Customers INNER JOIN Orders " & _
  "ON Customers.CustomerID = Orders.CustomerID) INNER JOIN [Order Details] " & _
  "ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID " & _
  "WHERE (((Customers.CompanyName) Like '%" & Me.txtCari.Text &  "%'))"
  Dim adp As New OleDbDataAdapter(str, CnnDb)
  Dim dt As New DataTable
  adp.Fill(dt)
  Me.grid.DataSource = dt
End Sub

4. Klik dua kali pada kontrol textbox dan ketikkan SubRoutin Pencarian yang telah dibuat tadi.

Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged
   Me.Pencarian()
End Sub

ketikkan juga listing dibawah ini ke dalam routin event klik pada tombol Clear

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
   Me.txtCari.Text = ""
   Me.Pencarian()
End Sub
5. Jalankan program kemudian ketikkan keyword atau kata kunci yang akan dicari.
Pada gambar diatas saya masukkan kata kunci 'carnes' sehingga data yang muncul hanyalah data yang berisi kata 'carnes' berdasarkan pencarian pada field CompanyName. Anda bisa mengganti parameter pencarian berdasarkan field yang diinginkan atau bisa juga dengan kombinasi semua field yang ada. Demikian tutorial singkat kali ini dan semoga membantu.