Kamis, 01 Februari 2018
Menyimpan Data dari SQL Server menjadi CSV
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
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
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
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
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 :
Jalankan program dan hasil seperti 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
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
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
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.
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.
Langganan:
Postingan (Atom)