Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP I DASAR PEMROGRAMAN DATA BASE BERBASIS WINDOW (Study Kasus Access 2003) I.
Pengantar Mungkin sebagian besar pembaca artikel ini satu pendapat dengan saya. buku – buku tentang VB.Net yang beredar pada saat ini kurang memuaskan. Rata-rata
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
banyak menghabiskan kertas hanya dengan menjelaskan teori dari .Net. Framework. Sehingga kita sebagai pembaca lebih cepat bosan dengan membaca buku seperti itu (Sebelumnya mohon maaf kepada para penulis buku .Net, tapi itulah kenyataan yang saya alami). Oleh karena itu saya ingin membagikan ilmu yang saya miliki kepada para pembaca. Artikel ini saya buat berseri, belum tau lagi sampai berapa seri, doain aja biar tetap bisa nulis. Insya Allah dengan berjalannya waktu mudah-mudahan ilmu yang saya miliki juga bertambah, sehingga isi dari artikel-artikel yang akan saya tulis semakin bagus dan bermanfaat. Artikel ini berisi tentang contoh-contoh program dan fungsi yang ada pada source code. Dan program yang saya berikan berstandar basis data. Jadi para pemula yang belum sama sekali kenal VB.Net hendaknya membaca teorinya di buku-buku tentang pemrograman Vb.Net. Jika program yang diberikan tidak jalan, silahkan hubungi ke email saya. II.
Pada saat ini sudah sangat dipastikan bahwa pemrograman database memang lagi marak-maraknya. Karena sesuai dengan kebutuhan, setiap informasi yang akan diproses sebaiknya disimpan di sebuah basis data (Database). Pada artikel yang saya buat ini, untuk tingkat awal kita menggunakan Access sebagai penampung data. Dalam artikel yang saya buat ini, saya tidak membuat program untuk kasus yang besar, tetapi program-program itu saya pecah, sehingga pembaca juga dapat merasa puas akan artikel ini. Yang jelas isi dari materi yang ada pada artikel ini semua hampir berkaitan dengan pemrograman Database.
III. A TIME TO MAKE PROGRAM 3.1 Desain Form
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Gambar Flash Form
Gambar Form Login
Untuk membuat program seperti diatas, mari ikuti langkah-langkah dibawah ini. Sebelum kita masuk dalam pembuatan program, terlebih dahulu kita buat database pada Access. Diasumsikan bahwa pembaca sudah mengetahui pembuatan database dan table pada access 2003. Buatlah database dengan nama “Coba.mdb” & buat table pada file Coba.mdb dengan nama “Users” dan “TbUsaha”. Seperti gambar dibawah ini.
Gambar Desain Table Users
Gambar Desain Table TbUsaha
Setelah selesai dalam pembuatan database, sekarang kita masuk dalam pembuatan program.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Buka Aplikasi Visual Studio.Net, dan pilih New Project. Ketikan nama project sesuai dengan keinginan anda. Simpan di drive pada PC anda (Untuk drive bebas juga, sekarang jamannya hak asasi manusia, tidak ada pemaksaan). Setelah itu copy file Coba.mdb ke dalam Folder “Bin” dimana aplikasi anda disimpan. Contoh, anda menyimpan aplikasi di “D:\NamaAplikasi”. Perluas folder NamaAplikasi, dan letakkan file Coba.mdb ke dalam folder Bin yang ada di dalam folder NamaAplikasi. Ngerti ga ??????????????????????????????????????????? 3.1.1 Membuat StartUp Form. Untuk pertama kali, .Net akan memberikan Default sebuah form, dengan nama Form1. Sekarang tugas kita adalah merubah tampilan Form1 tersebut menjadi seperti tampilan Flash Form seperti diatas.
Ubah properties Form1 seperti dibawah ini. BackColor
White
FormBorderStyle
FixedToolWindow
Text
(Kosongkan)
Name
StartUp
StartPosition
CenterScreen
ControlBox
False
ShowInTaskbar
False
Setelah selesai melakukan perubahan Form1 seperti diatas. Sekarang kita tambah aksesoris pada form StartUp. Tambahkan dua (2) buah label, 1 ProgressBar dan 1 buah PictureBox. Sehingga tampilan seperti pada gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Desain Splash Form
Untuk gambar diatas silahkan ganti dengan gambar yang anda suka dan jika anda tidak suka dengan tampilan ini, anda dapat merubah sesuai dengan keinginan anda. Setelah selesai mendesain form, tambahkan sebuah timer dan beri nama Splash_Timer. 3.1.2 Membuat Login Form. Tambahkan sebuah Form ke dalam aplikasi. Caranya Klik Kanan Pada Project anda Pilih Add>Add Windows Form. Ganti properties Form baru tersebut seperti dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
FormBorderStyle
Fixed3D
Text
Login
Name
FrmLogin
StartPosition
CenterScreen
ControlBox
False
ShowInTaskbar
False
Tambahkan 2 buah label, 2 buah TextBox dan 2 buah Button Ubah properties dari masing-masing component seperti dibawah ini. Label 1 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Text
Username
Label 2 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Text
Password
Textbox 1 BorderStyle
Fixed3D
Name
txtUser
Textbox 2 BorderStyle
Fixed3D
Name
txtPassword
PasswordChar
*
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Button1 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Flatstyle
Flat
Text
Login
Name
btnlogin
Button2 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Flatstyle
Flat
Text
Cancel
Name
btnbatal
Setelah selesai merubah properties seperti di atas, susun dan disain form seperti dibawah ini.
Gambar Desain Form Login
3.1.3 Membuat Menu Utama Sekarang kita akan membuat Form Utama, tapi untuk sementara jangan di modifikasi. Untuk saat ini kita ganti Form Name menjadi MainMenu
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
3.2 Source Code 3.2.1
Source Code Form Splash
Setelah kita selesai mendesain 2 buah form, sekarang waktunya kita bermain dengan source code. Pada Form splash, klik 2 kali (Double Click) component Splash_Timer . Dan ketikkan listing seperti dibawah ini. Private Sub Splash_Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Splash_Timer.Tick Dim cur As New frmLogin ProgressBar1.Value += 4 If ProgressBar1.Value = 100 Then Splash_Timer.Dispose() Me.Visible = False cur.Show() End If End Sub
Note : anda dapat mencoba mengubah nilai value pada progressbar. Dengan menaikkan atau mengurangi nilai value maka anda melihat perubahan progessbar berjalan, apakah semakin cepat atau lambat. Itu semua tergantung pada anda. Coba jalankan program, gmana? apakah sudah sesuai dengan yang anda inginkan ???????? 3.2.2
Source Code Form Login
Sebelum kita mulai membuat listing pada form login, terlebih dahulu kita membuat koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Coba_Data.mdb;Jet OLEDB:Database Password=90210; ") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace
Note :Dengan membuat koneksi menggunakan Class, untuk setiap proses yang berhubungan dengan database anda cukup dengan memanggil nama Class tersebut, dengan mendeklarasikan Class tersebut. Contoh : Dim MyConnection As New AccessData.DatabaseConnection Setelah selesai membuat Class, selanjutnya kita akan membuat module untuk menyimpan Variable global yang sering kita gunakan dalam pembuatan program. Buat satu module caranya sama dengan membuat Class, dan beri nama “module.vb”. (Klik kanan Folder “AccessData”>Add>Add Module). Ketikan listing di bawah ini pada module yang baru anda buat. Imports System.Data.OleDb Module _Module Public cur As New Form Public Msg As Integer Public intResponse As Integer Public objCommand As OleDbCommand Public objDataAdapter As OleDbDataAdapter Public objDataReader As OleDbDataReader Public StrSQL as String Public Username, Password, mProcess As String Public objDataSet As New DataSet Public objDataTable As New DataTable End Module
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah selesai sekarang kita kembali pada Form Login. Untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.OleDb
Note : Fungsi dari listing diatas adalah mengambil (imports) fungsi yang ada pada .Net. jika anda menggunakan SQL Server sebagai database anda tinggal menganti “OleDb” menjadi “SqlClient”. Fungsi diatas wajib kita ketik untuk form yang menggunakan OleDb. Dan buat variable global untuk form Login ini, seperti dibawah ini. Dim f_utama As New MainMenu Dim MyConnection As New AccessData.DatabaseConnection
Ketikkan listing ini dibawah
Inherits System.Windows.Forms.Form
Selanjutnya kita buat listing untuk mencari apakah Username ada pada table Users Sub CheckUsers() objDataTable.Clear() StrSQL = ("SELECT * FROM [Users] WHERE [UserName] = '" & Trim(txtuser.Text) & "' ") objCommand = New OleDbCommand objCommand.Connection = Connect objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_user") objDataTable = objDataSet.Tables("MDT_user") Connect.Close() End Sub
Fungsi dari listing adalah, mencari Username apakah ada pada table Users. Syntax SQL
("SELECT
*
FROM
[Users]
WHERE
[UserName]
=
'"
&
Trim(txtuser.Text) & "' "), Maksudnya adalah menampilkan data user dengan
criteria Username. Dan jumlah banyaknya data akan disimpan pada ObjDataTable. Kemudian ketikkan listing untuk menampilkan data users (Username,Password).
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub Find_User() objCommand = MyConnection.open.CreateCommand objCommand.CommandText = ("Select [UserName],[Password] from [Users] where [UserName]='" & Trim(txtuser.Text) + "' ") objDataReader = objCommand.ExecuteReader objDataReader.Read Username = objDataReader.Item("Username") Password = objDataReader.Item("Password") MyConnection.close() End Sub
Untuk sekilas sepertinya listing antara Sub CheckUser sama dengan Sub Find_User. Tapi pada kenyataannya fungsi dari kedua listing ini berbeda. Untuk Sub Find_User disini kita menampilkan value dari username & Password. Mungkin anda pasti merasa bingung, dari mana ObjCommand, ObjDatareader, username, password. Mungkin kalau anda teliti, variable tersebut telah kita letakkan pada Module.vb. Kita tidak perlu membuat variable pada setiap form, karena variable global yang kita buat pada Modul dapat diakses oleh setiap Form. Bayangkan jika kita mempunyai 100 Form, maka pada setiap Form kita harus mendeklarasikan variable yang sering kita gunakan seperti diatas. Jika anda sudah mengerti dengan yang saya maksud, mari lanjutkan pelajaran kita. Sekarang Double Click Button Login. Ketikan Listing seperti dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click ‘untuk mengaktifkan fungsi CheckUsers CheckUsers ‘mengharuskan user memasukkan username dan password If txtuser.Text.Trim() = "" And _ txtpassword.Text.Trim() = "" Then Msg = MsgBox("Masukan Username dan Password", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtuser.Text = "" Then Msg = MsgBox("Masukan Username ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtpassword.Text = "" Then Msg = MsgBox("Masukan password ", MsgBoxStyle.OKOnly, "Pesan") txtpassword.Focus() Else Try ‘Menghitung jumlah baris yang ada pada ObjDataTable If objDataTable.Rows.Count <= 0 Then ‘Jika jumlah baris = 0 / username tidak ada pada table Msg = MsgBox("Username tidak ada ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() 3.3 Else ‘Jika username ada pada table / jumlah baris ObjdataTable > 0 IV. ‘Mengaktifkan fungsi mencari nilai value Username & Password Find_User()
Setelah ini Double button Cancel, danpada ketikkan listing seperti berikut ‘Jika Click Password yang diketik TextBox tidak sama pada
Database If Password <> Trim(txtPassword.Text) Then Msg = MsgBox("Password salah!", MsgBoxStyle.OKOnly, "Pesan") txtPassword.Focus() Exit Sub Else ‘Jika Sama Me.Hide() f_utama.ShowDialog() txtuser.Text = "" txtPassword.Text = "" End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses" _ & vbCrLf & Err.Description) End Try End If End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click intResponse = MessageBox.Show("Are you sure want to quit ?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If intResponse = MsgBoxResult.Yes Then End Else Exit Sub End If End Sub
Sekarang anda telah selesai membuat aplikasi yang sangat sederhana. Kalau berhasil jangan senang dulu, karena masih banyak sekali rintangan yang akan kita hadapi untuk kasus-kasus berikutnya. Bagi yang gagal jangan berkecil hati, jangan ragu dan sungkan silahkan E-Mail ke saya. Jika program yang anda buat tidak ada masalah, kita lanjutkan pelajaran kita. Sekarang mari kita modif form utama kita yang masih polos, menjadi seperti berikut :
Ubah Properties pada form utama seperti di bawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
BackColor
White
FormBorderStyle
Fixed3D
BackGroundImage
Bebas mau gambar apa
Text
MainMenu
Name
MainMenu
StartPosition
CenterScreen
Icon
Bebas juga
Anda dapat memodif form sesuai dengan keinginan anda. Dan kita tambah komponen MainMenu1 dan StatusBar1 pada Form MainMenu. Buat seperti dibawah ini. File>>Exit
Inputan>>Input Usaha
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Ketik listing seperti dibawah ini. Public Sub BuatPanelStatusBar() 'Membuat panel dan mengatur properti teks. StatusBar1.Panels.Add("Ready..") StatusBar1.Panels.Add("") StatusBar1.Panels.Add("") 'Mengatur properti panel StatusBar. 'Mengatur properti panel AutoSize. StatusBar1.Panels(0).AutoSize = _ StatusBarPanelAutoSize.Spring StatusBar1.Panels(1).Width = 200 StatusBar1.Panels(2).Width = 200 ' Mengatur properti panel BorderStyle. StatusBar1.Panels(0).BorderStyle = _ StatusBarPanelBorderStyle.Raised StatusBar1.Panels(1).BorderStyle = _ StatusBarPanelBorderStyle.Sunken StatusBar1.Panels(2).BorderStyle = _ StatusBarPanelBorderStyle.Sunken ' Mengatur perataan panel StatusBar1.Panels(0).Alignment = _ HorizontalAlignment.Left StatusBar1.Panels(1).Alignment = _ HorizontalAlignment.Center StatusBar1.Panels(2).Alignment = _ HorizontalAlignment.Center 'Menambahkan properti teks pada panel ketiga dengan 'tanggal(sekarang) StatusBar1.Panels(1).Text = "Selamat Datang" & " " & Username StatusBar1.Panels(2).Text = _ System.DateTime.Today.ToLongDateString() 'Mengatur properti icon pada panel ketiga StatusBar1.ShowPanels = True End Sub
Double_Click Form Utama BuatPanelStatusBar()
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah itu Double Click menu item Exit dan ketik listing seperti dibawah ini : End
Lalu Double Click menu item Inputan dan ketikan listing seperti dibawah ini : Dim f_usaha As New Frm_Usaha f_usaha.ShowDialog() f_usaha.Dispose()
Setelah selesai kita mendesain Form Utama (MainMenu), sekarang kita akan membuat Form Untuk Penginputan Usaha. Sekarang tambahkan sebuah form baru pada project yang kita buat. Ubah properties form seperti dibawah ini.
BackColor
LightBlue
FormBorderStyle
Fixed3D
Text
Form Usaha
Name
Frm_usaha
StartPosition
CenterScreen
ControlBox
False
ShowInTaksbar
False
Dan tambahkan 11 Button, 1 GroupBox dan 2 TextBox. Susun semua komponen seperti dibawah ini. 16 15 14
12 13 4
1
5
6
7
2
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
8
3
9
1
11
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan ubah properties masing-masing komponen seperti dibawah ini : 1. BackColor
Transparent
FlatStyle
Flat
ForeColor
Black
Text
<<
TextAlign
MiddleCenter
Name
btnAwal
ShowInTaksbar
False
Untuk menghemat waktu dan tempat, properties setiap button hamper sama yang beda Cuma di nama dan text. 2. Text
<
Name
btnMundur
Text
>
Name
btnMaju
Text
>>
Name
btnAkhir
Text
F1 Add
Name
btnAdd
Text
F2 Delete
Name
btnDelete
3.
4.
5.
6.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
7. Text
F3 Edit
Name
btnEdit
Text
F4 Find
Name
btnCari
Text
Save (Ctrl+S)
Name
btnSave
Text
F5 Cancel
Name
BtnCancel
Text
F6 Close
Name
btnClose
BorderStyle
Fixed3D
Name
txtID
Text
“” (Kosong)
BorderStyle
Fixed3D
Name
txtNama
Text
“”(Kosong)
8.
9.
10.
11.
12.
13.
Untuk Nomor 14-16 ganti Text pada properties sesuai pada gambar.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Jika sudah selesai mendesain form tersebut, kita akan lanjutkan membuat class untuk pemrosesan data. Buat satu class didalam folder AccessData dengan nama AccessUsaha. Dan ketikkan listing seperti dibawah ini. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class AccessUsaha Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Insert Into [TbUsaha]" _ & " (IDUsaha,NamaUsaha) Values (" _ & "'" & IDUsaha & "', '" & NamaUsaha & "');" myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function Public Function AccessUsahaUpdate(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Update [TbUsaha] Set " _ & " NamaUsaha='" & NamaUsaha & "'" _ & " Where IDUsaha='" & IDUsaha & "' ; " myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function Public Function AccessUsahaDelete(ByVal IDUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Delete From [TbUsaha] where IDUsaha='" & IDUsaha & "' " myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function End Class End Namespace
Jika sudah selesai, mari kita lanjutkan membuat program di dalam Form Usaha. Dan buat variable global form seperti dibawah ini. Dim MyConnection As New AccessData.DatabaseConnection Dim mPosition As Integer
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu ketikan fungsi-fungsi berikut : Private Sub clear() 'Mengkosongkan isi TextBox txtID.Text = "" txtNama.Text = "" End Sub
Private Sub enabled_off() 'Menonaktifkan Textbox txtID.Enabled = False txtNama.Enabled = False End Sub Private Sub enabled_on() 'Mengaktifkan TextBox txtID.Enabled = True txtNama.Enabled = True End Sub Private Sub ViewData() Try
'Menampilkan Data IDUsaha dan Nama Usaha dengan Criteria “IDUsaha” pada masing-masing Textbox objCommand = MyConnection.open.CreateCommand objCommand.CommandText = "select * from TbUsaha Where IDUsaha = '" & Trim(txtID.Text) & "';" objDataReader = objCommand.ExecuteReader objDataReader.Read() txtID.Text = objDataReader.Item("IDUsaha") txtNama.Text = objDataReader.Item("NamaUsaha") MyConnection.close() Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub Private Sub Displaydata() Try
'Menyimpan jumlah baris Tabel “TbUsaha” pada Objdatatable objDataTable.Clear() StrSQL = "select * from TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close()
End Try End Sub Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Sub displaydata2() Try
'Menampilkan Data “IDUsaha” dan “NamaUsaha” berdasarkan posisi Baris yang dicari StrSQL = "select * from TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") mPosition = BindingContext(objDataTable).Position With objDataTable.Rows(mPosition) txtID.Text = .Item("IDUsaha") txtNama.Text = .Item("NamaUsaha") End With Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub
Sub cari() Try
'untuk mengecek apakah IDUsaha yang diinputkan ada pada Tabel “TbUsaha” objDataTable.Clear() StrSQL = "select * from [TbUsaha] where IDUsaha = '" & Trim(txtID.Text) + "'" MyConnection.open() objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub
Double Click “btnclose” dan ketik seperti dibawah ini : objDataTable.Clear() Me.Close()
Double Click “btncancel” dan ketik seperti dibawah ini : enabled_off() clear() mProcess = "" btnsave.Enabled = False btnsave.Text = "Save"
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double Click “btnadd” dan ketik seperti dibawah ini : mProcess = "ADD" btnsave.Text = "Save Add" enabled_on() btnsave.Enabled = True txtID.Focus() clear()
Double Click “btnEdit” dan ketik seperti dibawah ini : If mProcess <> "View" Or txtNama.Text = "" Then MsgBox("Lakukan pencarian terlebih dahulu, sebelum proses edit") Else enabled_on() txtNama.Focus() mProcess = "EDIT" btnsave.Text = "Save Edit" btnsave.Enabled = True End If
Pilih ClassName = txtNama, Seperti dibawah ini
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan Pilih Method Name = Leave. Untuk selanjutnya penulis hanya menyebutkan ClassName dan MethodName saja, untuk visual tidak akan diberikan.
Lalu ketik seperti dibawah ini. btnsave.Focus()
Double Click Form Usaha, dan ketik seperti berikut : Try StrSQL = "Select * From TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) End Try clear() enabled_off()
Double Click btncari, dan ketik seperti berikut : mProcess = "View" txtID.Enabled = True txtID.Focus()
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double Click btnSave, dan ketik seperti berikut : If btnsave.Text = "Save Add" Then Try cari() If objDataTable.Rows.Count >= 1 Then MsgBox(" Kode " & "" & txtID.Text & "" & " sudah ada") txtID.Focus() ElseIf txtID.Text = "" Or txtNama.Text = "" Then MsgBox("Isikan data yang mau di Input terlebih dahulu") txtID.Focus() Else Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaInsert(txtID.Text, txtNama.Text) enabled_off() btnsave.Enabled = False btnsave.Text = "Save" btnadd.Focus() Displaydata() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) End Try Else Try cari() If objDataTable.Rows.Count = 0 Then MsgBox(" Kode : " & "" & txtID.Text & "" & " tidak ada pada table") Else Dim mYes_No As String = MsgBox("Anda yakin data mau diupdate ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaUpdate(txtID.Text, txtNama.Text) enabled_off() btnsave.Text = "Save" btnsave.Enabled = False btnadd.Focus() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses update" _ & vbCrLf & Err.Description) End Try End If objDataTable.Clear()
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pilih ClassName = txtNama Dan Pilih Method Name = KeyUp If e.KeyCode = Keys.Enter Then btnsave.PerformClick() ElseIf e.KeyCode = Keys.Escape Then btncancel.PerformClick() End If
Pilih ClassName = txtNama, Seperti dibawah ini Dan Pilih Method Name = KeyUp If mProcess = "View" Then Try cari() If objDataTable.Rows.Count = 0 Then MsgBox("Data yang dicari tidak ada") Else ViewData() btndelete.Focus() End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses pencarian" _ & vbCrLf & Err.Description) MyConnection.close() End Try End If
Double_Click btnakhir BindingContext(objDataTable).Position = objDataTable.Rows.Count - 1 displaydata2()
Double_Click btnmaju BindingContext(objDataTable).Position += 1 displaydata2()
Double_Click btnmundur BindingContext(objDataTable).Position -= 1 displaydata2()
Double_Click btnawal BindingContext(objDataTable).Position -= 1 displaydata2()
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sekarang coba anda jalankan program, apakah program sudah berjalan dengan semestinya, jika belum bisa seperti biasa…… Tentu anda akan merasa heran, kenapa pada button Add, Edit dll ada semacam shortcut. Tetapi jika digunakan shortcut-shortcut tersebut tidak bekerja. Mungkin merupaka suatu kelemahan pada VB.Net tidak menyediakan shortcut untuk component button, tidak seperti Delphi yang menyediakan shortcut untuk button . Tapi jika anda seorang programmer yang memanfaatkan kelebihan dari bahasa pemrograman, masalah itu semua akan bisa diatasi. Ok, sekarang penulis akan memberikan solusi gimana cara membuat shortcut untuk menjalankan perintah pada suatu button. Tambahkan komponen MainMenu pada Form Usaha. Lalu buat seperti berikut :
Pada masing-masing Properties MenuItem, buat Visible=False. Dan shortcut sesuai dengan button. Contoh : Untuk Button dengan Text : F1 Add, pada menu item add properties>Shortcut = F1. Dan selanjutnya..Buat sendiri ya…… ???????. Lalu coba Double_Click menu item add, dan ketik listing seperti dibawah. btnadd.PerformClick()
Untuk semua menu item buat listing seperti diatas, hanya ubah button apa yang akan diperoses. Coba jalankan program dan gunakan shortcut. Apa sudah jalan ?????? Kalau berhasil, berarti anda sudah bisa proses dasar dari database (Select, Insert, Delete & Update). Dengan begitu anda dapat mengembangkan program ini sesuai dengan keinginan anda.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Sebagai penutup dari artikel ini saya akan memberitahukan, kelebihan-kelebihan dengan menggunakan metode ini. 1. Pemrograman ini menggunakan metode 3 Layer, ”User Interface, Business Logic dan Connect to DB” (Maintenance lebih gampang, akses data lebih cepat) 2. Banyak menggunakan variable global sehingga, jika kita membuat program yang besar, ini akan membantu dalam menghemat waktu. Kita tidak perlu mengetikkan variable pada setiap form. 3. Program yang dibuat menggunakan shortcut sehingga lebih cepat dalam menggunakan program. 4. Dibalik itu semua saya yakin masih banyak kekurangan. Untuk artikel selanjutnya, kita akan membuat report dengan menggunakan Crystal Report.
Convert
Report
menjadi
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
PDF
dan
RTF,
untuk
ASP.NET.
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP I I MEMBUAT LAPORAN MENGGUNAKAN CRYSTAL REPORT BERBASIS WEB (Study Kasus Access 2003) I.
Pangantar Setelah membaca artikel saya Step 1, mudah-mudahan para pembaca sudah dapat mengerti sedikit tentang pemrograman database. Setelah para pembaca sudah mengerti dan dapat di implementasikan, sekarang kita lanjut dengan membuat laporan menggunakan Crystal Report Visual Studio .Net 2003 (CR VS .NET 2003). Seperti kita ketahui, laporan baik berbentuk soft file atau hard file merupakan hasil
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
akhir dari data yang telah di olah (informasi). Oleh karena itu semakin baik suatu program, maka program tersebut akan menyediakan banyak laporan yang dibutuhkan oleh pengguna. Salah satu tool yang mendukung untuk membuat laporan menggunakan VB.Net ada Crystal Report. Crystal Report adalah tool untuk membuat laporan yang handal, karena di dalamnya banyak sekali fitur-fitur untuk memudahkan kita dalam membuat laporan. Dan Crystal Report akan otomatis terinstal saat kita menginstall VS.NET.
II.
MEMBUAT DATABASE (TABLE DAN QUERY)
Buat database baru dan letakkan di C:\Inetpub\wwwroot\namaproject\bin Dan beri nama “tes.mdb“. Buat dua buah table, table pertama bernama ”Customers” dengan desain table sebagai berikut :
Dan table kedua bernama “CustomerNames”, dengan desain sebagai berikut :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah selesai membuat kedua table diatas, sekarang buat sebuah Query. Dengan desain sebagai berikut :
Dan simpan dengan nama “Q_Customers”. Sekarang isikan data sesuai dengan keinginan anda pada kedua table diatas. Sekarang anda telah memiliki sebuah database yang datanya akan dibutuhkan untuk laporan yang akan kita buat.
III. Sebelum kita memulai untuk mendesain Report, kita akan mendesain form untuk memanggil report yang akan kita gunakan. Untuk pertama silahkan desain form menurut keinginan anda.
Contoh Desain Form
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Tambahkan dua buah datagrid , jika anda ingin mengubah tampilan dari data grid. Klik Auto Format dibawah jendela Properties. Dan akan muncul tampilan sebagai berikut :
Anda dapat memilih desain data grid sesuai dengan kesukaan anda. Setelah itu ganti nama datagrid pada properties name seperti berikut DG1 untuk Datagrid1 dan DG2 untuk Datagrid2. Lalu klik Dg1 dan klik Property Builder dibawah jendela Properties dan kllik Tab Paging.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan checklist allow paging dan OK. Lakukan hal yang sama pada Dg2. Tambahkan sebuah Button, Dropdownlist, RadioButtonList dan CrystalReportViewer. Dan susun seperti gambar dibawah ini :
Ubah properties masing-masing komponen sebagai berikut : Button: Text
Report File Text
Name
btnReport
DropDownList ID
ddlReport
Klik Collection pada properties Item, dan buat dua buah members. 1. Selected = True Text =PDF Value =.pdf 2.
Selected = False Text = RTF Value = .rtf
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
RadioButtonList ID
RBL_Alpha
AutoPostBack
True
RepeatLayout
Table
Klik Collection pada properties Item, dan buat members dari A-Z ditambah satu ALL Selected = False Text =A Value =A
. . . . Selected = False Text = Z Value =Z
Dan ditambah ALL Selected = True Text = ALL Value = * Seperti gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
IV. DESAIN REPORT Buat sebuah folder di project anda dan beri nama “Report” . Lalu buat sebuat report di dalam Folder Report Click kanan folder report >Add>Pilih Add New Item
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu akan muncul dialog box seperti berikut :
Pilih Crystal Report, Dan ganti nama file menjadi ”CrCustomers.rpt“. Dan akan muncul dialog box seperti berikut . Lalu pilih “As a Blank Report”, dan click OK.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Tampilan Crystal Report
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Click kanan pada Report Header (Section 1), dan click “Fit Section”
Click kanan pada Page Header (Section 3), dan click “Format Section”. Lalu akan muncul tampilan seperti berikut :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Click Page Header dan click button Insert . Maka Page Header akan bertambah menjadi Page Header a dan Page Header b. Dan klik button OK. Setelah muncul Page Header a dan b pada tampilan Crystal Report, klik kanan Page Header b dan pilih dan klik Suppress (No Drill-Down).
Membuat hubungan ke DataBase. Click kanan pada Database Fileds>Add/Remove Database
Lalu akan muncul tampilan seperti berikut : Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Click tanda + pada OLE DB (ADO)
Akan muncul tampilan seperti di atas, lalu pilih “Microsoft Jet 4.0 OLE DB Provider”, dan click Next.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Click tanda …pada Database Name dan cari alamat Database anda. Dan click next.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan click Finish. Dan akan muncul tampilan seperti berikut :
Click tanda + (Views), maka akan terbuka root yang didalamnya terdapat “Q_Customers”. Dan click button “>”. Maka “Q_Customers” pindah ke “Selected Tables” List. Seperti gambar dibawah ini :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan click OK.
Tampilan Database Fields akan berubah seperti gambar diatas (Terdapat Q_Customers beserta field-fieldnya).
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Desain Page Header a (Section2) seperti gambar di bawah ini.
Lalu masukkan field-field pada Database field ke Detail (Section 3). Seperti gambar di bawah ini .
Klik kanan pada Report Footer (Section4), klik Fit Section.
Dan terakhir desain Report (Section5) seperti gambar di bawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Untuk membuat field PrintDate dan PageNumber klik kanan pada area Page Footer (Section5).
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
V.
A TIME TO MAKE SOURCE CODE Sebelum kita mulai membuat listing pada form, terlebih dahulu
kita membuat
koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\Inetpub\wwwroot\Ilkom\bin\tes.mdb; ") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pada WebForm1 untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.OleDb
Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim objdatareader As OleDbDataReader Dim strConn, strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim myconnection As New AccessData.DatabaseConnection #End Region
Sub binddatagrid() objDataTable.Clear() strSQL = "SELECT Customers.CompanyName , CustomerNames.ContactName , " _ & " iif(CustomerNames.Phone='NA','',CustomerNames.Phone)AS Phone ,IIF(CustomerNames.Fax='NA','',CustomerNames.Fax) As Fax " _ & " FROM CustomerNames INNER JOIN Customers ON CustomerNames.CustomerID = Customers.CustomerID " _ & " ORDER BY Customers.CompanyName;" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_customers") objDataTable = objDataSet.Tables("mdt_customers") myconnection.close() DG1.DataSource = objDataTable DG1.DataBind() End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub view() objDataTable.Clear() strSQL = "SELECT Customers.CompanyName , CustomerNames.ContactName , " _ & " iif(CustomerNames.Phone='NA','',CustomerNames.Phone) AS Phone ,IIF(CustomerNames.Fax='NA','',CustomerNames.Fax) As Fax " _ & " FROM CustomerNames INNER JOIN Customers ON CustomerNames.CustomerID = Customers.CustomerID " _ & " WHERE Customers.CompanyName Like '" & RBL_Alpa.SelectedValue & "%' ORDER BY Customers.CompanyName;" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_View8D") objDataTable = objDataSet.Tables("mdt_View8D") myconnection.close() DG2.DataSource = objDataTable DG2.DataBind() End Sub
Sub paginggrid(ByVal s As Object, ByVal e As DataGridPageChangedEventArgs) DG1.CurrentPageIndex = e.NewPageIndex CrystalReportViewer1.Visible = False End Sub
Sub paginggrid2(ByVal s As Object, ByVal e As DataGridPageChangedEventArgs) DG2.CurrentPageIndex = e.NewPageIndex view() CrystalReportViewer1.Visible = False End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub report_Alpa() Dim rdContacts As New CrCustomers Dim ext As String Dim format As Integer view() Select Case ddlReport.SelectedValue Case ".rtf" ext = ddlReport.SelectedValue Case ".pdf" ext = ddlReport.SelectedValue End Select rdContacts.SetDataSource(objDataTable) CrystalReportViewer1.ReportSource = rdContacts rdContacts.Refresh() Try Dim Dim Dim Dim
t As Integer nomorrandom As String Filename As String diskOpts As New DiskFileDestinationOptions
Filename = "\reports2\" & RBL_Alpa.SelectedValue & "" & ext & "" diskOpts.DiskFileName = Filename With rdContacts .ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile If ext = ".rtf" Then .ExportOptions.ExportFormatType = ExportFormatType.RichText ElseIf ext = ".pdf" Then .ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat End If .ExportOptions.DestinationOptions = diskOpts .PrintOptions.PaperOrientation = PaperOrientation.Portrait .PrintOptions.PaperSize = PaperSize.PaperA4 .Export() .Refresh() End With CrystalReportViewer1.Visible = False Response.Redirect("http://pcbt1151/Reports2/" & RBL_Alpa.SelectedValue & "" & ext & "") Exit Try Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False myconnection.close() End Try CrystalReportViewer1.Visible = False End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub report_ALL()
Dim rdContacts As New CrCustomers Dim ext As String Dim format As Integer binddatagrid() Select Case ddlReport.SelectedValue Case ".rtf" ext = ddlReport.SelectedValue Case ".pdf" ext = ddlReport.SelectedValue End Select rdContacts.SetDataSource(objDataTable) rdContacts.SetDatabaseLogon("", "A2B") CrystalReportViewer1.ReportSource = rdContacts rdContacts.Refresh()
Try Dim Dim Dim Dim
t As Integer nomorrandom As String Filename As String diskOpts As New DiskFileDestinationOptions
Filename = "\reports2\ALL" & "" & ext & "" diskOpts.DiskFileName = Filename With rdContacts .ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile If ext = ".rtf" Then .ExportOptions.ExportFormatType = ExportFormatType.RichText ElseIf ext = ".pdf" Then .ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat End If .ExportOptions.DestinationOptions = diskOpts .PrintOptions.PaperOrientation = PaperOrientation.Portrait .PrintOptions.PaperSize = PaperSize.PaperA4 .Export() .Refresh() End With CrystalReportViewer1.Visible = True Response.Redirect("http://pcbt1151/Reports2/ALL" & "" & ext & "") Exit Try Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False myconnection.close() End Try CrystalReportViewer1.Visible = False End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Ketikkan listing berikut pada Private Sub Page_Load. Try If Not IsPostBack Then binddatagrid() CrystalReportViewer1.Visible = False DG1.Visible = True DG2.Visible = False End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try
Double Click Rbl_Alpha, dan ketikkan listing seperti di bawah ini : Try If RBL_Alpa.SelectedValue = "*" Then binddatagrid() DG1.Visible = True DG2.Visible = False Else view() If objDataTable.Rows.Count = 0 Then CvError.ErrorMessage = "There are no records for that letters" CvError.IsValid = False DG1.Visible = False DG2.Visible = True Else DG1.Visible = False DG2.Visible = True End If End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try CrystalReportViewer1.Visible = False
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double Click Btn_Report, dan ketikkan listing sebagai berikut : Try If RBL_Alpa.SelectedValue = "*" Then report_ALL() Else view() If objDataTable.Rows.Count = 0 Then CvError.ErrorMessage = "There are no records for that letters" CvError.IsValid = False Exit Try Else report_Alpa() End If End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try CrystalReportViewer1.Visible = False
Setelah selesai membuat listing seperti diatas, langkah selanjutnya adalah membuat folder untuk menyimpan report yang kita buat. Pertama buat folede pada Drive C:\, dan beri nama Report2. Click kanan Folder tersebut Pilih Sharing and Security. Setelah muncul tampilan sebagai berikut :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pilih Tabs WebSharing, dan pilih Share this folder, dan muncul tampilan seperti dibawah ini.
Klik OK, dan Klik OK pada Properties Form.
VI. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Untuk menampilkan Report, tekan Button Report File Text, dan kita dapat memilih laporan kita berbentuk PDF atau RTF (dengan memilih Drop Down List yang di sebelah Button).
Sedangkan Abjad dari A-Z untuk menampilkan nama Perusahaan berdasarkan Abjad tersebut.
VII. PENUTUP Setelah membuat dan menjalankan program ini, mungkin pembaca dapat mengerti kegunaan dari Crystal Report. Contoh program ini masih sangat sederhana, tetapi akan sangat mungkin sekali di kembangkan menjadi laporan yang handal. Karena basic pemrograman Crystal Report sudah ada pada program ini. Saya yakin masih banyak kekurangan di dalam program ini, dan saya harap artikel ini dapat membantu para pembaca untuk menambah ilmu dalam pemrograman .Net khusus nya VB.Net. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP III APLIKASI UNTUK MEMBUAT DATABASE DAN TABEL PADA MS. ACCESS (Study Kasus Access 2003) I.
Pengantar Lazimnya dalam membuat database dan table pada Ms.Access, kita akan menuju ke Start > Program>Microsoft Office>Ms.Access. Dan pada artikel kita tidak perlu lagi melakukan hal tersebut (berinteraksi dengan Ms.Access). Karena di sini kita akan membangun aplikasi untuk meng create database baru beserta table nya. Pada
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
artikel ini penulis akan memberikan contoh kasus yang simple agar para pembaca dapat dengan mudah memahami nya. II.
File pendukung. File pendukung ini adalah ADOX.dll, file ini yang bekerja untuk mengcreate database dan table pada Ms. Office. File ini akan di sertakan bersama dengan tulisan ini.
III. A TIME TO MAKE PROGRAM 3.1 New Project Buat Project baru, dan beri nama project dan simpan aplikasi sesuai dengan keinginan anda. Eg. Nama Project : Make DB Lokasi : C:\ProgramKu\ 3.2 Adox.dll Pada artikel ini saya sertakan juga file Interop.ADOX.dll. Copy file ini ke “\Namaprogram\Bin\” . eg,C: \Make DB\Bin\. Masukkan file ini kedalam program anda, dengan cara seperti di bawah ini : Click kanan pada Reference dan click Add Reference.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu akan muncul tampilan seperti berikut.
Dan pilih Tab Project. Dan click browse, dan cari file interop yang anda simpan di dalam folder Bin. Dan klik OK.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Maka pada references anda akan bertambah seperti gambar dibawah ini.
3.3 Design Form Ubah properties Form Seperti Dibawah ini : BackColor
224, 224, 224
FormBorderStyle
Fixed3D
Text
Create DB
StartPosition
CenterScreen
MaximizeBox
False
Tambahkan 5 buah button, 2 TextBox, 3 ListBox, 1 ComboBox pada form. Dan desain seperti gambar dibawah ini, jika selera and berbeda bisa design sendiri kok.. tidak ada pemaksaan dari penulis..
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Button 1 BackColor
255, 255, 192
FlatStyle
Flat
ForeColor
Navy
Text
Field Name
Enabled
False
Button 2 BackColor
255, 255, 192
FlatStyle
Flat
ForeColor
Navy
Text
Data Type
Enabled
False
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Button 3 BackColor
255, 255, 192
FlatStyle
Flat
ForeColor
Navy
Text
Size
Enabled
False
Button 4 Name
btnInsert
FlatStyle
Flat
Text
Insert to Field List
Button 5 Name
BtnCreate
FlatStyle
Flat
Text
Create Database
TextBox 1 Name
txtField
Text
“” (Kosongkan)
TextBox 2 Name
txtSize
Text
“” (Kosongkan)
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
ComboBox 1 Dropdownstyle
DropDownList
Name
cmbType
Text
“” (Kosongkan)
Pada Properties item buat seperti pada gambar berikut ini :
ListBox 1 Name
lstFieldName
ListBox 2 Name
lstType
ListBox 3 Name
lstSize
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
3.4 Source Code Ketikkan listing berikut di baris pertama .. Imports ADOX
Dan ketikkan listing di bawah ini pada even Form_Load Me.Opacity = Math.Abs(0.7)
Fungsi dari listing ini adalah untuk membuat form yang transparan.. Pembaca dapat mengatur transparansi form. Dengan mengubah nilai 0.7 pada listing diatas.. Semakin kecil nilainya semakin transparan form yang kita buat. Saya rasa para pembaca dapat mencoba nya sendiri, mana yang menurut anda yang lebih bagus.
Double click pada ComboBox (cmbType). Dan ketikan listing berikut : If Trim(cmbType.Text) = "Text" Then txtSize.Enabled = True Else txtSize.Enabled = False End If
Listing diatas berfungsi pada saat user memilih DataType, jika Type nya adalah Text maka textbox size akan aktif, jika selain dari pada itu maka textbox tidak aktif. Mungkin para pembaca ada yang merasa kenapa demikian. Seperti yang kita ketahui pada Ms Access hanya Type Text yang memiliki size. Selebihnya tidak. Jika tidak kita buat demikian, mungkin saja bisa terjadi error.
Lalu pada txtSize_KeyPress ketikan listing seperti di bawah ini : If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True End If
Listing ini merupakan suatu fungsi agar tidak terjadi Human Error dalam mengcreate size, karena tidak mungkin size berupa huruf jadi jika yang dimasukkan/di inputkan selain 0-9 maka tidak akan bisa. Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double click btnInsert, dan ketikan listing berikut . BntInsert adalah proses untuk memasukkan data dari TextBox dan ComboBox kedalam ListBox. Try If txtField.Text = "" Or cmbType.SelectedIndex = -1 Then MsgBox("Masukkan Field Name atau Pilih Data Type", MsgBoxStyle.Information, "Informasi") Else lstFieldName.Items.Add(txtField.Text) lstType.Items.Add(cmbType.Text) lstSize.Items.Add(txtSize.Text) txtField.Text = "" cmbType.SelectedIndex = -1 txtSize.Text = "" End If Catch ex As Exception MsgBox(ex.Message) End Try
If txtField.Text = "" Or cmbType.SelectedIndex = -1 Then MsgBox("Masukkan Field Name atau Pilih Data
Type",
MsgBoxStyle.Information, "Informasi")
Listing berfungsi untuk memvalidasi proses , jika txt field tidak di isi dan ComboBox pada posisi default (tidak dalam keadaan di pilih). Maka program akan menampilkan informasi agar mengisi textbox text dan memilih size pada ComboBox.
lstFieldName.Items.Add(txtField.Text) lstType.Items.Add(cmbType.Text) lstSize.Items.Add(txtSize.Text)
fungsi nya adalah memasukkan data dari TextBox atau Combobox kedalam Listbox. Dengan menggunakan fungsi Items.Add txtField.Text = "" cmbType.SelectedIndex = -1 txtSize.Text = ""
Setelah data sudah masuk kedalam ListBox, maka textbox dan ComboBox kembali pada keadaan default.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
BtnCreate adalah proses dimana kita melakukan proses Create DataBase dan Tabel. Try Dim Dim Dim Dim
i As Integer DataType As Integer ADOXcatalog As New ADOX.Catalog ADOXtable As New Table
ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\Coba.mdb") ADOXtable.Name = "Employees" For i = 0 To (lstFieldName.Items.Count - 1) If lstType.Items.Item(i).ToString = "Text" Then DataType = 202 ElseIf lstType.Items.Item(i).ToString = "Memo" Then DataType = 203 ElseIf lstType.Items.Item(i).ToString = "Number" Then DataType = 3 ElseIf lstType.Items.Item(i).ToString = "Date/Time" Then DataType = 7 ElseIf lstType.Items.Item(i).ToString = "Currency" Then DataType = 6 ElseIf lstType.Items.Item(i).ToString = "Yes/No" Then DataType = 11 End If If lstType.Items.Item(i).ToString = "Text" Then ADOXtable.Columns.Append(lstFieldName.Items.Item(i).ToString, DataType, lstSize.Items.Item(i).ToString) Else ADOXtable.Columns.Append(lstFieldName.Items.Item(i).ToString, DataType) End If Next i ADOXcatalog.Tables.Append(ADOXtable) ADOXtable = Nothing ADOXcatalog = Nothing Catch ex As Exception MsgBox(ex.Message) End Try
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\Coba.mdb")
Ini adalah fungsi untuk membuat database, dimana kita menentukan nama dan lokasi dari DataBase. Seperti pada program ini lokasi Database pada Drive C:\, sedangkan nama Database nya “Coba.mdb” ADOXtable.Name = "Employees”
Untuk membuat nama Tabel.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Sangat banyak kekurangan yang ada pada artikel ini, untuk itu saya butuh kritik dan saran dari pembaca. Kekurangan di dalam program ini adalah. 1. Belum mampu membuat Index, Primary Key dan Relation ship.. Mungkin itu semua menjadi PR buat saya dan para penggemar Vb.Net. 2. Untuk lokasi dan nama Database masih bersifat statis (Kaku), artinya pembuatan lokasi dan nama dari Database masih di lakukan pada listing. Tidak bersifat dinamis, sehingga dilakukan oleh program setelah running. Tetapi tujuan dari artikel ini adalah supaya kita dapat terus berlatih dalam membuat program, dan menemui suatu masalah lalu dapat kita selesaikan masalah tersebut. Itu akan menjadi wawasan baru buat kita. Dan pengalaman kita di dalam dunia pemrograman.
Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar
Aminnnnnn
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP I V MENGAKSES DATA DARI EXCEL DAN MENGIMPORT KE ACCESS (Study Kasus Excel &Access 2003) I.
Pangantar Sering sekali kita menerima data dari user berupa excel file. Dan merupakan pekerjaan yang melelahkan untuk melakukan penginputan yang jumlah nya sangat banyak sekali. Mungkin jika kita bisa mengakses database suatu program akan sangat gampang sekali untuk mentransfer data dari Excel ke Database (Access). Tinggal melakukan import data dan beres. Tapi pada saat ini sangat jarang sekali
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
program yang memberikan hak kepada user untuk dapat mengakses database secara langsung dan atau database nya di password. Dan ini sebenarnya merupakan tugas dari para programer yang membuat program. Bagaimana membuat program yang memudahkan pekerjaan para user. Jadi di dalam artikel ini bagaimana kita membuat simple program / fasilitas untuk mengimport data dari excel ke access. Dan di dalam artikel ini kita akan membuat bagaimana melakukan koneksi ke Excel file dan data nya kita tampilkan ke dalam Datagrid. Karena ini merupakan artikel ke emapat dari penulis, jadi penulis mengasumsikan para pembaca sudah familiar dengan Vb.Net dan Access. Jadi cara membuat project baru tidak akan dijelaskan secara detail. Jadi bila para pembaca ngerasa tulisan ini tidak di mengerti, silahkan baca artikel penulis Step 1 – 3.
II.
MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “tes.mdb“. Buat satu buah table, dengan nama ”DataKu” dengan desain table sebagai berikut :
III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. BackColor
AliceBlue
FormBorderStyle
Fixed3D
Text
Import
Name
F_Import
StartPosition
CenterScreen
Size
826, 466
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5
Nama Komponen Label TextBox DataGrid Button OpenFileDialog
Jumlah 2 3 2 6 1
Mengganti properties masing-masing komponen •
Label No 1 2
•
Nama Label Label1 Label2
TextBox No
•
Teks Label Sheet Name Table Name
Nama TextBox
1
TextBox1
2
TextBox2
3
TextBox3
4
TextBox4
Text Name Text Name Text Name Text Name
Properties kosongkan txtFileName Sheet1 txtSheet kosongkan txtAlamat kosongkan txtTable
Button No
Nama Button
1
Button1
2
Button2
3
Button3
4
Button4
BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Properties Transparent Flat Load btnLoad Transparent Flat View Excel Data btnView Transparent Flat Clear Excel Grid btnClear Transparent
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
•
5
Button5
6
Button6
FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name
Flat Import Data btnImport Transparent Flat View Access Data btnView2 Transparent Flat Clear Access Grid btnClear2
OpenFileDialog Properties Filter Microsoft Office Excel|*.xls RestoreDirectory True
Lalu desain form seperti gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Menambahkan Class Pada Project Sebelum kita mulai membuat listing pada form, terlebih dahulu
kita membuat
koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tes.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan ketikkan listing-listing seperti di bawah ini. #Region "Deklarasi" Dim MyConnection As New AccessData.DatabaseConnection Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTableExcel As New DataTable Dim objDataTableAccess As New DataTable Dim Field1, Field2, Field3 As String #End Region
Sub DeleteTable() 'Menghapus seluruh data pada table didalam Access strSQL = "Delete From" & "[" & Trim(txtTable.Text) & "]" & " ;" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_Delete") MyConnection.close() End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub import() DeleteTable() Dim i As Integer 'Melakukan pengulangan berdasarkan baris 'yang ada pada Excel For i = 0 To (objDataTableExcel.Rows.Count - 1) Try 'Menampilkan data dan di tampung 'Pada Variable berdasarkan baris With objDataTableExcel.Rows(i) Field1 = .Item(0) Field2 = .Item(1) Field3 = .Item(2) End With 'Melakukan penginputan data dari variable 'Kedalam tabel pada Access strSQL = "Insert Into " & "[" & Trim(txtTable.Text) & "]" & "(Field1, Field2, Field3) Values " & _ " (" & Field1 & ",'" & Field2 & "','" & Field3 & "'); " objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_Import") MyConnection.close() Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) Exit Sub End Try Next i MsgBox("Import Finish", MsgBoxStyle.Information, "Import Data") End Sub
Klik ganda button Load dan ketik sintaks di bawah ini. 'Mencari file (.xls) yang akan dibuka OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName <> "" Then txtFileName.Text = OpenFileDialog1.FileName End If
Klik ganda button View dan ketik sintaks di bawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
'Jika textbox Sheet = kosong If txtSheet.Text = "" Then MsgBox("Masukkan nama Sheet pada Excel", MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Dim tbl As String tbl = txtSheet.Text 'Koneksi ke file Excel yang di tunjuk Dim strConn As String = "Provider=Microsoft.Jet.OleDb.4.0;data source=" & txtFileName.Text & ";Extended Properties=Excel 8.0;" Dim objConn As New OleDbConnection(strConn) Try objDataTableExcel.Clear() 'SQL Menampilkan data pada Excel strSQL = "Select * " & " From " & "[" & tbl & "$" & "]" objCommand = New OleDbCommand objCommand.Connection = objConn objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_show") objDataTableExcel = objDataSet.Tables("mdt_show") objConn.Close() 'Data di tampung pada Datagrid DataGrid1.DataSource = objDataTableExcel DataGrid1.ReadOnly = True Catch ex As Exception MsgBox(ex.Message) End Try
Klik ganda button Clear, ketik sintaks dibawah ini 'Mengkosongkan Datagrid1 (Data Excel) objDataTableExcel.Clear() DataGrid1.DataSource = objDataTableExcel DataGrid1.ReadOnly = True
Klik ganda button Import, ketik sintaks dibawah ini
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
If txtTable.Text = "" Then MsgBox("Masukkan nama tabel pada Access", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If If txtSheet.Text = "" Then MsgBox("Masukkan nama Sheet pada Excel", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Try import() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation) MyConnection.close() End Try
Dan klik ganda button View2 dan button Clear2, ketikkan sintaks untuk masing-masing button seperti dibawah ini. Untuk button view2 If txtTable.Text = "" Then MsgBox("Masukkan nama tabel", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Try 'untuk menampilkan data pada table (access) 'kedalam datagrid2 objDataTableAccess.Clear() strSQL = "Select * " & " From " & "[" & Trim(txtTable.Text) & "]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_show2") objDataTableAccess = objDataSet.Tables("mdt_show2") MyConnection.close() DataGrid2.DataSource = objDataTableAccess DataGrid2.ReadOnly = True Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Untuk button Clear2
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
objDataTableAccess.Clear() DataGrid2.DataSource = objDataTableAccess DataGrid2.ReadOnly = True
IV. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :
1. Cari file excel yang mau ditampilkan, dengan menekan button Load. 2. Jika nama Sheet pada Excel adalah Sheet1, maka biarkan saja TextBox Sheet Name, tapi jika tidak ganti Sheet Name sama dengan nama Sheet pada file Excel yang akan ditampilkan. 3. Tekan button View Excel Data
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
4. Ketikkan nama table pada TextBox Table Name, Lalu tekan button Import Data, button ini berfungsi untuk memindahkan data dari Excel kedalam table didalam Access. Tunggu sampai pesan Import Finish Muncul.
5. Untuk mencoba apakah data sudah di Import, Coba klik button View Access Data, jika data nya muncul sama dengan Datagrid Excel maka proses import sudah benar
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
V.
ERROR MESSAGE Jika menerima pesan error dari program, lakukan hal-hal seperti berikut:
Cek apakah sudah benar Sheet Name adalah Sheet1...
Cek apakah nama table pada Access sudah benar.. VI. PENUTUP Setelah mencoba program dari artikel yang penulis buat ini, mudah-mudahan para pembaca mendapat ilmu tambahan tentang .Net. Hal-hal yang sederhana memang selalu kita lupakan, sehingga hal yang sederhana itu selalu kita anggap sebagai sesuatu yang sangat susah.. Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penulis berharap artikel ini bisa di implementasikan kedalam program-program penulis yang membutuhkan proses seperti didalam artikel ini. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP V IMPORT DATA DARI TXT / CSV FILE I.
Pangantar Pada artikel sebelumnya, kita telah membuat program untuk mentransfer data dari Excel ke Access table. Dan pada artikel yang ke 5 ini, penulis mengajak pembaca untuk bermain dengan txt dan csv (comma-separated values) file. Pada artikel ini hampir sama saja, kita akan membuat program mengimport data dari txt / csv file lalu di insert kedalam Access Table.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Tetapi pada step ini, cara yang di gunakan berbeda dengan step sebelumnya. Mengingat kembali pada artikel sebelumnya. Untuk mentransfer data, kita melakukan nya baris demi baris . Jadi jika jumlah baris (row) nya sangat banyak maka waktu yang di butuhkan juga lebih panjang durasinya. Tetapi pada artikel ini kita akan mentransfer seluruh data secara langsung. Dan durasi yang di pakai untuk ini jauh lebih singkat, dan caranya pun lebih mudah. Eksperimen yang dilakukan penulis dalam mentransfer data yang berjumlah 100.000 baris, penulis dapat melakukan kurang dari 1 menit. Wauuuuuuuuu, waktu yang sangat fantastis bukan.
II.
MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan desain table sebagai berikut :
III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle
Fixed3D
Text
Import
Name
F_Import
StartPosition
CenterScreen
Size
712, 360
Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4
Nama Komponen Label TextBox DataGrid Button
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Jumlah 3 3 2 6
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
5 6 7
OpenFileDialog FolderBrowseDialog ComboBox
1 1 1
Mengganti properties masing-masing komponen •
Label No 1 2 3
•
Nama Label Label1 Label2 Label3
TextBox No
•
Teks Label Data From TextFile Data From Access File Name
Nama TextBox
1
TextBox1
2
TextBox2
3
TextBox3
Text Name Text Name Text Name
Properties kosongkan txtFilePath kosongkan txtFolderPath kosongkan txtFileName
Button No
Nama Button
1
Button1
2
Button2
3
Button3
4
Button4
5
Button5
BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Properties Transparent Flat ... btnOpenFileDlg Transparent Flat ... btnOpenFldrBwsr Transparent Flat Import btnImport Transparent Flat View From TextFile btnView Transparent Flat
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
6
•
Button6
Text Name BackColor FlatStyle Text Name
OpenFileDialog Properties Name OFD RestoreDirectory True
•
FolderBrowseDialog
Name •
Properties FBD
ComboBox
Name DropDownStyle Collection
Properties CbExt DropDownList - .txt - .csv
Lalu desain form seperti gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
View From Access btnView2 Transparent Flat Export btnExport
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Menambahkan Class Pada Project Sebelum kita mulai membuat listing pada form, terlebih dahulu
kita membuat
koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CSV.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb Imports System.IO
Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim StrSQL As String Dim objDataTableText As New DataTable Dim objDataTableAccess As New DataTable Dim myconnection As New AccessData.DatabaseConnection #End Region Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Klik ganda button Open File Dialog dan ketik sintaks di bawah ini. Try OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text Documents(*.txt) |*.txt| All Files (*.*) |*.*" OFD.FilterIndex = 0 OFD.FileName = "" Dim result As DialogResult = OFD.ShowDialog() If result = DialogResult.Cancel Then OFD.FileName = Nothing txtFilePath.Text = "" Else txtFilePath.Text = OFD.FileName End If Catch ex As Exception MessageBox.Show(ex.Message) End Try
Klik ganda button Import dan ketik sintaks di bawah ini. Try If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim TempPath, TempFile As String TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim, "\") + 1, Len(txtFilePath.Text.Trim)) TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim, (Len(txtFilePath.Text.Trim) - Len(TempFile))) Dim cmd As OleDbCommand = New OleDbCommand cmd.CommandText = "INSERT INTO Absen (EmployeeID, FTime,FDate) " & _ " SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile.Trim & "]" cmd.Connection = myconnection.open() cmd.ExecuteNonQuery() myconnection.close() MsgBox("Import Finish", MsgBoxStyle.Information, "Import") Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Klik ganda button View, ketik sintaks dibawah ini Try If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim TempPath, TempFile As String TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim, "\") + 1, Len(txtFilePath.Text.Trim)) TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim, (Len(txtFilePath.Text.Trim) - Len(TempFile))) objDataTableText.Clear() DgText.DataSource = Nothing StrSQL = "SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile & "]" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check") objDataTableText = objDataSet.Tables("mdt_check") myconnection.close() DgText.DataSource = objDataTableText TempFile = Nothing TempPath = Nothing Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try
Klik ganda button Open Folder Browse, ketik sintaks dibawah ini Try FBD.SelectedPath = "" Dim result As DialogResult = FBD.ShowDialog() If result = DialogResult.Cancel Then FBD.SelectedPath = Nothing txtFolderPath.Text = "" Else txtFolderPath.Text = FBD.SelectedPath.Trim() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan klik ganda button View2, ketikkan sintaks seperti dibawah ini. Try objDataTableAccess.Clear() StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check2") objDataTableAccess = objDataSet.Tables("mdt_check2") myconnection.close() DgAccess.DataSource = objDataTableAccess Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try
IV. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :
1. Cari file txt atau csv yang mau ditampilkan, dengan menekan button Load. (dibawah grid Text File) 2. Tekan button View From Text File
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
3. Jika sudah yakin dengan data yang di tampilkan pada datagrid, tekan button import untuk mengimport data.
4. Untuk mencoba apakah data sudah di Import, Coba klik button View Access Data, jika data nya muncul sama dengan Datagrid TextFile maka proses import sudah benar
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
V.
PENUTUP Penulis sadari bahwa cara penyampaian pada artikel ini sangat cepat, tidak menjelaskan secara detail. Itu karena penulis beranggapan para pembaca sudah mengikuti artikel-artikel yang di buat oleh penulis dari awal sampai yang sekarang ini. Jadi jika para pembaca kurang mengerti atau tidak memahaminya penulis anjurkan untuk membaca step 1 terlebih dahulu, baru dilanjutkan dengan step-step berikutnya. Mungkin bagi sebagian pembaca artikel kurang banyak memberi ilmu atau manfaatnya. Tapi jika kita sudah sering bekerja dengan menggunakan external file, maka ini akan sangat membantu pekerjaan kita. Hal ini sangat dirasakan sendiri oleh penulis. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP VI EXPORT DATA DARI ACCESS TABLE KE TXT / CSV FILE I.
Pangantar Setelah membaca artikel step 5 pasti para pembaca banyak yang bertanya dan merasa keheranan. Apakah penulis lupa atau tidak tahu cara mengexport data dari txt / csv file. Karena pada artikel tersebut penulis mendesign form dengan menampilkan button export. Sedangkan pada tahap coding tidak di temukan bagaimana cara mengexport data tersebut.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Hal tersebut memang sengaja penulis lakukan, agar para pembaca paham terlebih dahulu cara untuk mengimport data. Jika sudah mengerti maka kita akan memasuki lagi tahap selanjutnya yaitu mengexport data dari access table ke txt /csv file. Bagi para pembaca yang belum membaca step 5 penulis harapkan untuk membaca artikel tersebut terlebih dahulu. Karena antara artikel sebelumnya dan yang saat ini sangat erat sekali hubungan nya. Dan kita masih menggunakan project yang sama. Hasil eksperimen yang dilakukan penulis untuk mengeksport data dengan jumlah baris lebih kurang 100.000 baris durasi yang dibutuhkan adalah sekitar 20 detik. Ini merupakan waktu yang sangat cepat sekali. II.
CODING
Karena kita masih menggunakan form dan project yang sama jadi kita langsung saja masuk ke tahap coding. Sub CheckData() Try objDataTableAccess.Clear() StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check2") objDataTableAccess = objDataSet.Tables("mdt_check2") myconnection.close() Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try End Sub
Dan klik ganda pada button export, dan ketik sintaks dibawah ini :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Try If txtFileName.Text.Trim = "" Then MsgBox("Masukkan nama file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If If txtFolderPath.Text.Trim = "" Then MsgBox("Pilih folder terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If CheckData() 'mengecek jumlah baris dalam tabel If objDataTableAccess.Rows.Count = 0 Then MsgBox("Data tidak tersedia", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim i As Integer Dim Header1, Header2, Header3, Field1, Field2, Field3 As String Dim fsOutput As FileStream = New FileStream(txtFolderPath.Text + "\" + txtFileName.Text.Trim + CbExt.SelectedItem, FileMode.Create, FileAccess.Write) Dim srOutput As StreamWriter = New StreamWriter(fsOutput) objCommand = myconnection.open.CreateCommand objCommand.CommandText = "Select * From Absen;" objdatareader = objCommand.ExecuteReader objdatareader.Read() Header1 = Replace(objdatareader.GetName(0), "#", ".") Header2 = Replace(objdatareader.GetName(1), "#", ".") Header3 = Replace(objdatareader.GetName(2), "#", ".") srOutput.WriteLine(Header1.ToString() + "," + Header2.ToString() + "," + Header3.ToString()) For i = 0 To objDataTableAccess.Rows.Count - 1 With objDataTableAccess.Rows(i) Field1 = .Item(0).ToString Field2 = .Item(1).ToString Field3 = .Item(2).ToString End With srOutput.WriteLine(Field1.ToString() + "," + Field2.ToString() + "," + Field3.ToString()) Next i srOutput.Close() fsOutput.Close() MsgBox("Export data berhasil", MsgBoxStyle.Information, "Pesan keberhasilan") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Pesan kesalahan") myconnection.close() End Try
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
III. PENUTUP Sekarang pertanyaan-pertanyaan yang ada pada pembaca sudah terjawab, bagaimana cara untuk mengeksport data dari table ke txt / csv file, sangat mudahkan ? Semoga artikel ini membantu para pembaca dalam hal mencari ilmu khusus nya pada bidang pemrograman Vb.Net. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP VII MENGOLAH DATA TEXT FILE I.
Pangantar Apakah para pembaca menerima data text file yang tidak terstruktur dan tidak mempunyai header untuk datanya ? Lalu data tersebut harus di masukkan kedalam tabel. Jika pernah apa yang akan pembaca lakukan ? Data yang berbentuk seperti ini biasanya dari sebuah mesin, sebagai contoh penulis memberikan sample data yang tidak
terstrukur
dari
sebuah
mesin
absensi,
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
contohnya
seperti
ini.“
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
s0371080021122007“. Sedangkan data yang terstruktur contohnya seperti pada file csv (“s0371,08:00,21/12/2007“). Untuk data yang tidak terstruktur, kita tidak bisa langsung mengimport data mentah tersebut kedalam tabel, karena bentuknya belum beraturan. Kita harus menjadikan data mentah tersebut terstruktur terlebih dahulu, dan sebelumnya kita harus mengetahui bentuk/struktur yang di inginkan. Untuk data diatas struktur nya adalah sebagai berikut : s0371 adalah EmployeeID, 0800 adalah jam, dan 21122007 adalah tanggal. Setelah kita mengetahui strukturnya barulah kita dapat mengolah data tersebut dan akhirnya kita insert ke dalam tabel. Untuk catatan struktur dan jumlah karakter harus sudah permanen (baku).
II.
MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan desain table sebagai berikut :
III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle
Fixed3D
Text
Import
Name
Import
StartPosition
CenterScreen
Size
450, 330
Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 4 4
Nama Komponen TextBox DataGrid Button OpenFileDialog
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Jumlah 1 1 3 1
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Mengganti properties masing-masing komponen •
TextBox No 1
•
Nama TextBox Text Name
TextBox1
Properties kosongkan txtFilePath
Button No
Nama Button
1
Button1
2
Button3
3
Button4
BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name
Properties Transparent Flat ... btnOpenFileDlg Transparent Flat Import btnImport Transparent Flat View From TextFile btnView
Lalu desain form seperti gambar dibawah ini.
Menambahkan Class Pada Project Sebelum kita mulai membuat listing pada form, terlebih dahulu
kita membuat
koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CSV.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace
Lalu buat Class didalam folder AccessData dan ubah nama class tersebut menjadi “AccessAbsen.vb“. Dan ketik sintak dibawah ini
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class AccessAbsen Public Function AccessAbsenInsert(ByVal EmployeeID As String, _ ByVal FTime As String, _ ByVal FDate As String) Dim myconnection As New AccessData.DatabaseConnection Dim SqlString As String = "Insert Into Absen " & _ " (EmployeeID,FTime,FDate) Values (?,?,?)" Dim myCmd As New OleDbCommand(SqlString) myCmd.Connection = myconnection.open myCmd.CommandType = CommandType.Text myCmd.Parameters.Add("EmployeeID", EmployeeID) myCmd.Parameters.Add("FTime", FTime) myCmd.Parameters.Add("FDate", FDate) myCmd.ExecuteNonQuery() myconnection.close() End Function End Class End Namespace
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb Imports System.IO
Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim StrSQL As String Dim objDataTableText As New DataTable Dim objDataTableAccess As New DataTable Dim myconnection As New AccessData.DatabaseConnection Protected myConnectionAbsen As New AccessData.AccessAbsen #End Region
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Klik ganda button Open File Dialog dan ketik sintaks di bawah ini. Try OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text Documents(*.txt) |*.txt| All Files (*.*) |*.*" OFD.FilterIndex = 0 OFD.FileName = "" Dim result As DialogResult = OFD.ShowDialog() If result = DialogResult.Cancel Then OFD.FileName = Nothing txtFilePath.Text = "" Else txtFilePath.Text = OFD.FileName End If Catch ex As Exception MessageBox.Show(ex.Message) End Try
Klik ganda button View dan ketik sintaks di bawah ini. Try objDataTable.Clear() strSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check") objDataTable = objDataSet.Tables("mdt_check") myconnection.close() DgView.DataSource = objDataTable Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End TryEnd Try
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Klik ganda button Import, ketik sintaks dibawah ini Try Dim oFile As System.IO.File Dim oRead As System.IO.StreamReader Dim EntireFile, LineIn, tempfile As String If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If oRead = oFile.OpenText(txtFilePath.Text.Trim) While oRead.Peek <> -1 LineIn = oRead.ReadLine() Dim ID As String = LineIn.Substring(0, 5) Dim jam As String = LineIn.Substring(5, 2) & ":" & LineIn.Substring(7, 2) Dim tgl As String = LineIn.Substring(9, 2) & "/" & LineIn.Substring(11, 2) & "/" & LineIn.Substring(13, 4) myConnectionAbsen.AccessAbsenInsert(ID, jam, tgl) End While oRead.Close() MsgBox("Import data berhasil", MsgBoxStyle.Information, "Pesan keberhasilan") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) myconnection.close() End Try
IV. PENUTUP Percobaan yang dilakukan oleh penulis untuk mengimport data dalam waktu 1 menit berhasil mengimport sebanyak kurang lebih 1300 baris. Memang lebih lambat dari artikel sebelumnya, karena pada step ini kita harus mengimport data baris demi baris, karena data harus di olah terlebih dahulu. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP VIII MEMBUAT JAM DIGITAL DUNIA & RUNNING TEXT I.
Pangantar Mungkin para pembaca pernah di tanya tentang jam brapa pada saat ini di suatu negara. Ya kalau negara dekat seperti Malaysia, Singapura pasti udah pada tau semuanya kan… Ayoo brapa, jangan iya-iya aja… J. Tapi kalau di tanya seperti di Jerman, India, China wah mungkin Cuma sedikit di antara kita yang mengetahui nya.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Trus penulis kepikiran, kenapa ga kita buat aja program untuk melihat waktu di negara-negara seluruh dunia, yang kita inginkan. Nah sekarang dengan memanfaatkan sedikit coding dengan menggunakan Date and Time > Time Zone kita sudah bisa membuat program jam digital untuk melihat waktu pada seluruh negara di dunia yang kita inginkan.. Lalu pada artikel ini penulis juga memberikan suatu cara untuk membuat running text sederhana, yang akan memperindah form yang kita buat. Udah pada ga sabaran nich?? Ikutin petunjuk yang ada pada artikel ini dengan baik ya….
II.
DESIGN & CODING a. Buat project baru dengan nama “Jam“ Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle
FixedSingle
Text
Jam Digital
StartPosition
CenterScreen
Size
686, 150
BackColor
Desktop
Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5
Nama Komponen TextBox Label Timer GroupBox PictureBox
Jumlah 5 11 2 1 1
Mengganti properties masing-masing komponen •
TextBox No 1
Nama TextBox TextBox1
Properties Text 10 : 10 : 10 Name txtFilePath TextAlign Center ForeColor Chartreuse Name txtTimeBatam
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
•
2
TextBox2
3
TextBox3
4
TextBox4
5
TextBox5
BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor
Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeSingapore Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeZhuhai Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeIndia Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeAustria Black
Label No
Nama Label
1
Label1
2
Label2
3
Label3
4
Label4
5
Label5
BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor
Properties Silver Fixed3D PM Wed lblDayBatam Silver Fixed3D PM Wed lblDaySingpore Silver Fixed3D PM Wed lblDayZhuhai Silver Fixed3D PM Wed lblDayDelhi Silver
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
•
6 7 8 9 10
Label6 Label7 Label8 Label9 Label10
11
Label11
Fixed3D PM Wed lblDayAustria Batam (Indonesia) Singapore / JB Zhuhai (China) India Austria / Germany lblJalan Kosongkan White OliveDrab
GroupBox No
1
•
FlatStyle Text Name Text Text Text Text Text Name Text ForeColor BackColor
Nama GroupBox GroupBox1
Properties Text ForeColor BackColor
World Timer Watch Desktop AliceBlue
Picture Box No
Nama PictureBox
Properties Image
1
Masukkan gambar yang di sukai StretchImage
PictureBox1 SizeMode
•
Timer No
Nama Timer
1
Timer1
2
Timer2
Name Enabled Interval Name Enabled Interval
Properties tmrWorldClock True 100 TmrText True 200
Setelah itu, masukkan seluruh Text box kedalam groupbox, lalu label 1-10 dan terakhir picturebox. Sehingga bentuk dari form nya seperti pada gambar di bawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Coding Sekarang saat nya kita melakukan coding pada project ini. Double click pada form, lalu ketikkan code seperti dibawah ini. lblJalan.Text
=
"Ini
adalah
program
untuk
melihat
jam
pada
beberapa negara di dunia...."
Code diatas merupakan kalimat yang akan nantinya menjadi running text pada form. Untuk kasus ini para pembaca dapat mengubah kalimat diatas sesuai dengan keinginan masing-masing. Ketikkan code di bawah pada form. Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) Private Structure SYSTEMTIME Public wYear As Short Public wMonth As Short Public wDayOfWeek As Short Public wDay As Short Public wHour As Short Public wMinute As Short Public wSecond As Short Public wMilliseconds As Short End Structure
#Region " World Clock Variables " Dim lpT As SYSTEMTIME Dim dateUTC As Date Dim WTime As Date #End Region
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Private Sub getWorldClock() Try Call GetSystemTime(lpT) 'India dateUTC = Date.Today.UtcNow().AddHours(5.5) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(5.5) txtTimeIndia.Text = WTime.ToLongTimeString lblDayDelhi.Text = dateUTC.DayOfWeek().ToString() 'Austria/Germany dateUTC = Date.Today.UtcNow().AddHours(1.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(1.0) txtTimeAustria.Text = WTime.ToLongTimeString lblDayAustria.Text = dateUTC.DayOfWeek().ToString() 'Zhuhai dateUTC = Date.Today.UtcNow().AddHours(8.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(8.0) txtTimeZhuhai.Text = WTime.ToLongTimeString lblDayZhuhai.Text = dateUTC.DayOfWeek().ToString() 'Indonesia dateUTC = Date.Today.UtcNow().AddHours(7.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(7.0) txtTimeBatam.Text = WTime.ToLongTimeString lblDayBatam.Text = dateUTC.DayOfWeek().ToString() 'Singapore/JB dateUTC = Date.Today.UtcNow().AddHours(8.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(8.0) txtTimeSingapore.Text = WTime.ToLongTimeString lblDaySingpore.Text = dateUTC.DayOfWeek().ToString() Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah selesai double click pada tmrWorldClock dan ketik code seperti di bawah ini :
getWorldClock()
Dan terakhir double click pada komponen TmrText dan ketik code seperti di bawah ini : Dim s1 As String Dim S2 As String s1 = Microsoft.VisualBasic.Left(lblJalan.Text, 1) S2 = Microsoft.VisualBasic.Right(lblJalan.Text, Len(lblJalan.Text) - 1) lblJalan.Text = S2 + s1
Setelah selesai melakukan petunjun seperti diatas, mari kita lihat hasil nya, tekan F5 pada project. Jika para pembaca mengikuti petunjuk sesuai dengan yang penulis intruksikan maka form yang di running akan seperti gambar di bawah ini :
Keren bukan???? Dan tentunya para pembaca bingung kenapa kalau untuk indonesia Add.Hours = 7.0, untuk hal kita dapat melihat informasinya pada Date and Time > Time Zone, seperti pada gambar di bawah ini :
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Jadi jika seandainya para pembaca ingin melihat / mengubah program ini untuk melihat negara yang di inginkan, kita tinggal melihat Time Zone negara tersebut. + (plus) atau – (minus) berapa suatu negara terhadap Greenwich Mean Time (GMT). Dan pada source code tinggal di ubah pada bagian AddHours(nilai). Selamat mencoba ………………………………………… III.
PENUTUP Untuk mendownload source code lengkap nya, dapat di download pada blog penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP IX MEMBUAT PROGRAM AUTO SHUTDOWN I.
Pengantar Seberapa seringkah para pembaca lupa mematikan PC pada saat selesai bekerja, baik siang maupun malam hari. Jika itu sering terjadi tagihan listrik akan meningkat untuk hal-hal yang tidak berguna atau sia-sia. Oleh karena itu banyak sekali software-software baik yang gratis maupun yang bayar beredar di pasaran untuk mengurus hal semacam ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pada artikel ini penulis mengajak para pembaca untuk berkreasi pada komputer sendiri. Yaitu dengan membuat program auto shutdown yang simple tapi sangat berguna bagi kita. Semoga artikel ini bisa membuat kita lebih kreatif dan sering berkreasi baik untuk diri kita sendiri maupun orang lain. DESIGN & CODING a. Buat project baru dengan nama “MatiPC“ Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle
FixedSingle
Text
Shutdown
StartPosition
CenterScreen
Size
328, 184
BackColor
White
Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5 6 7
Nama Komponen DateTimePicker GroupBox Timer Button ContextMenu Notify Icon Label
Jumlah 1 1 1 2 1 1 1
Mengganti properties masing-masing komponen •
TextBox No
1
Nama DateTimePicker
Properties
Format ShowUpDown Custom DateTimePicker1 Format ForeColor Name
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Custom True hh:mm tt Chartreuse DtTime
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
•
Label No 1
•
Nama Label Label1
1
Button1
2
Button1
GroupBox
1
Nama GroupBox GroupBox1
Properties Text BackColor
Set Timer WhiteSmoke
Timer No 1
•
Text Name Text Name
Properties Disabled btnEnabled Hide btnHide
Nama Button
No
•
Properties Time
Button No
•
Text
Nama Timer Timer1
Name Enabled Interval
Properties TimerShutdown False 60000
ContextMenu
Buat menu dengan cara klik component ContextMenu, dan ketik menuitem dengan nama -
Exit
-
View
Seperti pada gambar
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
•
Notify Icon No
1
Nama Notify Icon Notify Icon
Properties Text Icon
Shutdown Cari gambar (*.ico) yang di senangi
Setelah itu, masukkan seluruh DtTime, Label kedalam GroupBox dan design form seperti pada gambar diatas.
Coding Sekarang saat nya kita melakukan coding pada project ini. Double click pada “TimerShutdown”, lalu ketikkan code seperti dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dim P_Time As String P_Time = Format(TimeOfDay, "hh:mm tt") Try If P_Time = Trim(DtTime.Text) Then System.Diagnostics.Process.Start("Shutdown", "/s") ' Untuk shutdown ' System.Diagnostics.Process.Start("Shutdown", "/r") 'Untuk Restart ' System.Diagnostics.Process.Start("Shutdown", "/l") ' Untuk logoff ' System.Diagnostics.Process.Start("Shutdown", "/a") ' untuk abort End If Catch ex As Exception MsgBox(ex.Message) End Try
Code diatas merupakan proses untuk mematikan PC, logika nya jika waktu saat ini sama dengan waktu pada DateTimePicker yang kita setting, maka PC akan mati. Sedangkan code-code di bawah nya yang di kasih comment merupakan proses untuk Restart, Logoff dan abort. Jadi para pembaca dapat memodif program ini sesuai dengan keinginan. Double Click BtnEnabled, dan ketik sintaks seperti di bawah: If btnEnabled.Text = "Disabled" Then DtTime.Enabled = False btnEnabled.Text = "Enabled" TimerShutdown.Enabled = True Else DtTime.Enabled = True btnEnabled.Text = "Disabled" TimerShutdown.Enabled = False End If
Logika dari sintaks diatas adalah, pada saat program dijalankan pertama kali TimerShutdown kita set False untuk enabled, dan text untuk btnEnabled = “Disabled”, dan jika di klik button tersebut maka DateTimePicker menjadi Disabled dan Timer pun dijalankan. Dan proses ini di lakukan sebaliknya.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double click button Hide, dan ketik sintak berikut Me.Opacity = 0% Me.ShowInTaskbar = False
Sintaks diatas untuk menghilangkan form pada layar dan taskbar. Double click menu item exit dan View, ketik sintaks untuk masing menu item seperti dibawah ini : End
Me.Opacity = 100% Me.ShowInTaskbar = True
Jika sudah selesai melakukan proses-proses diatas, coba jalankan program dengan menekan tombol F5.
Untuk menutup program click kana pada icon, dan klik exit. Sedangkan untuk menghilangkan tampilan pada layar klik button Hide. Untuk menampilkan kembali klik kanan dan klik View. Untuk menjalankan auto shutdown tentukan jam yang di inginkan, lalu klik button Disabled dan klik button Hide. Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Jika program ini jalan kita bisa mengipelmentasikan pada computer kita masingmasing tanpa perlu mendownload atau membelinya. Yang lebih penting kita sudah membuat suatu kreasi dan membuat kita lebih kreatif. Dan program ini masih bisa di explore lagi sehingga bisa menjadi program auto shutdown yang lebih bagus dan handal. Selamat mencoba ………………………………………… II.
PENUTUP Untuk mendownload source code lengkap nya, dapat di download pada blog penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP X Library Not Registered I.
Pengantar Artikel kali ini yang penulis buat tidak mengenai pemograman dengan Vb.net, yang seperti biasa nya penulis buat. Tapi kali bagaimana cara kita memperbaiki Visual Studio kita ketika mengalami error. Penulis Pernah ga mengalami error message seperti ini “Library Not Registered”, ketika mau membuat Project baru ,form, class dan sebagainya…
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step X Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Kenapa
hal
itu
bisa
terjadi
?
Seperti
yang
penulis
baca
di
http://support.microsoft.com/kb/823244 karena pada saat kita membuat setup project, kita memasukkan file Extensibility dan VSLangProj, kemudian kita install ke PC kita. Dan ketika kita remove program tersebut dari PC, lalu kita mau membuat project baru maka error “Library Not Registered” muncul. Lalu apakah yang akan kita lakukan???? Sebenarnya ini merupakan pengalaman penulis ketika menghadapi error seperti ini, dengan segala macam cara penulis lakukan untuk memperbaiki Visual Studio penulis. Disini penulis akan menceritakan bagaimana tahap yang penulis lakukan untuk memperbaikinya.. Setelah melakukan pencarian dengan google, penulis menumukan solusi dari Microsoft dengan link diatas. Tapi penulis sangat kaget karena harus Repair atau ReInstal VS.Net. Tapi Itu bukan solusi yang menarik dan baik bagi penulis.. Setelah sedikit kecewa dengan solusi yang diberikan oleh microsoft, maka penulis berusaha mencari lagi solusi lain, yaitu dengan cara Register ulang file vcproj.dll (regsvr32.exe
"C:\Program
Files\Microsoft
Visual
Studio
.NET
2003\Vc7\vcpackages\csproj.dll"). wah penulis sangat bahagia karena ada cara yang sangat gampang untuk memperbaiki. Tetapi setelah melakukan hal diatas penulis mendapatkan pesan seperti dibawah, lalu penulis mencoba melakukan pencarian file tersebut (csproj.dll) didalam folder, ternyata file tersebut tidak ada.
Menurut penulis mungkin hilang sewaktu penulis UnInstall program, lalu penulis mencari file tersebut di internet, syukur alhamdulillah penulis mendapatkan nya. Lalu
file
tersebut
di
copy
kedalam
dan........................................
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step X Junindar
folder
dan
ulangi
register
file,
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pesan yang sama muncul seperti diatas, penulis sangat kecewa dan kecewa.. Akhir nya udah mentok ya seperti emang harus di Repair VS.Net nya. Lalu penulis melakukan Repair VS.Net yang ada di PC, setelah memakan waktu 5-10 menit, Restart PC lalu buka VS.Net dan buat project apa yang terjadi “LIBRARY NOT REGISTERED“ yang muncul. Semakin putus asa, penulis melakukan searching dimana-mana tapi solusi nya selalu sama saja Register csproj.dll. Dengan prasaan yang putus asa penulis akhirnya memutuskan langkah terakhir yaitu dengan ReInstall.. Penulis UnInstall VS.Net lalu Reboot, Install lalu ReBoot. Lumayan memakan waktu yang lumayan. Akhirnya selesai juga, dengan prasan PEDE penulis buka aplikasi dan buat project baru TETAPI hal paling penulis takutkan muncul lagi yaitu muncul kalimat yang paling penulis takutkan di waktu-waktu ini “LIBRARY NOT REGISTERED“. Betapa kagetnya ketika melihat hal tersebut, sepertinya ini akan menjadi pekerjaan yang paling di takutkan yaitu dengan cara Intall OS…. Wahh TIDAKKKKKKKKKKKKKK….. Lalu dengan prasaan yang tidak semangat penulis mencoba mencari lagi solusi dengan melakukan pencarian dengan google, penulis tidak tau sudah sampai page ke berapa akhir nya penulis membuka sebuah link, yang memberikan solusi dengan mengisntall Windows Script 5.6, lalu hal tersebut pun penulis lakukan, setelah melakukan proses install yang Cuma 1 menit, lalu Reboot. Maka dengan prasaan yang tidak yakin penulis mencoba membuat project baru, lalu apa yang terjadiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii, ternyata dan tak pernah penulis duga project tersebut berhasil dibuat.. itu berarti tidak ada error lagi pada VS.Net penulis.. PENUTUP Sebenarnya dengan sengaja penulis menerangkan dengan panjang lebar solusi untuk menyelesaikan masalah tersebut, karena itu lah yang penulis alami.. penulis juga pengen para pembaca juga ikut merasakan apa yang penulis alami..
..
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step X Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP XI Membuat Program Stopwatch I.
Pengantar Didalam pemograman sering sekali kita melupakan hal-hal sederhana karena kita selalu saja memikirkan sesuatu yang sangat sulit, sehingga nanti nya hal yang mudah akan kita temui menjadi sangat susah diselesaikan. Untuk itu penulis mengajak para pembaca untuk membuat program yang sederhana dan nantinya bisa kita gunakan atau manfaatkan pada computer kita. Program yang akan kita buat adalah Program Stopwatch. Untuk artikel ke 11 ini saya asumsikan
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
para pembaca sudah membaca seluruh artikel saya di www.ilmukomputer.com jadi penyampaian dan penyajiannya akan sangat ringkas.
II.
DESIGN & CODING
Gambar Design Form Stopwatch
Buatlah sebuah form seperti pada gambar diatas dengan 3 buah button, 1 buah label, dan 1 buah Timer. Lalu susunlah komponen-komponen tersebut seperti gambar diatas. Untuk komponen timer nya ubah Properties Interval nya menjadi “100”.
Sekarang buka jendela Code untuk form, lalu ketikkan sintaks di bawah, seperti pada gambar. Dim Mili, Sec, Min, hr As Integer Dim Countr As Integer
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu double click Form dan ketikkan sintaks di bawah Mili = 0 Sec = 0 Min = 0 hr = 0
Double click button Start Timer1.Enabled = True
Double click button Stop Timer1.Enabled = False
Double click button Reset Dim mYes_No As String = MsgBox("Do you want Reset the Timer ?", vbYesNo) If mYes_No = vbYes Then Mili = 0 Sec = 0 Min = 0 hr = 0 lblTime.Text = "" Timer1.Enabled = False End If
Dan terakhir double click komponen Timer dan ketikkan sintaks berikut.. Dim Mili2, Sec2, Min2, hr2 As String Countr = Countr + 1 Mili2 = Countr If Countr = 10 Then Sec = Sec + 1 Countr = 0 End If If Sec = 60 Then Min = Min + 1 Sec = 0 End If If Min = 60 Then hr = hr + 1 Min = 0 End If Sec2 = Format(Val(Sec), "00") Min2 = Format(Val(Min), "00") hr2 = Format(Val(hr), "00") blTime.Text = hr2 & ":" & Min2 & ":" & Sec2 & ":" & Mili2
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu jalankan program, dan coba uji seluruh button yang ada, apakah berjalan seperti Stopwatch pada umumnya……
PENUTUP Seperti yang penulis katakan sebelumnya kita selalu lupa akan hal yang mudah-mudah, seperti hal nya membuat program ini.. mungkin banyak diantara pembaca yang tidak menyangkan begitu simple nya cara membuat program Stopwatch ini.. Mudah-mudah artikel ini bermanfaat dan dapat di kembangkan lebih baik lagi. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP XII Mengganti Warna Form Secara Permanen (Color Setting) I.
Pengantar Untuk seorang programmer salah satu hal yang harus di perhatikan adalah dengan memanjakan para pengguna program. Hal itu bisa di lakukan dengan membuat program yang mudah di gunakan, memberikan keleluasan user dalam menggunakan program. Dalam memberikan keleluasan bisa dengan menyediakan suatu fungsi
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
untuk para pengguna dalam hal melakukan penyetingan program seperti warna, tulisan dan jika memungkinkan dalam hal bahasa. Jika hal itu dapat dilakukan maka seorang programmer dapat dikatakan sebagai programmer yang tidak dictator. Karena biasanya dalam hal pemilihan warna atau tulisan untuk program tidak jarang seorang programmer hanya mengikuti apa yang di sukainya saja. Oleh karena itu dalam era reformasi yang demokratis ini penulis membuat artikel bagaimana kita (programmer) dapat membuat fungsi untuk mensetting warna sesuai dengan apa yang di sukai oleh pengguna.
II.
DESIGN & CODING
Gambar Design Form
Buatlah sebuah form seperti pada gambar diatas dengan 2 buah button, 1 buah ColorDialog. Ubah Properties Name dari ColorDilaog1 Menjadi dlgWarna. Lalu susunlah komponen-komponen tersebut seperti gambar diatas.
Untuk pertama kalu buat module pada project kita, seperti gambar dibawah ini. Ubah nama Module menjadi Module.vb Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Gambar Cara Membuat Module
Gambar Add New Item
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pada jendela module ketikkan sintaks seperti dibawah ini. Module _Module Public AppPath As String = Replace(Replace(Replace(Application.ExecutablePath, Application.ProductName + ".EXE", ""), Application.ProductName + ".exe", ""), Application.ProductName + ".exe", "") End Module
Sintaks diatas untuk mengambil alamat dari folder dimana file exe disimpan, jadi AppPath ini bersifat Fleksibel. Klik ganda pada Form1. Note : Tulisan berwarna hijau merupakan comment untuk menjelaskan maksud dari code. Try 'jika file setting tidak ada folder Bin, 'maka kita akan membuat file tersebut dengan nama "Setting" 'Proses ini untuk pertama kali program dijalankan If System.IO.File.Exists(AppPath & ("Setting.txt")) = False Then 'mendeklarasikan file Setting yang akan di buat lalu di tulis 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting.txt")) 'Mesetting warna untuk pertama kali di jalankan adalah warna Default Form (Control) Dim c As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml("Control") 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file setting sw.WriteLine("#" & Hex(c.ToArgb)) sw.Close() ' Menutup file yang dibuka Else 'jika File setting sudah ada Dim color As String 'mendklarasikan file Setting yang akan di baca 'AppPath adalah Nama alamat dimana file exe disimpan Dim sr As New System.IO.StreamReader(AppPath & ("Setting.txt")) 'Mengambil text dari file Setting color = sr.ReadLine() 'Menutup File sr.Close() 'Mesetting warna dari file Setting Dim color2 As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(color) 'Mengubah Warna untuk Background form sesuai dengan file Setting Me.BackColor = color2 End If Catch ex As Exception MsgBox(ex.Message) End Try
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Klik ganda button Show Color, dan ketik sintaks seperti dibawah Try 'Menampilkan Dialog warna.. 'Jika menekan tombol Ok pada Dialog Warna If dlgWarna.ShowDialog() = System.Windows.Forms. _ DialogResult.OK Then 'Background Form sama dengan warna yang di pilih pada dialog warna Me.BackColor = dlgWarna.Color 'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja) 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt")) 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file Setting2 Dim a As String = Hex(dlgWarna.Color.ToArgb) 'Memotong 2 digit pertama dari hasil convert a = a.Substring(2) 'Menuliskan hasil convert ke dalam file Setting2 sw.WriteLine("#" & a) sw.Close() 'Menutup file System.IO.File.Delete(AppPath & ("Setting.txt")) 'Mengganti nama File Setting2 menjadi Setting System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt")) End If Catch ex As Exception MsgBox(ex.Message) End Try
Klik ganda button Restore Color, dan ketik sintaks seperti dibawah Try 'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja) 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt")) 'Mesetting warna untuk pertama kali di jalankan adalah warna Default Form (Control) Dim color2 As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml("Control") 'Mengubah Warna untuk Background menjadi default Me.BackColor = color2 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file Setting2 sw.WriteLine("#" & Hex(color2.ToArgb)) sw.Close() 'menutup file Setting2 System.IO.File.Delete(AppPath & ("Setting.txt")) 'Menghapus File Setting dari Drive 'Mengganti nama File Setting2 menjadi Setting System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt")) Catch ex As Exception MsgBox(ex.Message) End Try
Setelah langkah-langkah diatas sudah dilakukan dengan benar, maka jalankan program dengan menekan tombol F5.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu akan muncul form seperti dibawah ini.
Gambar Form Setelah dijalankan
Lalu tekan tombol show color, maka dialog color akan tampil seperti gambar dibawah ini.
Gambar Dialog Warna
Pilih warna yang di sukai, lalau tekan tombol OK. Maka form tadi akan berubah warna seperti yang kita pilih.
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Gambar Form Setelah dilakukan perubahan warna
Lalu coba matikan aplikasi dan hidupkan lembali, maka warna form masih seperti dengan warna yang terakhir kali kita pilih. Untuk mengembalikan warna seperti semula (default) tekan tombol Restore Color.
PENUTUP Ini merupakan salah satu cara dalam hal mengubah warna secara permanent. Mungkin masih banyak lagi cara yang lain seperti menyimpan text ke dalam Registry dan lain-lain. Mudah-mudah artikel ini bermanfaat dan dapat di kembangkan lebih baik lagi. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP XIII Membuat Aplikasi Database dengan menggunakan Vb.Net 2003 dan SQL Server 2000
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
I.
Pengantar Artikel ini saya buat, karena sangat banyak sekali Email yang masuk ke saya untuk membuat artikel Vb.Net dengan Sql Server sebagai database nya. Setelah sekian lama akhir nya pada artikel saya yang ke 13 ini baru dapat saya realisasikan. Untuk studi kasus pada artikel ini saya ambil dari artikel pertama saya (Step 1). Oleh karena itu tata cara penulisan dan penyampaian sangat mirip dengan step 1. Dalam artikel ini para pembaca akan, di bimbing bagaimana membuat program aplikasi sederhana dari mulai membuat Database, Table, Stored procedure pada Sql Server 2000 sampai pada pemogramannya dengan Vb.net 2003.
II.
A TIME TO MAKE PROGRAM 2.1 Desain Form
Gambar Flash Form
Gambar Form Login
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Untuk membuat program seperti diatas, mari ikuti langkah-langkah dibawah ini. Sebelum kita masuk dalam pembuatan program, terlebih dahulu kita buat database pada Sql Server. Buatlah database dengan nama Coba. Ikuti langkah-langkah dibawah ini. Pada jendela SQL Server Enterprise Manager, klik kanan pada folder Database lalu pilih New Database.
Lalu akan muncul jendela Database properties. Ketikkan Coba untuk nama database yang akan kita buat. Dan klik button OK.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah itu di bawah folder Database, akan terlihat database yang baru saja kita buat (Coba). Klik tanda + pada database coba, dan klik kanan pada root Table dan pilih New Table.
Gambar Desain Table Users
Buatlah field seperti gambar diatas, untuk membuat Primary Key, klik row Username lalu klik tanda kunci pada toolbar diatas. Setelah selesai klik Save untuk menyimpan design table dengan nama “Users”. Setelah selesai buat satu lagi table dengan nama Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
TbUsaha, dengan nama field IdUsaha dan NamaUsaha (IdUsaha sebagai Primary Key nya).
Gambar Desain Table TbUsaha
Setelah selesai dalam pembuatan database, sekarang kita masuk dalam pembuatan program. Buka Aplikasi Visual Studio.Net, dan pilih New Project. Ketikan nama project sesuai dengan keinginan anda. Simpan di drive pada PC anda (Untuk drive bebas juga, sekarang jamannya hak asasi manusia, tidak ada pemaksaan). 3.1.1 Membuat StartUp Form. Untuk pertama kali, .Net akan memberikan Default sebuah form, dengan nama Form1. Sekarang tugas kita adalah merubah tampilan Form1 tersebut menjadi seperti tampilan Flash Form seperti diatas. Ubah properties Form1 seperti dibawah ini. BackColor
White
FormBorderStyle
FixedToolWindow
Text
(Kosongkan)
Name
StartUp
StartPosition
CenterScreen
ControlBox
False
ShowInTaskbar
False
Setelah selesai melakukan perubahan Form1 seperti diatas. Sekarang kita tambah aksesoris pada form StartUp. Tambahkan dua (2) buah label, 1 ProgressBar dan 1 buah PictureBox. Sehingga tampilan seperti pada gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Desain Splash Form
Untuk gambar diatas silahkan ganti dengan gambar yang anda suka dan jika anda tidak suka dengan tampilan ini, anda dapat merubah sesuai dengan keinginan anda. Setelah selesai mendesain form, tambahkan sebuah timer dan beri nama Splash_Timer. 3.1.2 Membuat Login Form. Tambahkan sebuah Form ke dalam aplikasi. Caranya Klik Kanan Pada Project anda Pilih Add>Add Windows Form. Ganti properties Form baru tersebut seperti dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
FormBorderStyle
Fixed3D
Text
Login
Name
FrmLogin
StartPosition
CenterScreen
ControlBox
False
ShowInTaskbar
False
Tambahkan 2 buah label, 2 buah TextBox dan 2 buah Button Ubah properties dari masing-masing component seperti dibawah ini. Label 1 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Text
Username
Label 2 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Text
Password
Textbox 1 BorderStyle
Fixed3D
Name
txtUser
Textbox 2 BorderStyle
Fixed3D
Name
txtPassword
PasswordChar
*
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Button1 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Flatstyle
Flat
Text
Login
Name
btnlogin
Button2 BackColor
LightBlue
Font+
Microsoft Sans Serif, 8.25pt, style=Bold
Flatstyle
Flat
Text
Cancel
Name
btnbatal
Setelah selesai merubah properties seperti di atas, susun dan disain form seperti dibawah ini.
Gambar Desain Form Login
3.1.3 Membuat Menu Utama Sekarang kita akan membuat Form Utama, tapi untuk sementara jangan di modifikasi. Untuk saat ini kita ganti Form Name menjadi MainMenu
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
2.2 Source Code 2.2.1
Source Code Form Splash
Setelah kita selesai mendesain 2 buah form, sekarang waktunya kita bermain dengan source code. Pada Form splash, klik 2 kali (Double Click) component Splash_Timer . Dan ketikkan listing seperti dibawah ini. Private Sub Splash_Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Splash_Timer.Tick Dim cur As New frmLogin ProgressBar1.Value += 4 If ProgressBar1.Value = 100 Then Splash_Timer.Dispose() Me.Visible = False cur.Show() End If End Sub
Note : anda dapat mencoba mengubah nilai value pada progressbar. Dengan menaikkan atau mengurangi nilai value maka anda melihat perubahan progessbar berjalan, apakah semakin cepat atau lambat. Itu semua tergantung pada anda. Coba jalankan program, gmana? apakah sudah sesuai dengan yang anda inginkan ???????? 2.2.2
Source Code Form Login
Sebelum kita mulai membuat listing pada form login, terlebih dahulu kita membuat koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class
dengan
nama
“DataBaseConnection.vb”
(Klik
kanan
Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Imports System.Data.SqlClient Namespace AccessData Public Class DataBaseConnection Public Function open() As SqlClient.SqlConnection 'Server = Nama dimana kita menginstall SQL server 'Database = Nama database yang akan di akses 'User ID= Account untuk SQL server, sebagai default sa (system administrator) 'Password = Password untuk login ke SQL server Dim conect As New SqlClient.SqlConnection("Server='TESTSERVER';Database='Coba'; " & _ " User ID='sa';Password='testserver'") conect.Open() Return conect End Function Public Function close() As SqlClient.SqlConnection Dim conect As New SqlClient.SqlConnection("Server='TESTSERVER';Database='Coba'; " & _ " User ID='sa';Password='testserver'") conect.Close() Return conect End Function End Class End Namespace
Note :Dengan membuat koneksi menggunakan Class, untuk setiap proses yang berhubungan dengan database anda cukup dengan memanggil nama Class tersebut, dengan mendeklarasikan Class tersebut. Contoh : Dim MyConnection As New AccessData.DatabaseConnection Setelah selesai membuat Class, selanjutnya kita akan membuat module untuk menyimpan Variable global yang sering kita gunakan dalam pembuatan program. Buat satu module caranya sama dengan membuat Class, dan beri nama “module.vb”. (Klik kanan Folder “AccessData”>Add>Add Module). Ketikan listing di bawah ini pada module yang baru anda buat.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Module _Module Public Msg As Integer Public intResponse As Integer Public Username, Password As String End Module
Setelah selesai sekarang kita kembali pada Form Login. Untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.SqlClient
Dan buat variable global untuk form Login ini, seperti dibawah ini. #Region "deklarasi" Dim MyConnection As New AccessData.DataBaseConnection Dim f_utama As New MainMenu Dim objConnection As SqlConnection Dim objCommand As SqlCommand Dim objDataAdapter As SqlDataAdapter Dim objdatareader As SqlDataReader Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim mProcess As String #End Region
Ketikkan listing diatas dibawah Inherits System.Windows.Forms.Form Selanjutnya kita buat listing untuk mencari apakah Username ada pada table Users Sub CheckUser() objDataTable.Clear() StrSQL = ("SELECT * FROM [Users] WHERE [UserName] " & _ " = '" & Trim(txtuser.Text) & "' ") objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_user") objDataTable = objDataSet.Tables("MDT_user") MyConnection.close() End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Fungsi dari listing adalah, mencari Username apakah ada pada table Users. Syntax SQL
("SELECT
*
FROM
[Users]
WHERE
[UserName]
=
'"
&
Trim(txtuser.Text) & "' "), Maksudnya adalah menampilkan data user dengan
criteria Username. Dan jumlah banyaknya data akan disimpan pada ObjDataTable. Kemudian ketikkan listing untuk menampilkan data users (Username,Password). Sub Find_User() objCommand = MyConnection.open.CreateCommand objCommand.CommandText = ("Select [UserName],[Password] from [Users] where [UserName]='" & Trim(txtuser.Text) + "' ") objDataReader = objCommand.ExecuteReader objDataReader.Read Username = objDataReader.Item("Username") Password = objDataReader.Item("Password") MyConnection.close() End Sub
Untuk sekilas sepertinya listing antara Sub CheckUser sama dengan Sub Find_User. Tapi pada kenyataannya fungsi dari kedua listing ini berbeda. Untuk Sub Find_User disini kita menampilkan value dari username & Password. Jika anda sudah mengerti dengan yang saya maksud, mari lanjutkan pelajaran kita. Sekarang Double Click Button Login. Ketikan Listing seperti dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click ‘untuk mengaktifkan fungsi CheckUsers CheckUsers ‘mengharuskan user memasukkan username dan password If txtuser.Text.Trim() = "" And _ txtpassword.Text.Trim() = "" Then Msg = MsgBox("Masukan Username dan Password", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtuser.Text = "" Then Msg = MsgBox("Masukan Username ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtpassword.Text = "" Then Msg = MsgBox("Masukan password ", MsgBoxStyle.OKOnly, "Pesan") txtpassword.Focus() Else Try ‘Menghitung jumlah baris yang ada pada ObjDataTable If objDataTable.Rows.Count <= 0 Then ‘Jika jumlah baris = 0 / username tidak ada pada table Msg = MsgBox("Username tidak ada ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() Else ‘Jika username ada pada table / jumlah baris ObjdataTable > 0 ‘Mengaktifkan fungsi mencari nilai value Username & Password Find_User() ‘Jika Password yang diketik pada TextBox tidak sama pada Database If Password <> Trim(txtPassword.Text) Then Msg = MsgBox("Password salah!", MsgBoxStyle.OKOnly, "Pesan") txtPassword.Focus() Exit Sub Else ‘Jika Sama Me.Hide() f_utama.ShowDialog() txtuser.Text = "" txtPassword.Text = "" End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses" _ & vbCrLf & Err.Description) End Try End2.3 If End Sub
III.
Setelah ini Double Click button Cancel, dan ketikkan listing seperti berikut
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click intResponse = MessageBox.Show("Are you sure want to quit ?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If intResponse = MsgBoxResult.Yes Then End Else Exit Sub End If End Sub
Sekarang anda telah selesai membuat aplikasi yang sangat sederhana. Kalau berhasil jangan senang dulu, karena masih banyak sekali rintangan yang akan kita hadapi untuk kasus-kasus berikutnya. Bagi yang gagal jangan berkecil hati, jangan ragu dan sungkan silahkan E-Mail ke saya. Jika program yang anda buat tidak ada masalah, kita lanjutkan pelajaran kita. Sekarang mari kita modif form utama kita yang masih polos, menjadi seperti berikut :
Ubah Properties pada form utama seperti di bawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
BackColor
White
FormBorderStyle
Fixed3D
BackGroundImage
Bebas mau gambar apa
Text
MainMenu
Name
MainMenu
StartPosition
CenterScreen
Icon
Bebas juga
Anda dapat memodif form sesuai dengan keinginan anda. Dan kita tambah komponen MainMenu1 dan StatusBar1 pada Form MainMenu. Buat seperti dibawah ini. File>>Exit
Inputan>>Input Usaha
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Ketik listing seperti dibawah ini. Public Sub BuatPanelStatusBar() 'Membuat panel dan mengatur properti teks. StatusBar1.Panels.Add("Ready..") StatusBar1.Panels.Add("") StatusBar1.Panels.Add("") 'Mengatur properti panel StatusBar. 'Mengatur properti panel AutoSize. StatusBar1.Panels(0).AutoSize = _ StatusBarPanelAutoSize.Spring StatusBar1.Panels(1).Width = 200 StatusBar1.Panels(2).Width = 200 ' Mengatur properti panel BorderStyle. StatusBar1.Panels(0).BorderStyle = _ StatusBarPanelBorderStyle.Raised StatusBar1.Panels(1).BorderStyle = _ StatusBarPanelBorderStyle.Sunken StatusBar1.Panels(2).BorderStyle = _ StatusBarPanelBorderStyle.Sunken ' Mengatur perataan panel StatusBar1.Panels(0).Alignment = _ HorizontalAlignment.Left StatusBar1.Panels(1).Alignment = _ HorizontalAlignment.Center StatusBar1.Panels(2).Alignment = _ HorizontalAlignment.Center 'Menambahkan properti teks pada panel ketiga dengan 'tanggal(sekarang) StatusBar1.Panels(1).Text = "Selamat Datang" & " " & Username StatusBar1.Panels(2).Text = _ System.DateTime.Today.ToLongDateString() 'Mengatur properti icon pada panel ketiga StatusBar1.ShowPanels = True End Sub
Double_Click Form Utama BuatPanelStatusBar()
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah itu Double Click menu item Exit dan ketik listing seperti dibawah ini : End
Lalu Double Click menu item Inputan dan ketikan listing seperti dibawah ini : Dim f_usaha As New Frm_Usaha f_usaha.ShowDialog() f_usaha.Dispose()
Setelah selesai kita mendesain Form Utama (MainMenu), sekarang kita akan membuat Form Untuk Penginputan Usaha. Sekarang tambahkan sebuah form baru pada project yang kita buat. Ubah properties form seperti dibawah ini.
BackColor
LightBlue
FormBorderStyle
Fixed3D
Text
Form Usaha
Name
Frm_usaha
StartPosition
CenterScreen
ControlBox
False
ShowInTaksbar
False
Dan tambahkan 11 Button, 1 GroupBox dan 2 TextBox. Susun semua komponen seperti dibawah ini. 16 15
12
14
13 4
1
6
7
2
8
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
3
9
1
11
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
5 Dan ubah properties masing-masing komponen seperti dibawah ini : 1. BackColor
Transparent
FlatStyle
Flat
ForeColor
Black
Text
<<
TextAlign
MiddleCenter
Name
btnAwal
ShowInTaksbar
False
Untuk menghemat waktu dan tempat, properties setiap button hamper sama yang beda Cuma di nama dan text. 2. Text
<
Name
btnMundur
Text
>
Name
btnMaju
Text
>>
Name
btnAkhir
Text
F1 Add
Name
btnAdd
Text
F2 Delete
Name
btnDelete
3.
4.
5.
6.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
7. Text
F3 Edit
Name
btnEdit
Text
F4 Find
Name
btnCari
Text
Save (Ctrl+S)
Name
btnSave
Text
F5 Cancel
Name
BtnCancel
Text
F6 Close
Name
btnClose
BorderStyle
Fixed3D
Name
txtID
Text
“” (Kosong)
BorderStyle
Fixed3D
Name
txtNama
Text
“”(Kosong)
8.
9.
10.
11.
12.
13.
Untuk Nomor 14-16 ganti Text pada properties sesuai pada gambar.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Jika sudah selesai mendesain form tersebut, kita akan lanjutkan membuat class untuk pemrosesan data. Buat satu class didalam folder AccessData dengan nama AccessUsaha. Tapi sebelum itu kita melakukan coding pada Class itu, hal yang harus kita lakukan adalah dengan membuat Stored Procedures di SQL Server. Ikuti langkah-langkah dibawah ini. Pada jendela Enteprise Manager klik tanda + pada database Coba, lalu di bawah nya akan terlihat Stored Procedures, klik kanan lalu New Stored Procedure. Setelah itu akan muncul jendela Stored Procedure. Dan ketikkan sintaks seperti dibawah ini. Untuk menyimpannya klik button OK, sedangkan untuk mengecek syntak dari SQL nya klik button Check Syantax. CREATE PROCEDURE [SpInsertUsaha] (@IDUsaha [varchar](3), @NamaUsaha [varchar](50)) AS INSERT INTO [TbUsaha] ( [IDUsaha], [NamaUsaha]) VALUES ( @IDUsaha, @NamaUsaha) GO Lalu buat 2 Stored Procedure dan ketikkan sintaks dibawah untuk masing-masing Stored Procedure. CREATE PROCEDURE [SpUpdateUsaha] (@IDUsaha [varchar], @NamaUsaha [varchar](50)) AS UPDATE [TbUsaha] SET [NamaUsaha] WHERE ( [IDUsaha] GO
= @NamaUsaha = @IDUsaha)
CREATE PROCEDURE [SpDeleteUsaha] (@IDUsaha [varchar]) AS DELETE [TbUsaha] WHERE ( [IDUsaha] = @IDUsaha) GO Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Setelah melakukan hal diatas dengan benar maka kita akan memiliki 3 Stored Procedures, seperti pada gambar dibawah ini.
Dan kita kembali pada jendela Vb.Net, pada Class AccessUsaha, ketikkan sintaks berikut. Imports System.Data Imports System.Data.SqlClient Namespace AccessData Public Class AccessUsaha Public Function AccessUsahaInsert(ByVal IDUsaha As String, _ ByVal NamaUsaha As String) As SqlDataReader Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpInsertUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha Dim parameterNamaUsaha As SqlParameter = New SqlParameter("@NamaUsaha", SqlDbType.VarChar, 50) parameterNamaUsaha.Value = NamaUsaha With myCommand.Parameters .Add(parameterIdUsaha) .Add(parameterNamaUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Public Function AccessUsahaUpdate(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpUpdateUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha Dim parameterNamaUsaha As SqlParameter = New SqlParameter("@NamaUsaha", SqlDbType.VarChar, 50) parameterNamaUsaha.Value = NamaUsaha With myCommand.Parameters .Add(parameterIdUsaha) .Add(parameterNamaUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function Public Function AccessUsahaDelete(ByVal IDUsaha As String) Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpDeleteUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha
With myCommand.Parameters .Add(parameterIdUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function End Class End Namespace
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Jika sudah selesai, mari kita lanjutkan membuat program di dalam Form Usaha. Dan buat variable global form seperti dibawah ini. #Region "deklarasi" Dim MyConnection As New AccessData.DataBaseConnection Dim objConnection As SqlConnection Dim objCommand As SqlCommand Dim objDataAdapter As SqlDataAdapter Dim objdatareader As SqlDataReader Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Public mProcess As String Dim mPosition As Integer #End Region
Lalu ketikan fungsi-fungsi berikut : Private Sub clear() 'Mengkosongkan isi TextBox txtID.Text = "" txtNama.Text = "" End Sub
Private Sub enabled_off() 'Menonaktifkan Textbox txtID.Enabled = False txtNama.Enabled = False End Sub Private Sub enabled_on() 'Mengaktifkan TextBox txtID.Enabled = True txtNama.Enabled = True End Sub Sub ViewData()
'Menampilkan Data IDUsaha dan Nama Usaha dengan Criteria “IDUsaha” pada masing-masing Textbox objCommand = MyConnection.open.CreateCommand objCommand.CommandText = "select * from TbUsaha " & _ " Where IDUsaha = '" & Trim(txtID.Text) & "'" objdatareader = objCommand.ExecuteReader While objdatareader.Read txtID.Text = objdatareader.Item("IDUsaha").ToString txtNama.Text = objdatareader.Item("NamaUsaha").ToString End While MyConnection.close End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub Displaydata() Try
'Menyimpan jumlah baris Tabel “TbUsaha” pada Objdatatable objDataTable.Clear() StrSQL = "select * from TbUsaha" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close()
End Try End Sub
Sub displaydata2() Try
'Menampilkan Data “IDUsaha” dan “NamaUsaha” berdasarkan posisi Baris yang dicari StrSQL = "select * from TbUsaha" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") mPosition = BindingContext(objDataTable).Position With objDataTable.Rows(mPosition) txtID.Text = .Item("IDUsaha") txtNama.Text = .Item("NamaUsaha") End With Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Sub cari() Try
'untuk mengecek apakah IDUsaha yang diinputkan ada pada Tabel “TbUsaha” objDataTable.Clear() strSQL = "select * from [TbUsaha] where " & _ " IDUsaha = '" & Trim(txtID.Text) + "'" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub
Double Click “btnclose” dan ketik seperti dibawah ini : objDataTable.Clear() Me.Close()
Double Click “btncancel” dan ketik seperti dibawah ini : enabled_off() clear() mProcess = "" btnsave.Enabled = False btnsave.Text = "Save"
Double Click “btnadd” dan ketik seperti dibawah ini : mProcess = "ADD" btnsave.Text = "Save Add" enabled_on() btnsave.Enabled = True txtID.Focus() clear()
Double Click “btnEdit” dan ketik seperti dibawah ini :
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
If mProcess <> "View" Or txtNama.Text = "" Then MsgBox("Lakukan pencarian terlebih dahulu, sebelum proses edit") Else enabled_on() txtNama.Focus() mProcess = "EDIT" btnsave.Text = "Save Edit" btnsave.Enabled = True End If
Pilih ClassName = txtNama, Seperti dibawah ini
Dan Pilih Method Name = Leave. Untuk selanjutnya penulis hanya menyebutkan ClassName dan MethodName saja, untuk visual tidak akan diberikan.
Lalu ketik seperti dibawah ini. btnsave.Focus()
Double Click Form Usaha, dan ketik seperti berikut : Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Try StrSQL = "Select * From TbUsaha" objCommand = New SqlDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) End Try clear() enabled_off()
Double Click btncari, dan ketik seperti berikut : mProcess = "View" txtID.Enabled = True txtID.Focus()
Double Click btnSave, dan ketik seperti berikut :
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
If btnsave.Text = "Save Add" Then Try cari() If objDataTable.Rows.Count >= 1 Then MsgBox(" Kode " & "" & txtID.Text & "" & " sudah ada") txtID.Focus() ElseIf txtID.Text = "" Or txtNama.Text = "" Then MsgBox("Isikan data yang mau di Input terlebih dahulu") txtID.Focus() Else Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaInsert(txtID.Text, txtNama.Text) enabled_off() btnsave.Enabled = False btnsave.Text = "Save" btnadd.Focus() Displaydata() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) End Try Else Try cari() If objDataTable.Rows.Count = 0 Then MsgBox(" Kode : " & "" & txtID.Text & "" & " tidak ada pada table") Else Dim mYes_No As String = MsgBox("Anda yakin data mau diupdate ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaUpdate(txtID.Text, txtNama.Text) enabled_off() btnsave.Text = "Save" btnsave.Enabled = False btnadd.Focus() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses update" _ & vbCrLf & Err.Description) End Try End If objDataTable.Clear()
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Pilih ClassName = txtNama Dan Pilih Method Name = KeyUp If e.KeyCode = Keys.Enter Then btnsave.PerformClick() ElseIf e.KeyCode = Keys.Escape Then btncancel.PerformClick() End If
Pilih ClassName = txtNama, Seperti dibawah ini Dan Pilih Method Name = KeyUp If mProcess = "View" Then Try cari() If objDataTable.Rows.Count = 0 Then MsgBox("Data yang dicari tidak ada") Else ViewData() btndelete.Focus() End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses pencarian" _ & vbCrLf & Err.Description) MyConnection.close() End Try End If
Double_Click btnakhir BindingContext(objDataTable).Position = objDataTable.Rows.Count - 1 displaydata2()
Double_Click btnmaju BindingContext(objDataTable).Position += 1 displaydata2()
Double_Click btnmundur BindingContext(objDataTable).Position -= 1 displaydata2()
Double_Click btnawal BindingContext(objDataTable).Position -= 1 displaydata2()
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sekarang coba anda jalankan program, apakah program sudah berjalan dengan semestinya, jika belum bisa seperti biasa…… Tentu anda akan merasa heran, kenapa pada button Add, Edit dll ada semacam shortcut. Tetapi jika digunakan shortcut-shortcut tersebut tidak bekerja. Mungkin merupaka suatu kelemahan pada VB.Net tidak menyediakan shortcut untuk component button, tidak seperti Delphi yang menyediakan shortcut untuk button . Tapi jika anda seorang programmer yang memanfaatkan kelebihan dari bahasa pemrograman, masalah itu semua akan bisa diatasi. Ok, sekarang penulis akan memberikan solusi gimana cara membuat shortcut untuk menjalankan perintah pada suatu button. Tambahkan komponen MainMenu pada Form Usaha. Lalu buat seperti berikut :
Pada masing-masing Properties MenuItem, buat Visible=False. Dan shortcut sesuai dengan button. Contoh : Untuk Button dengan Text : F1 Add, pada menu item add properties>Shortcut = F1. Dan selanjutnya..Buat sendiri ya…… ???????. Lalu coba Double_Click menu item add, dan ketik listing seperti dibawah. btnadd.PerformClick()
Untuk semua menu item buat listing seperti diatas, hanya ubah button apa yang akan diperoses. Coba jalankan program dan gunakan shortcut. Apa sudah jalan ?????? Kalau berhasil, berarti anda sudah bisa proses dasar dari database (Select, Insert, Delete & Update). Dengan begitu anda dapat mengembangkan program ini sesuai dengan keinginan anda. Untuk mendapatkan source code lengkap dapat di download pada bog saya http://junindar.blog.com . Untuk menjalankan program yang didownload. Unzip file Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
tersebut. Lalu copy 2 file yang berada pada folder DB ke C:\Program Files\Microsoft SQL Server\MSSQL\Data. Lalu buka Enteprise Manager, klik kanan pada Folder Database All Tasks >> Attach Database
Lalu akan muncul jendela seperti dibawah. Dan klik button Browse disampin button Verify
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Akan muncul jendela seperti diatas, lalu cari file pada path dimana kita menyimpan file DB (C:\Program Files\Microsoft SQL Server\MSSQL\Data). Setelah ketemu klik file Coba_Data.MDF dan klik button OK. Maka jendela Attach Database akan terisi sendiri seperti gambar dibawah ini.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Dan klik OK, maka didalam Folder Database di Enterprise Manager akan terdapat database baru dengan nama Coba. Setelah langkah diatas berhasil maka program yang di download juga dapat dijalankan. Username :jun Password :123
Penutup Maaf kepada para pembaca, kalau artikel ini baru saat ini dapat dirilis. Mudah-mudahan artikel ini dapat sedikit menjawab dari persoalan yang dihadapi para pembaca.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP XIV Pengolahan XML File Menggunakan Vb.Net I.
Pengantar Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data. XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja. Dan pada artikel ini penulis akan
Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
mengajak para pembaca untuk membuat program dalam mengolah file XML, dari membuat file xml, manambahkan data pada file xml hingga menampilkan data dari file XML ke Datagrid pada Vb.Net. Bagaimanakah caranya?? Ayoo ikutin terus artikel ini. II.
Desain Form Buatlah Project Baru, lalu pada form yang tersedia tambahkan 3 Button dan 1 Datagrid. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini.
III. Coding Double click pada button “Create XML File” dan ketikkan sintaks dibawah.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Try If File.Exists(Application.StartupPath & "\sample.xml") Then MsgBox("File xml sudah ada") Exit Sub Else Dim Writer As New XmlTextWriter(Application.StartupPath & "\Sample.xml", System.Text.Encoding.Default) ' Write XML with Indent Writer.Formatting = Formatting.Indented 'Tulis deklarasi XML Writer.WriteStartDocument(True) 'Menulis comment di file XML Writer.WriteComment("Contoh XML") ' Root Element Writer.WriteStartElement("dataset") Writer.WriteStartElement("Users") Writer.WriteElementString("Username", "aku") Writer.WriteElementString("Password", "123") Writer.WriteElementString("Joined", "21-06-2008") Writer.WriteEndElement() ' Users End Tag Writer.WriteEndElement() ' Dataset End Tag Writer.WriteEndDocument() Writer.Flush() Writer.Close() MsgBox("File xml berhasil dibuat") End If Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try
Sintaks diatas adalah cara untuk membuat file XML, yang disimpan sama dengan file exe berada, dengan nama sample.xml. Dibawah ini merupakan hasil dari sintaks diatas.
<Users> <Username>aku <Password>123 <Joined>21-06-2008
Lalu double click button “Add New Data” dan ketik sintaks dibawah. Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Try Dim objDataSet As New DataSet Dim objDataRow As DataRow objDataSet.ReadXml(Application.StartupPath & "\Sample.xml") 'buat baris baru pada table user objDataRow = objDataSet.Tables("Users").NewRow objDataRow("username") = "aku2" objDataRow("password") = "456" objDataRow("joined") = DateTime.Now.ToString("dd-MM-yyyy") 'Tambah baris baru pada table users baru objDataSet.Tables("users").Rows.Add(objDataRow) 'Tulis data ke file xml objDataSet.WriteXml(Application.StartupPath & "\Sample.xml") objDataSet.Clear() MsgBox("Data telah berhasil di tambah") Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try
Maksud dari coding diatas adalah bagaimana kita menambah data baru untuk tag “Users” pada file sample.xml yang kita buat sebelumnya. Dan double click button “Refresh Datagrid”, ketik sintaks dibawah. Fungsi dari sintaks dibawah ini adalah bagaiman cara menampilkan data pada file xml ke dalam datagrid. Try Dim objDataSet As New DataSet objDataSet.Clear() DgXML.Refresh() objDataSet.ReadXml(Application.StartupPath & "\Sample.xml") DgXML.DataSource = objDataSet.Tables("Users") Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try
Coba jalankan project dengan menekan F5, lalu coba klik button-button yang berada pada form apakah sudah berjalan dengan semestinya?
Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Artikel yang penulis berikan masih sangat sederhana, dan ini merupakan dasar untuk melakukan pengolahan file xml dengan vb.net. Sehingga dapat kita kembangkan menjadi program yang komplit.
Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blog.com E-Mail :
[email protected] [email protected]
STEP XV Membuat Program Compact pada Access Database I.
Pengantar Pembekakan size pada database pada MS Access pasti terjadi, Database Access mengandung banyak tabel yang membentuk sistem database. Penambahan dan penghapusan data selama pemakaian menyebabkan size dari database ini membesar. Untuk melakukan pengurangan file tersebut tersedia fasilitas Compact
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
and Repair database pada MS Access. Hal itu bisa kita lakukan dengan mudah sekali. Sekarang yang menjadi pertanyaan bagaimana jika kita membuat program dengan MS Access sebagai database nya? Apakah yang harus kita lakukan. Hal yang paling baik adalah membuat fasilitas Compact tersebut pada program anda. Jadi user tidak perlu langsung membuka database program anda, apalagi jika program anda database nya di password, hal itu akan menyebabkan program menjadi lambat karena membengkaknya size database anda karena tidak bisa di compact oleh user. Melalui artikel ini penulis mengajak para pembaca untuk membuat suatu fasilitas untuk meng compact database program anda. Program sederhana dengan manfaat yang sangat besar. Sudah penasaran, ayoo kita mulai …………….. II.
Desain Form Buatlah Project Baru, lalu pada form yang tersedia tambahkan 1 Button. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini.
Sebelum kita masuk ke coding, terlebih dahulu kita melakukan add reference Microsoft® Jet and Replication Objects (JRO), file library ini yang berperan dalam melakukan compact pada program ini. Caranya adalah klik kanan Root Reference di bawah nama project kita, lalu pilih add reference. Lalu keluar form Add Reference pilih tab COM. Dan cari component name Microsoft Jet and Replication Object 2.6 Library. Lalu klik button select dan OK.
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
III. Coding Double click pada button “Compact” dan ketikkan sintaks dibawah.
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Try Dim jro As JRO.JetEngineClass Dim newConStr As String Dim ConStr As String Dim originalDB As String = "\test.mdb" Dim NewDB As String = "\BackUptest.mdb" jro = New JRO.JetEngineClass 'membuat koneksi untuk database yang original ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";Jet OLEDB:Database Password=test;" 'membuat koneksi untuk meng compact database (Database backup) newConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" + Application.StartupPath + NewDB + ";Jet OLEDB:Database Password=test;" 'compact database jro.CompactDatabase(ConStr, newConStr) 'Mengcopy database yang sudah di compact kedalam folder yang sama dengan original database 'menimpa isi dari database yang lama dengan yang baru System.IO.File.Copy(Application.StartupPath + NewDB, Application.StartupPath + originalDB, True) 'Terakhir delete database backup yang sudah di compact System.IO.File.Delete(Application.StartupPath + NewDB) MsgBox("Sukses", MsgBoxStyle.Information, "Compact") Catch ex As Exception MsgBox(ex.Message) End Try
Keterangan : ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";Jet OLEDB:Database Password=test;"
Fungsi diatas adalah untuk melakukan koneksi pada file original yang memiliki size yang besar. Pada artikel ini penulis memberikan password pada database dengan password “test”, jika file yang akan di compact tidak memiliki password maka koneksi nya adalah sebagai berikut. ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";"
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
newConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" + Application.StartupPath + NewDB + ";Jet OLEDB:Database Password=test;"
Sedangkan untuk sintaks diatas merupakan koneksi untuk file backup (file hasil dari compact). Kita simpan pada lokasi yang sama dengan file original. Catatan : Jika pada koneksi file original menggunakan password maka pada koneksi file backup harus juga diberikan password yang sama. Dan sebaliknya. jro.CompactDatabase(ConStr, newConStr)
Mengcompact database original, dan hasilnya adalah database backup. System.IO.File.Copy(Application.StartupPath + NewDB, Application.StartupPath + originalDB, True)
Mencopy database backup hasil dari compact database original, kedalam folder yang sama dengan database original (overwrite), menimpa file lama dengan yang baru. System.IO.File.Delete(Application.StartupPath + NewDB)
Menghapus file database backup.
Coba jalankan project dengan menekan F5, untuk mengetahui berhasil atau tidak program ini. Coba cari file access yang size sudah besar, lalu copy kedalam folder bin pada program ini. Lalu tekan tombol Compact, setelah selesai cek kembali apakah size dari file tersebut berkurang. Jangan dicoba jika file Access sedang dijalankan oleh program lain. Fungsi ini dapat berjalan ketika koneksi pada file access tersebut lagi tidak ada.
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Dengan adanya fasilitas ini pada program kita, secara tidak langsung kita telah membuat program yang berkualitas, karena pada program kita telah ada fasilitas untuk memaintain database pada program. Hal-hal seperti ini masih sering dilupakan oleh kita. Mudahmudahan artikel ini membantu para pembaca untuk meningkatkan kualitas program. Untuk informasi pada para pembaca, untuk seluruh artikel penulis kecuali Step 10, source code (project) dapat di download di http://junindar.blog.com . Penulis sadar artikel-artikel tersebut tanpa contoh sangat susah untuk di implementasikan.
Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blogspot.com E-Mail :
[email protected] [email protected]
STEP XVI Membuat Graph Menggunakan Office Web Component 11 (OWC) I.
Pengantar Jika kita sering bekerja dengan MS excel tentu dalam hal yang membuat grapik sudah tidak ada masalah bagi kita karena sangat mudah di lakukan. Tapi bagaimana
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
jika kita mau membuat grapik pada program kita (vb.net) dengan mengambil data dari database yang ada. Sangat-sangat banyak sekali third party program (component) yang menyediakan hal ini. Tapi untuk waktu seperti ini dolar lagi tinggi untuk beli sesuatu sangat sulit. (No purchase for IT), ya itulah yang di bilang ama bos J.. Tapi sebenarnya ada component yang jarang di gunakan, bukubukunya nya pun susah dicari. Apakah nama nya? OWC = Office Web Components. Mudah-mudahan dengan artikel ini dapat membantu temen-temen yang mau belajar dalam membuat grapik pada aplikasi nya. Untuk mengetahui apa itu
OCW
silahkan
klik
http://en.wikipedia.org/wiki/Office_Web_Components
link .
Untuk
berikut mendapatkan
component ini kita harus melakukan beberapa langkah, silahkan ikuti pada link berikut http://support.microsoft.com/kb/823982 . Bagi yang buru-buru (males J ) bisa menggunakan file AxOWC11.dll, file disertakan pada folder bin berbentuk zip file didalam project. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini............. II.
Desain Form Terlebih dahulu penulis berasumsi kita semua telah mengerti dalam membuat DB dengan access, jadi copy file Database pada folder Bin project yang didownload dan paste ke folder Bin pada project anda. Sebelum kita mendesain form extract file zip pada folder bin, dan simpan ke local drive. (Lebih baik sebelumnya buat folder C:\owc11, biar gampang diingat). Buatlah Project Baru dengan nama Chart, lalu klik Tools>Add/Remove ToolBox items, maka muncul jendela seperti dibawah.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Masih pada tab .Net Framework Components, klik browse dan cari file AxOWC11.dll yang telah di extract dan klik OK. Sekang pada Toolbox akan bertambah 3 komponen (AxChartSpace, AxPivotTable dan AxSpreadSheet). Dan pada form yang tersedia tambahkan 1 Combobox, 1 data grid dan 1 buah AxChartSpace1. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini. Ubah name ComboBox Menjadi “CbChart”. Ubah DropdownStyle = DropDownList. Dan tambahkan Items ComboBox dengan kata 2D dan 3D.
Sekarang saat nya kita masuk ke coding.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
III. Coding Buka jendela code pada form dan ketik sintaks dibawah ini. Pada baris awal jendela code. Imports Imports Imports Imports
System.Data System.Data.OleDb System.io owc11 = Microsoft.Office.Interop.Owc11
Dan untuk deklarasi ketik sintaks dibawah #Region #Region "Declaration" "Declaration" Dim Dim objConnection objConnection As As OleDbConnection OleDbConnection Dim objCommand As OleDbCommand Dim objCommand As OleDbCommand Dim Dim objDataAdapter objDataAdapter As As OleDbDataAdapter OleDbDataAdapter Dim strSQL As String Dim strSQL As String Dim Dim objDataSet objDataSet As As New New DataSet DataSet Dim objDataTable As Dim objDataTable As New New DataTable DataTable Dim Dim MyConnection MyConnection As As New New AccessData.DatabaseConnection AccessData.DatabaseConnection #End #End Region Region
Sintaks dibawah ini untuk menampilkan data pada data grid. Sub View_Data() objDataTable.Clear() strSQL = "select * from [Cat]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "Mdt_Cat") MyConnection.close() objDataTable = objDataSet.Tables("Mdt_Cat") DataGrid1.DataSource = objDataTable End Sub
Sedangkan untuk membuat chart sintaks seperti dibawah ini. Penjelasan sintaks pada tulisan yang berwarna hijau.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub RefreshChart() View_Data() Dim a As String Dim categories(11) For i As Integer = 0 To 11 categories(i) = objDataTable.Columns(i + 1).Tostring a = objDataTable.Columns(i + 1).tostring Next Dim values(11) Dim chConstants
'Menghapus isi dari chart, seluruh chart yang lama dan exist menjadi empty 'buat 1 chart yang baru AxChartSpace1.Clear() AxChartSpace1.Charts.Add() chConstants = AxChartSpace1.Constants
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
'tambahkan series, secara dinamis For i As Integer = 0 To objDataTable.Rows.Count - 1 AxChartSpace1.Charts(0).SeriesCollection.Add() Next Dim MaxTotal As Integer = 0 'membuat warna dasar chart menjadi putih AxChartSpace1.Charts(0).PlotArea.Interior.Color = "White" For j As Integer = 0 To objDataTable.Rows.Count - 1 'mengeset categories series AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimC ategories, chConstants.chDataLiteral, categories) For i As Integer = 1 To objDataTable.Columns.Count - 1 values(i - 1) = Val(objDataTable.Rows(j).Item(i).tostring) If values(i - 1) > MaxTotal Then MaxTotal = values(i - 1) End If Next 'mengeset series value AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimV alues, chConstants.chDataLiteral, values) 'membuat caption AxChartSpace1.Charts(0).SeriesCollection(j).Caption = objDataTable.Rows(j).Item(0).ToString Next For i As Integer = 0 To objDataTable.Rows.Count - 1 Dim colors As String Select Case i Case 0 colors = "Red" Case 1 colors = "DarkOrange" Case 2 colors = "Cyan" Case 3 colors = "Yellow" Case 4 colors = "Red" Case 5 colors = "Black" Case 6 colors = "Navy" Case 7 colors = "SkyBlue" Case 8 colors = "SlateGray" 'selanjutnya tambah sendiri ya End Select
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
AxChartSpace1.Charts(0).SeriesCollection(i).Interior.Color = colors Next
If CbChart.Text = "3D" Then AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumn3D End If 'Mengaktifkan Legend pada chart AxChartSpace1.Charts(0).HasLegend = True AxChartSpace1.Charts(0).Axes(1).Scaling.Maximum = MaxTotal AxChartSpace1.Charts(0).Axes(1).MajorUnit = MaxTotal / 10 AxChartSpace1.Charts(0).Axes(1).Scaling.Minimum = 0
AxChartSpace1.Charts(0).Axes(0).HasTitle = True AxChartSpace1.Charts(0).Axes(0).Title.Caption = "Month" AxChartSpace1.Charts(0).Axes(0).Title.Font.Name = "Arial" AxChartSpace1.Charts(0).Axes(0).Title.Font.Size = 9 AxChartSpace1.Charts(0).Axes(1).HasTitle = True AxChartSpace1.Charts(0).Axes(1).Title.Caption = "Category" AxChartSpace1.Charts(0).Axes(1).Title.Font.Name = "Arial" AxChartSpace1.Charts(0).Axes(1).Title.Font.Size = 9 End Sub
Kita telah selesai membuat sintaks untuk menampilkan data pada data grid dan membuat chart. Sekarang sintaks diatas dapat kita panggil pada event form load dan selected index change pada combo box. Double click form1 dan ketikkan sintaks dibawah. Try CbChart.SelectedIndex = 0 Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try
Maksud dari form ini adalah pertama kali program aktif CbChart akan menampilkan index dengan bernilai 0 yaitu 2D.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu double klik CbChart, dan ketik sintaks dibawah ini Try RefreshChart() Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try
Sedangkan pada sintaks diatas, setiap kali user memilih item pada ComboBox maka program akan memanggil fungsi RefreshChart, yaitu untuk membuat chart apakah 2D atau 3D. Gambar dibawah adalah hasil dari program yang telah di running.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Mudah-mudahan artikel ini membuat kita semua menjadi bertambah pengetahuanya. Ini semua masih dasar sekali dalam pemograman OWC, jika ingin mendalaminya dapat membeli buku The O.W.C. Black Book Second Edition. Dapat dibeli di sini http://www.lulu.com/owc (bagi-bagi ya kalau udah punya J)
Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Junindar Blog : http://junindar.blogspot.com E-Mail :
[email protected] [email protected]
STEP XVII Mengeksport Chart Ke Excel File Dengan Vb.Net I.
Pengantar Pada artikel sebelumnya saya membahas bagaimana membuat chart pada form dengan menggunakan OWC 11. Dan jika pembaca semua sudah berhasil kini saatnya untuk menerusi ker artikel ini. Bagaimana kita membuat chart pada excel file dengan vb.net (mengeksport data dari table ke excel file dan membuat chart
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
dengan data tersebut. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini............. II.
Desain Form Untuk artikel ini kita bisa menggunakan project dari artikel sebelumnya, ataupun bisa dengan membuat baru. Jika membuat baru tambahkan 1 buah datagrid dan 1 buah button pada form dan design seperti ini. Ubah properties button seperti berikut. Name : btnExport Text :Export
Sebelumnya kita akan menambahkan Ms Excel interop pada project kita dengan cara sebagai berikut. Klik kanan project dan pilih Add Reference, maka jendela Add Refence akan tampil seperti dibawah.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Lalu klik tab COM dan pada component name cari dan select MS Excel 11.0 Object Library. Dan klik OK. Sekarang saat nya kita masuk ke coding.
III. Coding Buka jendela code pada form dan ketik sintaks dibawah ini. Pada baris awal jendela code. Imports Imports Imports Imports
System.Data System.Data.OleDb System.io Microsoft.Office.Interop
Dan untuk deklarasi ketik sintaks dibawah #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim MyConnection As New AccessData.DatabaseConnection Dim AlphaNum As Integer Dim Filename, Alphabets As String Dim chkexcel As Boolean Dim oexcel As Excel.Application Dim obook As Excel.Workbook Dim osheet As Excel.Worksheet #End Region
Sintaks dibawah ini untuk menampilkan data pada data grid. Sub View_Data() objDataTable.Clear() strSQL = "select * from [Cat]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "Mdt_Cat") MyConnection.close() objDataTable = objDataSet.Tables("Mdt_Cat") DataGrid1.DataSource = objDataTable End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub Alphabet() Select Case AlphaNum Case 1 Alphabets = "A" Case 2 Alphabets = "B" Case 3 Alphabets = "C" Case 4 Alphabets = "D" Case 5 Alphabets = "E" Case 6 Alphabets = "F" Case 7 Alphabets = "G" Case 8 Alphabets = "H" Case 9 Alphabets = "I" Case 10 Alphabets = "J" Case 11 Alphabets = "K" Case 12 Alphabets = "L" Case 13 Alphabets = "M" Case 14 Alphabets = "N" Case 15 Alphabets = "O" Case 16 Alphabets = "P" Case 17 Alphabets = "Q" Case 18 Alphabets = "R" Case 19 Alphabets = "S" Case 20 Alphabets = "T" Case 21 Alphabets = "U" 'bisa disambung sendiri End Select
Sintaks diatas berfungsi untuk mengkonvert number ke string (kolom pada excel)
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Sub Dbclose() 'mengecek dan tutup excel application If chkexcel = True Then osheet = Nothing oexcel.Application.DisplayAlerts = False obook.Close() oexcel.Application.DisplayAlerts = True obook = Nothing oexcel.Quit() oexcel = Nothing End If ' End End Sub
Sub Generate_Sheet() View_Data() osheet = oexcel.Worksheets(1) 'Menganti nama Sheet osheet.Name = "Excel Charts" osheet.Range("A1:AZ400").Interior.ColorIndex = 2 osheet.Range("A1").Font.Size = 12 osheet.Range("A1").Font.Bold = True osheet.Range("A1:I1").Merge() osheet.Range("A1").Value = "Excel Automation With Charts" osheet.Range("A1").EntireColumn.AutoFit() 'columns heading For i As Integer = 0 To objDataTable.Columns.Count - 1 AlphaNum = i + 1 Alphabet() osheet.Range(Alphabets & "3").Value = objDataTable.Columns.Item(i).ToString osheet.Range(Alphabets & "3").BorderAround(8) osheet.Range(Alphabets & "3").EntireColumn.AutoFit() Next 'format headings osheet.Range("A3:" & Alphabets & "3").Font.Color = RGB(255, 255, 255) osheet.Range("A3:" & Alphabets & "3").Interior.ColorIndex = 5 osheet.Range("A3:" & Alphabets & "3").Font.Bold = True osheet.Range("A3:" & Alphabets & "3").Font.Size = 10 'memasukkan data dari DB Dim R As Integer = 3 Dim x As Integer Dim a, b, c As String
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
For Each row As DataRow In objDataTable.Rows R = R + 1 For i As Integer = 0 To objDataTable.Columns.Count - 1 AlphaNum = i + 1 Alphabet() osheet.Range(Alphabets & R).Value = row(i).ToString osheet.Range(Alphabets & R).BorderAround(8) Next i Next 'Membuat object chart Dim oChart As Excel.Chart Dim MyCharts As Excel.ChartObjects Dim MyCharts1 As Excel.ChartObject MyCharts = osheet.ChartObjects 'mensetting lokasi chart MyCharts1 = MyCharts.Add(150, 100, 400, 250) oChart = MyCharts1.Chart 'membuat chart pada default location oChart.Location(Excel.XlChartLocation.xlLocationAsObject, osheet.Name) With oChart 'mengeset range untuk chart Dim chartRange As Excel.Range chartRange = osheet.Range("A3", Alphabets & R) .SetSourceData(chartRange) 'fungsi ini untuk mengeset bentuk dari plot, apakh kolom atau baris .PlotBy = Excel.XlRowCol.xlRows 'mensetting data label .ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowNone) 'mensetting apakah legend tampil atau tidak .HasLegend = True 'mensetting lokasi legend .Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight 'Pilih tipe chart .ChartType = Excel.XlChartType.xlColumnClustered 'chart title .HasTitle = True .ChartTitle.Text = "Bar Chart" Dim xlAxisCategory, xlAxisValue As Excel.Axes xlAxisCategory = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes) xlAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True xlAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Month" xlAxisValue = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes) xlAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True xlAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Category" End With End Sub
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Double click form1 dan ketikkan sintaks dibawah. Try View_Data() Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try
Dan double click button export dan ketik sintaks dibawah ini Try 'Nama File dan path. file akan disimpan di mana file exe brada Filename = Application.StartupPath & "\abc.xls" 'cek apakah file exist jika iya kemudian delete untuk membuat file baru. If File.Exists(Filename) Then File.Delete(Filename) End If If Not File.Exists(Filename) Then chkexcel = False 'Membuat excel aplikasi yang baru oexcel = CreateObject("Excel.Application") 'tambahkan worbook yang baru obook = oexcel.Workbooks.Add 'mensetting application alert oexcel.Application.DisplayAlerts = True 'mengecek total sheet pada workbook Dim S As Integer = oexcel.Application.Sheets.Count() 'delete seluruh sheet kecuali sheet pertama If S > 1 Then oexcel.Application.DisplayAlerts = False Dim J As Integer = S Do While J > 1 oexcel.Application.Sheets(J).delete() J = oexcel.Application.Sheets.Count() Loop End If 'untuk mengecek session dari excel application chkexcel = True oexcel.Visible = True 'ini procedure untuk mengisi data pada excel file Generate_Sheet() 'simapn excel file obook.SaveAs(Filename) 'menutup excel object dan session osheet = Nothing oexcel.Application.DisplayAlerts = False Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
oexcel.Application.DisplayAlerts = False obook.Close() oexcel.Application.DisplayAlerts = True obook = Nothing oexcel.Quit() oexcel = Nothing chkexcel = False MsgBox("Export Finished") End If Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() Dbclose() End Try
Setelah selesai dengan coding diatas, jalankan program. Maka tampilan program seperti pada gambar diatas. Untuk mengexport ke excel file klik button export. Maka file excel akan tersimpan di mana tempat exe file berada, dengan nama abc.xls.
Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Penutup Mudah-mudahan artikel ini membuat kita semua menjadi bertambah pengetahuanya.
Referensi 1. www.msdn.microsoft.com 2. www.planetsourcecode.com 3. www.codeproject.com 4. www.aspnet.com Masih banyak lagi referensi yang ada di Intenet. Anda tinggal cari di www.Google.com. Dengan kata kunci “tutorial VB.Net”
Sinopsis buku “Panduan Lengkap Menjadi Programmer“ Setelah mengetahui apa itu Microsoft.NET Framework, Microsoft Visual Basic.NET, ADO.NET, Database dan Microsoft Access, dan fungsi-fungsi serta dasar penggunaannya, ternyata menjadi programmer VB.NET itu mudah! Sebab, dari dasar pengetahuan tesebut, kita sudah bisa membuat suatu program yang kita inginkan. Misalnya, membuat aplikasi toko, seperti form penjualan dan pembelian. Visual Basic.NET (VB.NET) merupakan program generasi selanjutnya dari Visual Basic. VB.NET memungkinkan kita untuk membangun aplikasi database client atau server dengan performa tinggi. Umumnya, para programmer banyak menggunakan VB.NET untuk membuat aplikasi atau program yang mereka butuhkan. Pasalnya, program ini memiliki kelebihan dan kemudahan tertentu dibandingkan dengan program-program lainnya yang sejenis. Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar
Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com
Selanjutnya, langkah apa saja yang mesti diketahui dan dilakukan agar kita bisa menjadi programmer VB.NET? Mediakita menerbitkan buku Panduan Lengkap Menjadi Programmer yang ditulis oleh Junindar. Buku ini berisi tutorial pembuatan program, pembuatan laporan, sampai dengan melakukan deployment program. Melalui buku ini, Anda bisa menjadi seorang programmer VB.NET yang handal. Sebab, buku ini merupakan buku yang komplit untuk mengantar seseorang dari tidak tahu apa-apa tentang VB.NET menjadi seorang programmer. Memang, saat ini, banyak sekali buku-buku tentang pemrograman VB.NET, tetapi sangat jarang yang menjelaskan secara detail tentang fungsi-fungsi dan pemrograman di dalam VB.NET. Di buku ini, secara terperinci Anda akan dibimbing bagaimana membuat database, membuat program (create program), tampilan login, menu, form, laporan, sampai dengan membuat file setup (installer). Selain itu, buku ini juga dilengkapi CD berisikan source code pembuatan program sehingga lebih memudahkan Anda dalam berlatih.
Biografi Penulis. Junindar Lahir di Tanjung Pinang, 21 Juni 1982. Menyelesaikan Program S1 pada jurusan Teknik Informatika di Sekolah Tinggi Sains dan Teknologi Indonesia (ST-INTEN-Bandung). Senang mengutak-atik
computer
yang
berkaitan
dengan
bahasa
pemrograman. Keahlian, sedikit mengerti beberapa bahasa pemrograman seperti : VB.Net, ASP.NET, VBA. Reporting : Crystal Report (Under Program). Database : Access, paradox dan SQL Server 2000. Simulation / Modeling Packages: Visio Enterprise, Rational Rose dan Power Designer. Dan senang bermain gitar, karena untuk bisa menjadi pemain gitar dan seorang programmer sama-sama membutuhkan seni. Pada saat ini bekerja di salah satu Perusahaan Swasta di BATAM sebagai Software Development. Mempunyai moto hidup : “Jauh lebih baik menjadi Orang Bodoh yang giat belajar, dari pada orang Pintar yang tidak pernah mengimplementasikan ilmunya”.
Kritik dan saran kirim ke :
[email protected] [email protected] Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar