tag:blogger.com,1999:blog-28249508544279601322024-02-06T20:09:28.926-08:00Belajar Aplikasi Visual Basic.Net 2008Belajar Membuat Program atau Aplikasi dengan Software Visual Basic.NET 2008T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.comBlogger30125tag:blogger.com,1999:blog-2824950854427960132.post-13335926145153623912011-09-13T08:49:00.000-07:002011-09-13T08:49:46.118-07:00Bukti Pembayaran DonkeymailsSitus <a href="http://www.donkeymails.com/">Donkeymails</a> ternyata membayar saya, walaupun hanya sebesar $1 namun ini penting untuk menjaga kepercayaan agar usaha saya nge-klik disitus ini tidak sia-sia.<br />
<br />
Di situs ini anda cukup daftar sebagai member lalu klik iklan yang tersedia di situs ini, selain itu juga anda akan dibayar untuk membaca setiap email yang mereka sediakan, mudah kan. <br />
<br />
Ini bukti pembayaran dari Donkeymails.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbe1b0XITF017ns3LAk_7v5b0OSX5fljaJ8ZMlw8tHX2BuHMi1Z2o_Ag82UttEsT6tL1823nmRkaFKTa3_-Q6m00CBgYdAXHDASsBpBNWpmaVwohYaMFVyerqmohYpb6m4VVmkPCEGvjk/s1600/donkey.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="377" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbe1b0XITF017ns3LAk_7v5b0OSX5fljaJ8ZMlw8tHX2BuHMi1Z2o_Ag82UttEsT6tL1823nmRkaFKTa3_-Q6m00CBgYdAXHDASsBpBNWpmaVwohYaMFVyerqmohYpb6m4VVmkPCEGvjk/s400/donkey.gif" width="400" /></a></div>Terima kasih donkeymails.T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-1108411323578292142011-08-26T06:07:00.000-07:002011-08-26T06:07:39.255-07:00Bukti Pembayaran Pertama dari IncentriaIncentria adalah situs yang sama adminnya dengan Clicksia sehingga banyak yang menyebut kedua situs ini kembar. Hebatnya lagi keduanya juga legit alias benar-benar membayar... Ini bukti pembayaran pertama saya dari Incentria.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgViVVRtgd-V79t049FI6Zdgg9WvhQyfoKAJQDFsozx4ZMIM6SkxfP2EBMgJMsJrPYlZy55KOpxUyN7WLRZxpumGqwx9uliKfcfIBqtXZaXccZGUYOuyiqoOLJyvc-y4tBpUWRYv0I_pT0/s1600/proveincentria.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="372" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgViVVRtgd-V79t049FI6Zdgg9WvhQyfoKAJQDFsozx4ZMIM6SkxfP2EBMgJMsJrPYlZy55KOpxUyN7WLRZxpumGqwx9uliKfcfIBqtXZaXccZGUYOuyiqoOLJyvc-y4tBpUWRYv0I_pT0/s400/proveincentria.gif" width="400" /></a></div><br />
<br />
Anda berminat bergabung di situs ini, bisa daftar dengan klik banner dibawah ini...<br />
<br />
<a href="http://www.incentria.com/index.php?ref=salvopaverani" target="_blank"><img border="0" src="http://www.incentria.com/banners/banner2.gif" /></a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-41137582673777588412011-08-26T05:58:00.000-07:002011-08-26T05:58:26.154-07:00Bukti Pembayaran Pertama dari ClicksiaIni adalah bukti pembayaran pertama dari Clicksia, ini membuktikan bahwa Clicksia memang situs yang benar-benar membayar seperti yang dikatakan banyak orang... Pembayaran saya terima sekitar 5 hari setelah saya request Cashout. Ini buktinya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIak4_JtofE2-FzhDEKMcMKmmJY4FWQJn2r3QNWoM6lc_i7se1feULCmb3ONCI1_yV7b2NN3DZYNNgR3-c9IaZzR-M2XZyksRirCbRtaIWPiiU6wM2nic6VtaFKEtwpmhFAukfd7q5rDs/s1600/proveclicksia.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="373" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIak4_JtofE2-FzhDEKMcMKmmJY4FWQJn2r3QNWoM6lc_i7se1feULCmb3ONCI1_yV7b2NN3DZYNNgR3-c9IaZzR-M2XZyksRirCbRtaIWPiiU6wM2nic6VtaFKEtwpmhFAukfd7q5rDs/s400/proveclicksia.gif" width="400" /></a></div><br />
Untuk yang ingin bergabung disini dijamin pasti dibayar karena Clicksia adalah situs Aurora yang terpercaya. Anda berminat, bisa daftar dengan klik banner dibawah ini...<br />
<a href="http://www.clicksia.com/index.php?ref=salvopaverani"><br />
<img border="0" src="http://www.clicksia.com/banners/banner1.gif" /></a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-72414594513152040192011-08-22T06:27:00.000-07:002011-09-13T08:44:15.476-07:00Bukti Pembayaran dari IpanelonlineUntuk yang belum tahu id.ipanelonline bisa <a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">klik disini</a>, kurang lebih situs id.ipanelonline adalah situs yang membayar kita dengan hanya mengisi survey yang mereka sediakan.<br />
<br />
Bagi yang belum percaya dan minta bukti pembayaran, ini saya sediakan. Ini adalah bukti pembayaran pertama sebesar $5.85 atau sekitar Rp 50.000 ke akun paypal saya.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirU47gFOg7GPqPfK0s5yPsguIrsVw59w-Kytc5DfSwuc2b01J-FkSIQW0OjplUolbpXxeNagqCNkNQySt2dkqVk2ytSVfnifjeZBmbeRs902BoAJsw0Md26bdwLC4PeQEEDBnWlelyn0g/s1600/bukti.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="363" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirU47gFOg7GPqPfK0s5yPsguIrsVw59w-Kytc5DfSwuc2b01J-FkSIQW0OjplUolbpXxeNagqCNkNQySt2dkqVk2ytSVfnifjeZBmbeRs902BoAJsw0Md26bdwLC4PeQEEDBnWlelyn0g/s400/bukti.gif" width="400" /></a></div><br />
Sedangkan ini adalah bukti pembayaran ke-2 sebesar $5.87 (Rp 50.000) dari ipanelonline.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1wdRdo2F26El4s8dt7yF81n6DFEy7NKFU0wVN_Hql6U02JxyshEeYfdZPg372L8y-RcIzE_x75jx8H_J70ddgHbCCvEI6ua8NZU5YIWKKQMlYOLMLV5CLVesX5QCx-s50bUPJoVMxQAM/s1600/bukti2.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="368" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi1wdRdo2F26El4s8dt7yF81n6DFEy7NKFU0wVN_Hql6U02JxyshEeYfdZPg372L8y-RcIzE_x75jx8H_J70ddgHbCCvEI6ua8NZU5YIWKKQMlYOLMLV5CLVesX5QCx-s50bUPJoVMxQAM/s400/bukti2.gif" width="400" /></a></div><div style="text-align: center;"></div><br />
Kalau yang ini pembayaran ke-3 dari Ipanelonline sebesar $5.85 (Rp 50.000) ...<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDgH1LXfH5XWxFWdboxjHkkvT-xrqMhwxYa08qkqrE4gR6dOhwfe1UqBLtsLRuCRjTCvPSmIQ-ouS_b61_PXDiRszOmdAl-urBsfIEC9lE8J1HfTAoBIAMEIZwu8nd6q-9waRglrP_uOE/s1600/ipanel3.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhF0tjioFjhe7gS4_qHdSkHT6oleUdOMSzAniv99nEPWmQR5rG4RkKMt3HwCdgwuX7NJClL4LkpG-1fV5WGf8T6ztW3XZVk3q099puSSDPdREg0xSB_IION3ndvzZo_kRqZohWxODBSyT8/s1600/p_ipanel3.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="355" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhF0tjioFjhe7gS4_qHdSkHT6oleUdOMSzAniv99nEPWmQR5rG4RkKMt3HwCdgwuX7NJClL4LkpG-1fV5WGf8T6ztW3XZVk3q099puSSDPdREg0xSB_IION3ndvzZo_kRqZohWxODBSyT8/s400/p_ipanel3.gif" width="400" /></a></div><br />
Ternyata Ipanelonline masih membayar saya hingga pembayaran ke-4, yang ini sebesar $2.34 (Rp 20.000) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmEXTH9d0YLaJu_r9esej5ZrmWSMjJz9ukUk0JRudoZ-w75DvBYS-Fyl2velGb_QZsgxEuTqBMcQTwqfThU8lMApBMm6xrhAw21Xn3FTweHaBTr7ii2IWcjx1bohS3E3OefRZt1nRc4v4/s1600/ipanel4.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="363" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmEXTH9d0YLaJu_r9esej5ZrmWSMjJz9ukUk0JRudoZ-w75DvBYS-Fyl2velGb_QZsgxEuTqBMcQTwqfThU8lMApBMm6xrhAw21Xn3FTweHaBTr7ii2IWcjx1bohS3E3OefRZt1nRc4v4/s400/ipanel4.gif" width="400" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqV4DzUDJizYdr632qxDp1k_RAFRpQz2U7K7Fl79d1a6UsMggztPPHS-ssJrMyHcWtAwEQufTFMQ_AubmWcEdBEmA724W-fe6nHdQLNWHBS9AdBnxuRw8OFOGZPKgpqRNEAZYtNJtg_IE/s1600/ipanel4.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"> </a></div>Yang ini pembayaran ke-5 dari Ipanelonline sebesar $5.81 (Rp 50.000) ...<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizLqLb8MM7hj8YYqSJNHng_jZp2d_q5dNnx-NI68fYFpTsoTyy7YOUbA5py5hntj6FekJTmozU-8t-N4wC5s4d8uPpdATFZOxaZBP_0l_W_TbAdtzIsjYYAUprH7SmGAjpDP5eQF_o16s/s1600/ipanel5.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjl0K2M3MTQKgnh5eX0A5JKvvC8xhuRwvWOE_C2J9HE3w3lOKp_sZ8MmBHbt0yT8IKVUYaftBXsMAweesuUA8_KgryWJQV_03xBKod6zLDdtOvOrz_9lXuf-KOrp67rHR3VJCoXBe8yymE/s1600/ipanel5.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="358" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjl0K2M3MTQKgnh5eX0A5JKvvC8xhuRwvWOE_C2J9HE3w3lOKp_sZ8MmBHbt0yT8IKVUYaftBXsMAweesuUA8_KgryWJQV_03xBKod6zLDdtOvOrz_9lXuf-KOrp67rHR3VJCoXBe8yymE/s400/ipanel5.gif" width="400" /></a></div><div style="text-align: center;"></div><br />
Sekarang dengan bukti-bukti diatas, apa anda masih belum percaya..?T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com3tag:blogger.com,1999:blog-2824950854427960132.post-49707871741219607242011-08-13T06:19:00.000-07:002011-08-13T06:19:40.598-07:00Mengganti Nama Server SQL Server Pada Koneksi Database Crystal ReportBeberapa waktu lalu saya membuat aplikasi yang menggunakan laporan Crystal Report, dimana datanya diambil dari SQL Server komputer saya. Laporan tersebut menggunakan kombinasi 5 tabel database sekaligus dan menggunakan banyak field dan grouping data didalamnya.<br />
<br />
Masalah muncul saat saya ingin memindahkan aplikasi tersebut ke Laptop orang lain, dimana nama Server SQL-Server di komputer saya dan di laptop itu berbeda. Databasenya sendiri sudah saya copy ke laptop tersebut.<br />
<br />
Otomatis saya harus mengubah setting nama Servernya. Untuk koneksi di Form, mungkin saya tinggal mengganti nama servernya di file khusus untuk modul koneksi. Bagaimana dengan koneksi database di laporan yang menggunakan Crystal Report..? Kondisinya seperti gambar berikut..!<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnCMw642NEXiJsiwWU9T3DeuHZ5gu6qWJXu011FfYey1_0J-_SNcIqINL8DnSOeBAAjG0a9xYn7H0rflFxk4DANselftKU9aRhTlrIWIEWK0gjVMmIiwBkQxa6z0GGe_oCWbyWyI97PAU/s1600/dbx.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnCMw642NEXiJsiwWU9T3DeuHZ5gu6qWJXu011FfYey1_0J-_SNcIqINL8DnSOeBAAjG0a9xYn7H0rflFxk4DANselftKU9aRhTlrIWIEWK0gjVMmIiwBkQxa6z0GGe_oCWbyWyI97PAU/s1600/dbx.gif" /></a></div><div style="text-align: center;"><br />
</div>Gambar diatas adalah kotak dialog Database Expert dan saya harus merubah Nama Server tersebut dengan nama server di laptop tadi agar aplikasi saya bisa berjalan di Laptop itu.<br />
<br />
Berikut ini adalah cara yang saya lakukan.<br />
1. Melalui Field Explorer, klik kanan di Database Fields pilih Set Datasource Location.<br />
2. Akan muncul kotak dialog Set Datasource Location.<br />
3. Klik tanda + pada tree di bagian properties (dibawah nama server).<br />
4. Klik 2 kali pada Data Source dan isikan nama server yang baru, lihat gambar.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidBgFa046Yx08jQnPkQ0cMO2dfR9-f3t-1rdLSbk3oQhGQB7MT0xXlQQwoTOuXOdrWATSI6v_dZVW3xdJWP53GcP3PTUUQS_Xh-U0_cSbBJjwDcuOMO2Ww2gxzUem6svM2gO0CxktxxeM/s1600/sdl.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidBgFa046Yx08jQnPkQ0cMO2dfR9-f3t-1rdLSbk3oQhGQB7MT0xXlQQwoTOuXOdrWATSI6v_dZVW3xdJWP53GcP3PTUUQS_Xh-U0_cSbBJjwDcuOMO2Ww2gxzUem6svM2gO0CxktxxeM/s1600/sdl.gif" /></a></div><div style="text-align: center;"><br />
</div>Sekarang nama server sudah berhasil diubah.<br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-12486995818705559282011-08-01T02:05:00.000-07:002011-08-22T06:29:46.505-07:00Ingin Dapat Uang Dengan Hanya Menjawab Survey..?Menjawab survey dapat uang..? Ya, mudah sekali bukan..?<br />
Anda akan mendapat uang hanya dengan menjawab survey yang diberikan kepada anda.<br />
<br />
Jangan berpikir jauh-jauh dulu, pertama-tama anda perlu mendaftar sebagai anggota. Caranya klik banner dibawah ini dan isi semua pertanyaan yang diajukan.<br />
<script language="JavaScript">
<!--
function changeURL(winName, newURL) {
win = window.open("", winName);
win.location.href = newURL;
}
// -->
</script><br />
<div style="text-align: center;"><form><img border="0" onclick="changeURL('news', 'http://id.ipanelonline.com/register.html?inviter_id=868965')" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_B0SBpATK-N1MwnvQApp6iLEOqZtZOLpoX-Taa81cAEBeCaWlGsdvdTKbjXt5jVlwdyTcYGRk0rczoYjHTeSF0-OQGPOKTxwSvTlZ8FrC3mFUnrbLnN96yY21AzSxssgtAj9X8BynSjs/s1600/paidsurv.jpg" /></form></div><br />
Setelah mendaftar, anda akan langsung mendapat 20 poin. Cari daftar survey di ruang anggota, setiap survey punya poin tertentu yang nantinya diakumulasikan.<br />
<br />
Semakin banyak survey yang anda jawab maka semakin banyak uang yang anda peroleh. Sebagai acuan, perhatikan ketentuannya sebagai berikut : <br />
<br />
<b>1. </b><b>Anda mengumpulkan 220 poin, dibayar Rp 20.000</b><br />
<b>2. </b><b>Anda mengumpulkan </b><b>520 poin, dibayar Rp 50.000</b><br />
<b>3. </b><b>Anda mengumpulkan </b><b>1020 poin, dibayar Rp 100.000</b><br />
<br />
Pembayaran dapat dilakukan melalui transfer bank atau Paypal, Ayo tunggu apa lagi..? Langsung daftar sekarang...<br />
<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/bukti-pembayaran-pertama-dari.html">Klik disini jika ingin lihat bukti pembayaran dari ipanelonline.</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-90520698756827097192011-07-29T05:25:00.000-07:002011-08-05T09:46:09.205-07:00Cashout Pertama intoffers.comSatu bulan lalu (awal Juli) saya lihat 1 web iklan yang menyatakan bahwa mencari uang di internet itu mudah. Pemilik web itu bilang tiap minggu ada uang ratusan ribu masuk ke rekeningnya. Saya tentu saja mau seperti dia... Tapi bijimane caranya..?<br />
<br />
Selama 1 bulan ini saya coba belajar bisnis internet, kira2 dengan hal apa saya bisa dapat uang dengan hanya browsing internet.<br />
<br />
Setelah 1 bulan berkelana, saya baru dapat $1,11. Tapi lumayan lah daripada gak ada, karena kata orang2 bisnis di internet itu butuh waktu sampai berbulan-bulan bahkan tahunan untuk bisa sukses. Jadi saya harap ini awal dari sukses itu.<br />
<br />
Ini adalah bukti pembayaran dari situs Aurora Intoffers.com sebesar $1,11. Ini bukti bahwa bisnis di internet itu ternyata benar real. Pembayaran ini dilakukan ke akun Paypal saya.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgucAndGrHNOOy9Te7-KylG_pXSrpi6qYt_Cj8nX_y1ywcc2gKM-B8xjn6wS6cDD87l0Ui7HXT7Exb_CC4Fz67adBa_PQ_FLD-0ObsaTIKWOuHVEKCj04CaHBE6w9FlQ49ROBKkRgiuNrY/s1600/cashout1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgucAndGrHNOOy9Te7-KylG_pXSrpi6qYt_Cj8nX_y1ywcc2gKM-B8xjn6wS6cDD87l0Ui7HXT7Exb_CC4Fz67adBa_PQ_FLD-0ObsaTIKWOuHVEKCj04CaHBE6w9FlQ49ROBKkRgiuNrY/s1600/cashout1.png" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTfxQg11rfX4gP05g0GHKKSM3d2Ebn-TKhUD0vSjAb4oTRNildAQvl9Yln9Jr5Fl2En-NyOFWNL7FzORatMiYy4rjb_TBXxxrj6ybkb7THxrVafFZx3ci8R7GBlKQ3K62sQ3gdYjqHsE4/s1600/cashout1.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"> </a></div>Situs ini saya rekomendasikan untuk anda ikuti, silahkan klik link banner dibawah ini dan register jadi anggota (kalau anda tertarik).<br />
<br />
<a href="http://intoffers.com/members/register.php?ref=salvopaverani" target="_blank"><img border="0" height="60" src="http://intoffers.com/images/banners/8.gif" width="468" /></a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-61016408311860285692011-07-25T05:17:00.001-07:002011-07-25T05:17:29.349-07:00Perbedaan Deklarasi Parameter dengan ByVal dan ByRefMungkin sudah banyak yang mengetahui perbedaan deklarasi parameter dengan ByVal dan ByRef ini, namun saya rasa tidak ada salahnya untuk membahasnya lagi disini. Siapa tahu masih ada sejumlah visitor yang belum mengetahuinya (Kemana aja selama ini..?).<br />
<br />
Untuk deklarasi parameter pada suatu method sub / function secara default akan menggunakan keyword ByVal. VB.Net 2008 akan menambahkannya secara otomatis saat anda mendeklarasikan sebuah parameter.<br />
<br />
Jika suatu parameter dideklarasikan sebagai ByVal maka nilai parameter tersebut adalah copy-an nilai / salinan dari method pemanggilnya. Jadi ketika parameter tersebut diubah pada method sub / function, ia tidak akan berpengaruh pada nilai di pemanggilnya / hanya berubah didalam sub / functionnya sendiri.<br />
<br />
Maka kebalikannya terjadi jika anda menggunakan ByRef, dengan ByRef maka parameter akan menggunakan nilai dan objek yang sama dengan pemanggilnya (mereferensi ke objek di pemanggilnya). Jadi jika nilai parameternya berubah di dalam sub / function tersebut maka perubahan juga terjadi di method pemanggilnya.<br />
<br />
Saya rasa dari penjelasan diatas perbedaan antara deklarasi parameter dengan ByVal dan ByRef sudah cukup jelas dan tidak perlu dicontohkan.T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com3tag:blogger.com,1999:blog-2824950854427960132.post-11757117810085783292011-07-13T03:37:00.000-07:002011-08-09T07:09:52.636-07:00Membaca data dengan DatareaderPostingan kali ini mengenai datareader di VB.Net 2008, object ini digunakan khusus untuk membaca data dan sifatnya read only dan forward only. Read Only dalam artian object ini tidak dapat digunakan untuk melakukan manipulasi data. Forward Only sendiri berarti bahwa selama dalam proses pembacaan record maka datareader tersebut tidak dapat melakukan navigasi record ke record sebelumnya yang sudah dibaca.<br />
<br />
Berikut adalah contoh penggunaan datareader. Siapkan sebuah database di SQL Server dengan nama testing dan sebuah tabel bernama t_obat. Berikut penampakan tabel t_obat. (SQL Query dapat didownload di akhir postingan ini)<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ANIYmTQLWzWSFASRm8tb4sF729VO90ra8my5CPX4TZTANACzZUv-_7JaLMxv5SSig9XZodftPTCDIr45xHRhn5YWMoEjn18B7IdeVRJ0TgcoEaZ9seoA-k6PqY4x4pZQaPp56HTGJYs/s1600/table.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ANIYmTQLWzWSFASRm8tb4sF729VO90ra8my5CPX4TZTANACzZUv-_7JaLMxv5SSig9XZodftPTCDIr45xHRhn5YWMoEjn18B7IdeVRJ0TgcoEaZ9seoA-k6PqY4x4pZQaPp56HTGJYs/s1600/table.gif" /></a></div><div style="text-align: center;"></div><br />
Sekarang buatlah project baru di VB.Net 2008 dan beri nama Test_datareader. Buatlah form dengan tampilan seperti dibawah ini dengan menggunakan 1 label, 2 button dan 1 listbox.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5NPEWofQctSh6MTMLztJsKdBlZ3FKjCR0oHqP6KNSnPRPJ0UlTL_6C1CW3182U1wD8i6-_onMPdeoVQN0j4691Z7F_qxvuUb2XkMt8P17iEOZLm2IkLsKkBpsZnxLj-TThp61LJ4o54M/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5NPEWofQctSh6MTMLztJsKdBlZ3FKjCR0oHqP6KNSnPRPJ0UlTL_6C1CW3182U1wD8i6-_onMPdeoVQN0j4691Z7F_qxvuUb2XkMt8P17iEOZLm2IkLsKkBpsZnxLj-TThp61LJ4o54M/s1600/aplikasi.gif" /></a></div><div style="text-align: center;"></div><br />
Ketikan kode berikut ini untuk form diatas. Dalam kode ini datareader digunakan untuk membaca data dari database dan ditampilkan ke listbox.<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Imports System.Data.SqlClient
Public Class Form1
Private Sub ButtonCallDataReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCallDataReader.Click
Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Dim koneksi As New SqlConnection(connectionString)
Using cmd As New SqlCommand
cmd.Connection = koneksi
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM t_Obat"
Dim mydatareader As SqlDataReader = Nothing
Try
koneksi.Open()
mydatareader = cmd.ExecuteReader
While mydatareader.Read
ListBoxData.Items.Add(mydatareader(0) & " - " & mydatareader(1) & " - " & mydatareader(2))
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End Using
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
Me.Close()
End Sub
End Class
</code></pre><br />
Anda bisa mendapatkan source code program diatas (bila diperlukan) pada akhir postingan ini, jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda.<br />
<br />
<a href="http://www.ziddu.com/download/15673201/Test_datareader.rar.html">Download disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1tag:blogger.com,1999:blog-2824950854427960132.post-74773590209233753562011-07-09T02:38:00.000-07:002011-08-09T07:10:14.185-07:00Cara Melakukan Paging Datagrid di VB.Net 2008Postingan kali ini mengenai pengaturan data yang ditampilkan berdasarkan halaman per halaman atau paging data. Konsep ini umum kita temui terutama saat menampilkan data dalam jumlah hingga ratusan atau ribuan data. Tentu tidak mungkin kita menampilkan seluruh data tersebut dalam 1 halaman sekaligus.<br />
<br />
Solusinya dengan membagi data menjadi beberapa halaman, disini saya akan mencontohkan konsep paging data. Siapkan sebuah database bernama testing dan buat table t_Obat. Berikut penampakan tabelnya.<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWMPDe7HsoVzpgGMz0tPH3xzZgmSkZGkU4r9Ft-h-QlnCNfE6_nqifLcQg0lBNOX0kRS9aSfD0tw3rbvEgKHut0zJxJ0KmTNID-b4pu5XUdGYzWXtO43P_FoeeIKfAw3IXWzEKoZcagJQ/s1600/table.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="221" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWMPDe7HsoVzpgGMz0tPH3xzZgmSkZGkU4r9Ft-h-QlnCNfE6_nqifLcQg0lBNOX0kRS9aSfD0tw3rbvEgKHut0zJxJ0KmTNID-b4pu5XUdGYzWXtO43P_FoeeIKfAw3IXWzEKoZcagJQ/s400/table.gif" width="400" /></a></div><br />
Buat project baru di VB.Net 2008 beri nama DGPaging dan buat sebuah form untuk menampilkan data. Form yang saya buat tampilannya seperti berikut ini:<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7IwIMha7hXwZ5j24TLAmMgixiz5lxQuN-S25VKpHPtJEHl8ONvZ1fZVCTXJBOknO9MUY0ycwRdIqK9pXbJqzg8WGqZW6bb4gxDy81tk5dL3xFcrdK4AxlPIIjpI8ornWnVtBngtDYQgg/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7IwIMha7hXwZ5j24TLAmMgixiz5lxQuN-S25VKpHPtJEHl8ONvZ1fZVCTXJBOknO9MUY0ycwRdIqK9pXbJqzg8WGqZW6bb4gxDy81tk5dL3xFcrdK4AxlPIIjpI8ornWnVtBngtDYQgg/s1600/aplikasi.gif" /></a></div><div style="text-align: center;"><br />
</div><div style="text-align: center;"></div>Pada contoh diatas, ada 6 data yang ditampilkan per halaman. Berikut ini adalah kode program secara keseluruhan. Anda juga dapat mendownload source code program di akhir postingan ini.<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Imports System.Data.SqlClient
Public Class FormDG
Dim PA As SqlDataAdapter
Dim DS As DataSet
Dim scrollVal, ShowData, TotalData As Integer
Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click
Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Dim sql As String = "SELECT * FROM t_Obat"
Dim koneksi As New SqlConnection(connectionString)
PA = New SqlDataAdapter(sql, koneksi)
DS = New DataSet()
koneksi.Open()
PA.Fill(DS, "Obat")
TotalData = DS.Tables("Obat").Rows.Count()
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
koneksi.Close()
DGObat.DataSource = DS
LabelPage.Text = "1"
LabelTotal.Text = Math.Ceiling(TotalData / ShowData)
DGObat.DataMember = "Obat"
ButtonNext.Enabled = True
ButtonPrev.Enabled = True
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
If Not LabelPage.Text = Math.Ceiling(TotalData / ShowData) Then
scrollVal = scrollVal + ShowData
If scrollVal > TotalData Then
scrollVal = Math.Floor(TotalData / ShowData) * ShowData
End If
LabelPage.Text = Val(LabelPage.Text) + 1
End If
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
scrollVal = scrollVal - ShowData
If scrollVal <= 0 Then
scrollVal = 0
End If
If Not LabelPage.Text = "1" Then LabelPage.Text = Val(LabelPage.Text) - 1
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
End Sub
Private Sub FormDG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ShowData = 6
LabelPage.Text = "n"
LabelTotal.Text = "m"
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
Me.Close()
End Sub
End Class
</code></pre>Bila anda hendak download source code program diatas, jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda.<br />
<a href="http://www.ziddu.com/download/15649608/DGPaging.rar.html">Download disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-83821477863323056252011-07-05T04:39:00.000-07:002011-08-09T06:53:37.085-07:00Mengeksport Data di Datagrid ke Format XML di VB.Net 2008Postingan kali ini kita akan mengeksport data yang ada di Datagrid menjadi file XML. File XML sekarang umum digunakan untuk pertukaran data di Internet karena pemrosesannya yang mudah dan cepat.<br />
<br />
Langsung to the point aja...<br />
<br />
Seperti biasa, persiapkan sebuah database bernama testing dan buat table tbl_konsumen. Berikut penampakan tabel tbl_konsumen. (Script SQL query dapat didownload di akhir postingan).<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhK1zsbccHghUN9zKCQP_Bp0hDgKNxlDRaAnJD_Z16u4ZXZVwoHlk2LwYbpd1sxnu8ZVv9wzMfA5GN-9JlCzBwMIroTmjTjy6yD7ZVuuOWFCO23Kjw1pwhcu4li_yIAYKUgtWDJvipTdsk/s1600/table.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="189" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhK1zsbccHghUN9zKCQP_Bp0hDgKNxlDRaAnJD_Z16u4ZXZVwoHlk2LwYbpd1sxnu8ZVv9wzMfA5GN-9JlCzBwMIroTmjTjy6yD7ZVuuOWFCO23Kjw1pwhcu4li_yIAYKUgtWDJvipTdsk/s400/table.gif" width="400" /></a></div><div style="text-align: center;"><br />
</div>Sekarang buat project baru di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dan beri nama createXML. Buat form dengan tampilan seperti berikut ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBPIMAP86EFsKKe8Ot-Nz0NmdzMePljST2scj23cf4aV2v8JpZWxfTbU9k3ce58irFTMnhrTV3WmYXGnZorukdbPX6yG-bgG1mRGs60wo0WjrqFTKZBan-4-PtqFCMbUdkRAr66XoZd00/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBPIMAP86EFsKKe8Ot-Nz0NmdzMePljST2scj23cf4aV2v8JpZWxfTbU9k3ce58irFTMnhrTV3WmYXGnZorukdbPX6yG-bgG1mRGs60wo0WjrqFTKZBan-4-PtqFCMbUdkRAr66XoZd00/s1600/aplikasi.gif" /></a></div><div style="text-align: center;"></div><br />
<br />
Untuk proses input - edit - delete data saya anggap anda sudah paham, pembahasan tentang ini ada di postingan sebelumnya yaitu <a href="http://aplikasivbnet.blogspot.com/2011/07/simple-proses-input-edit-delete-data.html">Simple Proses Input - Edit - Delete Data Dengan VB.Net 2008 dan SQL Server 2008.</a><br />
<br />
Sekarang fokus di tombol Create XML (lihat gambar diatas). Untuk kode eksport data di datagrid ke XML saya menggunakan ini :<br />
<pre style="background-image: URL(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> Sub XMLFile()
With FormXML
Try
If My.Computer.FileSystem.FileExists("../../XML/datakonsumen.xml") Then
MsgBox("File XML Sudah Ada..!")
Exit Sub
Else
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.IndentChars = " "
Using writer As XmlWriter = XmlWriter.Create("../../XML/datakonsumen.xml", settings)
writer.WriteComment("XML Files datakonsumen")
writer.WriteStartElement("dataset")
writer.WriteStartElement("DataKonsumen")
writer.WriteComment("Start datakonsumen")
For rowIndex As Integer = 0 To .DataGridKonsumen.Rows.Count - 1 Step 1
writer.WriteElementString("perusahaan", .DataGridKonsumen.Item(0, rowIndex).Value)
writer.WriteElementString("contactperson", .DataGridKonsumen.Item(1, rowIndex).Value)
writer.WriteElementString("phone", .DataGridKonsumen.Item(2, rowIndex).Value)
writer.WriteElementString("alamat", .DataGridKonsumen.Item(3, rowIndex).Value)
Next
writer.WriteComment("End datakonsumen")
writer.WriteEndElement()
writer.WriteEndElement()
writer.WriteEndDocument()
writer.Flush()
writer.Close()
MsgBox("File XML Data Konsumen Berhasil dibuat..!")
End Using
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
</code></pre>Lokasi file XML ("../../XML/datakonsumen.xml") akan ditempatkan di folder XML, berada di path yang sama dengan file-file penyusun obyek VB.Net. Bila anda pernah menggunakan VB 6, maka alamat ("../../XML/datakonsumen.xml") sama seperti menggunakan app.path.<br />
<br />
Source code program dapat didownload di akhir postingan ini. Jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda (lihat di file ModulKoneksi.vb.)<br />
<br />
<a href="http://www.ziddu.com/download/15586874/createXML.rar.html">Download disini </a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-33607401197993301972011-07-04T05:54:00.000-07:002011-08-09T06:54:14.201-07:00Validasi Data Menggunakan Regular Expression / Regex di VB.Net 2008Regular Expression atau Regex memungkinkan anda menguraikan teks secara mudah untuk mengikuti suatu pola teks tertentu. Regex umumnya digunakan untuk memvalidasi suatu inputan / data agar sesuai dengan pola yang diinginkan. Dalam .NET Framework disediakan namespace System.Text.RegularExpressions untuk mendukung penggunaan Regex.<br />
<br />
Contoh sederhana misalkan kita ingin data inputan berupa data numerik, maka ekspresinya [0-9] atau \d. Jika kita ingin data inputan berupa huruf kapital dan angka, maka ekspresinya [0-9A-Z].<br />
<br />
Berikut adalah contoh syntax perintah dari Regex:<br />
1. [abc] => hanya karakter a,b dan c saja yang diijinkan.<br />
2. [^abc] => karakter apa saja boleh kecuali a,b dan c.<br />
3. [0-9] => karakter yang diijinkan angka 0 hingga 9, sama dengan \d.<br />
4. \w => Semua karakter diijinkan, sama dengan [a-zA-Z_0-9].<br />
5. \W => Kebalikan dari \w. Hanya karakter simbol yang diijinkan.<br />
6. \d => Karakter numerik yang diijinkan<br />
7. \D => Karakter numerik tidak diijinkan<br />
8. \n => baris baru<br />
9. \t => Tab<br />
10. * => Terdapat 0 atau lebih karakter yang sesuai.<br />
11. + => Terdapat minimal 1 atau lebih karakter yang sesuai.<br />
12. ? => Terdapat 0 atau 1 karakter yang sesuai.<br />
13. +? => Terdapat pengulangan setidaknya 1 kali.<br />
14. {n} => Terdapat sebanyak n kecocokan dalam string.<br />
15. {n,m} => Terdapat minimal n kecocokan namun tidak lebih dari m.<br />
16. . => Tanda Titik berarti Semua Karakter diijinkan.<br />
<br />
Sebenarnya masih ada lagi contoh syntaxnya, namun diatas adalah yang umum digunakan. Setiap ekspresi Regex harus diawali dengan ^ dan diakhiri $. <br />
<br />
Berikut contoh ekspresi Regex untuk tahun kelahiran yang valid :<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> "^(18)|(19)|(20)\d\d$"
</code></pre><br />
Penjelasan :<br />
^ berarti awal dari ekspresi<br />
(18)|(19)|(20) berarti tahun diawali oleh angka 18, 19 atau 20<br />
\d berarti diikuti karakter numerik<br />
$ berarti akhir dari ekspresi<br />
<br />
Sekarang saya akan coba menggunakan metode Regex ini untuk validasi data. Kali ini saya membuat sebuah Form seperti berikut ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgumllKb7B2isooo5TzLMz3AU9g0g-tUPEpMOrHPXnbBBh-kiX0T7cYH6VpErp-E5gKxjLiWyzfwN2oDgydEyijAsQZgXWK1BP0uhzbyjl03EHQ5eWTwiv733lQtQZOGycMQoOG7HUvUR8/s1600/regex.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgumllKb7B2isooo5TzLMz3AU9g0g-tUPEpMOrHPXnbBBh-kiX0T7cYH6VpErp-E5gKxjLiWyzfwN2oDgydEyijAsQZgXWK1BP0uhzbyjl03EHQ5eWTwiv733lQtQZOGycMQoOG7HUvUR8/s1600/regex.gif" /></a></div><div style="text-align: center;"><br />
</div>Contoh diatas adalah contoh validasi nilai tahun kelahiran, email dan URL menggunakan Regex serta plus metode penggunaan Regex untuk replace string.<br />
<br />
apabila user memasukkan nilai secara sembarang, maka akan tampil message yang menyatakan tidak valid. Berikut ini contoh kode untuk Regex valid tahun :<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Function ValidTahun(ByVal str As String)
Return Regex.IsMatch(str, "^(18)|(19)|(20)\d\d$")
End Function
</code></pre><br />
Kalau ada yang mau source code lengkap program diatas (ngarep, hehehe) dapat didownload di akhir postingan ini.<br />
<br />
<a href="http://www.ziddu.com/download/15576043/TestRegex.rar.html">Download disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1tag:blogger.com,1999:blog-2824950854427960132.post-24562970706474589822011-07-03T06:50:00.000-07:002011-09-01T03:05:08.676-07:00Daftar Program PTC Terpercaya<div style="text-align: justify;">PTC (Paid To Click) memang suatu bisnis internet yang cocok dijalankan oleh para pemula bisnis internet karena cara kerjanya yang sangat mudah. Anda tinggal klik iklan-iklan yang tersedia dan menunggu l0-30 detik, hingga iklan terbuka dan uang secara otomatis akan bertambah ke account Anda. Memang tidak banyak, hanya Rp 50 untuk setiap klik, namun lumayan dan tidak ada ruginya pula.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Anda tertarik untuk memulai bisnis PTC? Silahkan klik daftar PTC yang ada di bawah ini. Saran saya, ikutilah semua program PTC berikut karena yang dibawah ini saya rekomendasikan dan dapat dipercaya dibanding PTC-PTC lain.</div><div style="text-align: justify;"><br />
<a href="http://intoffers.com/members/register.php?ref=salvopaverani" target="_blank"><img border="0" height="60" src="http://intoffers.com/images/banners/8.gif" width="468" /></a><br />
<br />
<a href="http://incrasebux.com/register.php/salvopaverani.html" target="_blank"><img border="0" height="60" src="http://www.incrasebux.com/images/banner4.gif" width="468" /></a><br />
<br />
<a href="http://www.clixsense.com/?3632636"><img border="0" src="http://static.clixsense.com/banners/clixsense468x60e.gif" /></a><br />
<a href="http://www.clicksia.com/index.php?ref=salvopaverani"><br />
<img border="0" src="http://www.clicksia.com/banners/banner1.gif" /></a><br />
<br />
<a href="http://bigtimebux.com/index.php?ref=salvopaverani" rel="nofollow" target="_blank"><img align="middle" border="0" src="http://bigtimebux.com/themes/GeN4/images/banner.gif" /></a><br />
<br />
<a href="http://www.yimbux.com/?ref=salvopaverani"><img border="0" src="http://www.yimbux.com/images/banner1.gif" /></a><br />
<br />
<a href="http://www.buxsecure.com/?ref=salvopaverani"><img border="0" src="http://www.buxsecure.com/images/banner1.png" /></a><br />
<br />
<a href="http://www.foreverbux.com/?ref=salvopaverani"><img border="0" src="http://www.foreverbux.com/images/banner1.png" /></a><br />
<br />
<a href="http://www.powerfulbux.com/?ref=salvopaverani"><img border="0" src="http://www.powerfulbux.com/images/banner1.png" /></a><br />
<br />
<a href="http://www.infinitybux.com/?ref=salvopaverani"><img border="0" src="http://www.infinitybux.com/images/banner9.png" /></a><br />
<br />
<a href="http://www.tviptc.com/?ref=salvopaverani"><img border="0" src="http://www.tviptc.com/images/banner1.png" /></a><br />
<br />
<a href="http://www.tenadsplus.com/?ref=salvopaverani"><img border="0" height="60" src="http://www.tenadsplus.com/banner_ads/2yy2ext.gif" width="468" /></a><br />
<br />
<a href="http://www.bemabux.com/?ref=salvopaverani"><img border="0" src="http://www.bemabux.com/images/banner1.gif" /></a><br />
<br />
<a href="http://yaktabux.com/index.php?ref=salvopaverani" rel="nofollow" target="_blank"><img align="middle" border="0" src="http://yaktabux.com/themes/GeN4/images/banner.jpg" /></a><br />
<br />
<a href="http://ncrbux.com/register.php/salvopaverani.html" rel="nofollow" target="_blank"><img align="center" border="0" src="http://www.ncrbux.com/themes/default/images/banner2.gif" /></a><br />
<br />
<div style="text-align: justify;">Anda bisa bertanya kepada saya tentang Program PTC dengan menulis comment dibawah postingan ini atau email ke salvopaverani@gmail.com</div></div>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-75325628219582434852011-07-03T05:50:00.000-07:002011-08-09T06:54:35.543-07:00Simple Proses Input - Edit - Delete Data Dengan VB.Net 2008 dan SQL Server 2008Bila kita membuat aplikasi desktop yang memakai database, tentu kita akan bekerja dengan proses Input, Edit dan Delete data. Nah, di postingan kali ini kita akan membuat contoh proses tersebut dengan memakai database <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">SQL Server 2008</a>.<br />
<br />
Seperti biasa siapkan dulu contoh tabel database yang akan digunakan. Sebagai contoh kita akan bermain dengan nama-nama obat. Nama databasenya testing dan nama tabelnya obat. Berikut penampakan tabel obat : (Script SQL query dapat didownload di akhir postingan).<br />
<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUOzZBUfFls-v9eNVZhWafddIqXSeBMwGAS04Uvyy0es-emPMBvHu6M9tjAft1zF-YqGastV_kg0u7kHFIWPCVdiaq5FOq4YrR33MNgejDzlsPHQ-ovkILvLv38_UubGpI2mEpmJpdbGo/s1600/tabel.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUOzZBUfFls-v9eNVZhWafddIqXSeBMwGAS04Uvyy0es-emPMBvHu6M9tjAft1zF-YqGastV_kg0u7kHFIWPCVdiaq5FOq4YrR33MNgejDzlsPHQ-ovkILvLv38_UubGpI2mEpmJpdbGo/s400/tabel.gif" width="400" /></a></div><br />
Buat Project baru di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dab berinama ProsesDataObat. Berikut tampilan Tab Solution Explorernya :<br />
<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmw7ejBGKzSuY6jhiTnP6hgfI5x9AUyoBW050qG5XzB4Oxyd3N57jT-FsIfSjl-aWJ_Z71Z1Y8CIWbhs30EWqYl5gQA76TVYANNe3-snflhLjs3LyZkUHOLlAcADLBa9GvwhDPWWN9sjI/s1600/se.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmw7ejBGKzSuY6jhiTnP6hgfI5x9AUyoBW050qG5XzB4Oxyd3N57jT-FsIfSjl-aWJ_Z71Z1Y8CIWbhs30EWqYl5gQA76TVYANNe3-snflhLjs3LyZkUHOLlAcADLBa9GvwhDPWWN9sjI/s1600/se.gif" /></a></div><br />
Sebagai awal, rename form1 menjadi FormObat. Kira-kira form yang saya buat seperti berikut ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6d6n8zEPJ2PVneAHRRGbyEBBXdGjL1IbuRXi8rSSRaKja_LTdowpBmR4VPXeLhp8kfd_uEtsuOCKega3rlgOVa9Me1hmIhFmHsDCLvU18AJ_EM6y2LhEz2KhPUhhaJNXlrdcL-Zvx90g/s1600/formobat.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="233" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6d6n8zEPJ2PVneAHRRGbyEBBXdGjL1IbuRXi8rSSRaKja_LTdowpBmR4VPXeLhp8kfd_uEtsuOCKega3rlgOVa9Me1hmIhFmHsDCLvU18AJ_EM6y2LhEz2KhPUhhaJNXlrdcL-Zvx90g/s400/formobat.gif" width="400" /></a></div><div style="text-align: center;"><br />
</div>Sekarang buatlah File modul dengan nama ModulKoneksi.vb, file ini tentu untuk koneksi database. Berikut adalah contoh script koneksinya :<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Public koneksi As SqlConnection = Nothing
Public cmd As SqlCommand = Nothing
Public Sub koneksiDB()
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Try
koneksi = New SqlClient.SqlConnection(connString)
koneksi.Open()
koneksi.Close()
Catch ex As Exception
MessageBox.Show("Database Connection Error : " & ex.Message)
End Try
End Sub
</code></pre><br />
Pada Form buat proses untuk load data ke FormObat. Intinya Pada saat Form Load, maka data di database akan di Load ke FormObat. Berikut ini contohnya:<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Sub getDataFromDB(ByVal i As Integer)
koneksiDB()
Try
koneksi.Open()
DS_Obat = New DataSet
sql = "SELECT * FROM obat"
DA_Obat.SelectCommand = New SqlClient.SqlCommand(sql, koneksi)
DA_Obat.Fill(DS_Obat, "obat")
RowNumber = i
koneksi.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub DaftarObat()
If DS_Obat.Tables("obat").Rows.Count = 0 Then
MsgBox("Data Obat di Database Masih Kosong", MsgBoxStyle.Exclamation, "Pesan Program")
Exit Sub
End If
Me.TextBoxKodeObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("kd_obat").ToString
Me.TextBoxNamaObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("nama").ToString
Me.ComboBoxJenisObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("jenis").ToString
Me.TextBoxStok.Text = DS_Obat.Tables("obat").Rows(RowNumber)("stok").ToString
Me.TextBoxSatuan.Text = DS_Obat.Tables("obat").Rows(RowNumber)("satuan").ToString
Me.TextBoxHargaBeli.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargabeli").ToString
Me.TextBoxHargaJual.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargajual").ToString
End Sub
</code></pre><br />
Berikutnya adalah tombol operasi data, namun untuk ini saya membuat 1 file modul khusus yaitu ModulFormObat.vb yang khusus untuk kode Operasi data (Lihat Solution Explorer). Pertama input data. Berikut adalah kode input data yang saya gunakan.<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Sub SaveData()
With FormObat
Try
If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
sql = "INSERT INTO obat VALUES ('" & .TextBoxKodeObat.Text & "', '" & .TextBoxNamaObat.Text & "', '" & .ComboBoxJenisObat.Text & "', '" & .TextBoxSatuan.Text & "', '" & .TextBoxStok.Text & "', '" & .TextBoxHargaBeli.Text & "','" & .TextBoxHargaJual.Text & "')"
cmd = New SqlClient.SqlCommand(sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil Disimpan", MsgBoxStyle.Information, "Pesan Program")
.LoadData()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
</code></pre><br />
Kedua untuk Edit data, berikut adalah contoh kode yang saya gunakan.<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Sub EditData()
With FormObat
Try
If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
sql = "UPDATE obat SET nama='" & .TextBoxNamaObat.Text & "', " _
& "jenis = '" & .ComboBoxJenisObat.Text & "', " _
& "satuan = '" & .TextBoxSatuan.Text & "', " _
& "stok = '" & .TextBoxStok.Text & "', " _
& "hargabeli = '" & .TextBoxHargaBeli.Text & "', " _
& "hargajual = '" & .TextBoxHargaJual.Text & "' " _
& "WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"
cmd = New SqlClient.SqlCommand(sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil DiUpdate", MsgBoxStyle.Information, "Pesan Program")
.LoadData()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
</code></pre><br />
Dan terakhir yaitu untuk Delete Data.<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Sub DeleteData()
With FormObat
Try
Dim hapus As Integer
Dim Sql As String
hapus = MsgBox("Anda Yakin Ingin Menghapus Data Obat " & .TextBoxNamaObat.Text & " ini?", MsgBoxStyle.OkCancel, "Info Program")
Select Case hapus
Case vbCancel
Exit Sub
Case vbOK
Sql = "DELETE FROM obat WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"
cmd = New SqlClient.SqlCommand(Sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Information, "Info Program")
.LoadData()
End Select
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
</code></pre><br />
Sedangkan untuk navigasi datanya, berikut adalah contoh kode yang saya gunakan.<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Private Sub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click
RowNumber = 0
Me.DaftarObat()
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
If RowNumber = 0 Then
MsgBox("Anda Berada di Data Paling Awal", MsgBoxStyle.Information, "Info Program")
Else
RowNumber -= 1
Me.DaftarObat()
End If
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
If RowNumber = DS_Obat.Tables("obat").Rows.Count - 1 Then
MsgBox("Anda Berada di Data Paling Akhir", MsgBoxStyle.Information, "Info Program")
Else
RowNumber += 1
Me.DaftarObat()
End If
End Sub
Private Sub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click
RowNumber = DS_Obat.Tables("obat").Rows.Count - 1
Me.DaftarObat()
End Sub
</code></pre><br />
Untuk tombol Search buat Form baru dengan nama FormDataGrid. Berikut adalah tampilan Formnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJncunJQ2MLW8_8DayG_Ir3_a3B6fDVGf1tT00hv8DfEnO4HQqC3P34tFzOnZO7MCiQ25ROBLvqo1IW9G3sjkfS1x8mxJuowlUdVfnahiJAd6vMbO51-DNdYqMlfRSu1RymZzOcr60y7U/s1600/formdg.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="249" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJncunJQ2MLW8_8DayG_Ir3_a3B6fDVGf1tT00hv8DfEnO4HQqC3P34tFzOnZO7MCiQ25ROBLvqo1IW9G3sjkfS1x8mxJuowlUdVfnahiJAd6vMbO51-DNdYqMlfRSu1RymZzOcr60y7U/s400/formdg.gif" width="400" /></a></div><div style="text-align: center;"></div><div style="text-align: center;"></div><br />
<br />
Jadi, saat data terlalu banyak, user bisa memilih menggunakan Datagrid dengan klik pada cell atau double klik di baris data yang anda inginkan. Berikut adalah contoh kode saat user melakukan klik untuk pemilihan data:<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Private Sub DataGridFullData_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridFullData.DoubleClick
FormObat.getDataFromDB(DataGridFullData.CurrentCell.RowIndex)
FormObat.DaftarObat()
Me.Close()
End Sub
</code></pre><br />
Anda sebenarnya bisa download source code program di akhir artikel ini. Jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda (lihat di ModulKoneksi.vb.)<br />
<br />
<a href="http://www.ziddu.com/download/15565698/ProsesDataObat.rar.html">Download Disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com2tag:blogger.com,1999:blog-2824950854427960132.post-63488438206435091672011-07-02T08:07:00.000-07:002011-08-09T06:55:18.688-07:00Menghapus Virus Shortcut + Recycler (Ramnit - WaterMark.exe)Beberapa hari lalu di Warnet dekat kampus, saya kaget Flashdisk Jetflash saya telah disusupi oleh file tidak dikenal yang saat itu saya sebut Virus Shortcut + Recycler.<br />
<br />
Virus ini membuat 4 file yang bernama Copy of Shortcut to (1).lnk, Copy of Shortcut to (2).lnk, Copy of Shortcut to (3).lnk dan Copy of Shortcut to (4).lnk. Virus ini juga membuat folder Recycler yang berisi folder bernama acak. Folder acak tersebut juga diisi oleh file-file acak yang otomatis dibuat secara terus menerus sehingga membuat komputer terasa lambat. Berikut penampakannya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQ1PzJmfF9vzO5l-UbH21j9uybH0UT7PwMZka5SDe3rKB7FAP0-ah5FHlshk-8VNDix3liUrBbJY6wDo5h-aNR09tzl_6v0DTM4SIXsuLAsGizXGRNyadqmORgfJ_fUY7K1RLhszoAvHo/s1600/shortkat2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQ1PzJmfF9vzO5l-UbH21j9uybH0UT7PwMZka5SDe3rKB7FAP0-ah5FHlshk-8VNDix3liUrBbJY6wDo5h-aNR09tzl_6v0DTM4SIXsuLAsGizXGRNyadqmORgfJ_fUY7K1RLhszoAvHo/s400/shortkat2.jpg" width="400" /></a></div><br />
<br />
Dengan sikap sok jagoan saya coba menantang virus ini dengan mencolok flashdisk terinfeksi itu ke komputer rumah, otomatis virus pun menjalar ke komputer.<br />
<br />
Besoknya saya install NO*32 dan virus pun terdeteksi sebagai Ramnit, ternyata NO*32 tidak mampu membersihkan virus ini, ia hanya menghapus file yang terinfeksi virus. <br />
<br />
Virus ternyata bisa diakali dengan baca file autorun.inf dan rename nama file tujuan. Lalu buat file .exe lain dengan nama file tujuan virus tadi. Otomatis saat flashdisk dicolok ia akan mengeksekusi file .exe buatan kita. Namun virus masih eksis, ditandai saat saya colok flashdisk kosong maka Flashdisk terinfeksi.<br />
<br />
Untuk antisipasi saya pun mengimport file backup registry dan benar saja, virus masih eksis. Waduuh...<br />
<br />
Saya coba pakai Smad**, hasilnya system scan mendeteksi ada registry value yang dicurigai yaitu di HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\ dengan value name Userinit dan value yang dicurigai adalah path C:\Program Files\WaterMark.exe.<br />
<br />
Benar saja, pada properties file WaterMark.exe disebut file dibuat dengan tanggal kemarin. Ini dia pembuat masalahnya.<br />
<br />
File ini tidak bisa dihapus karena sedang active. Solusi berikutnya panggil Task Manager dan ternyata tidak ada nama proses WaterMark.exe. Terpaksa browsing internet untuk cari cara menghapusnya.<br />
<br />
Ketemu, ternyata nama prosesnya svchost.exe yang usernamenya pakai nama komputer kita. Benar saja WaterMark.exe bisa dihapus. Namun masalah belum selesai, saat komputer restart si WaterMark.exe eksis lagi. Mesti browsing lagi...<br />
<br />
Solusinya ternyata dengan membuat folder WaterMark.exe sebagai tandingan di C:\Program Files\Microsoft. Bila perlu buat folder con didalam folder WaterMark.exe agar tidak bisa asal dihapus / ditimpa. Berikut kronologinya :<br />
<br />
1. Melalui Task Manager, hentikan proses svchost.exe yang usernamenya nama komputer.<br />
2. Hapus file WaterMark.exe di path C:\Program Files\Microsoft\<br />
3. Panggil Command Prompt dan arahkan ke path C:\Program Files\Microsoft\<br />
4. Ketikan md WaterMark.exe lalu Enter<br />
5. Ketikan lagi cd WaterMark.exe<br />
6. Ketikan lagi md con\\<br />
<br />
Selesai... Virus Ramnit (WaterMark.exe) atau Shortcut + Recycler (versi saya) sudah tidak eksis lagi.<br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-75050784772649128912011-07-02T06:57:00.000-07:002011-08-03T02:11:33.007-07:00IDR CLICKIT, Klik-klik dapat Uang yang Terpercaya<span style="font-family: inherit;">[ Situs ini telah ditutup ]</span><br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;"><br />
</div>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-80221619016189166332011-06-27T07:28:00.000-07:002011-06-27T07:28:56.521-07:00Tips Optimasi Query SQL ServerOptimasi dapat berarti suatu cara untuk memperoleh kinerja maksimum. Maka Optimasi Query SQL Server berarti suatu cara atau tips untuk memperoleh kinerja maksimum dari <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">Database SQL Server</a> saat mengeksekusi perintah Query yang kita berikan.<br />
<br />
Setelah berkelana menjelajahi puluhan tutorial di Internet yang saya dapatkan, saya coba share beberapa trik untuk optimasi Database SQL Server kita, antara lain :<br />
<br />
1. Menentukan Tipe Data yang Tepat.<br />
Hal ini sebenarnya gampang-gampang susah, perlu ketelitian dalam menganalisa tipe dari data-data yang hendak kita kelola. Sebagai contoh, Kita harus mengetahui kapan harus menggunakan tipe data char atau varchar. Keduanya sama-sama tipe karakter, bedanya char ukuran penyimpanannya tetap (fixed), sedangkan varchar ukuran penyimpanannya sesuai dengan panjang karakter data.<br />
<br />
2. Hindari <span style="font-family: "Courier New",Courier,monospace;">Allow Null</span><br />
Kurangi penggunaan <span style="font-family: "Courier New",Courier,monospace;">Allow Null</span>, sebagai gantinya berikan nilai default bila field kosong. Nilai <span style="font-family: "Courier New",Courier,monospace;">null</span> mengonsumsi byte tambahan sehingga menambah beban saat akses query.<br />
<br />
3. Hindari <span style="font-family: "Courier New",Courier,monospace;">SELECT *</span><br />
Perintah <span style="font-family: "Courier New",Courier,monospace;">SELECT</span> sangat umum digunakan, perintah SELECT dengan (*) akan mengakses seluruh field di suatu tabel. Bila tabel anda punya banyak field dan anda hanya memerlukan sebagian fieldnya saja, ada baiknya anda menentukan field yang hendak anda proses daripada menggunakan tanda (*).<br />
<br />
4. Batasi ORDER BY<br />
Pengurutan akan menambah konsekuensi menambah beban query karena akan menambah 1 proses yaitu sorting. Karena itu gunakan perintah ORDER BY hanya jika anda memerlukannya. Jika memungkinkan lakukan proses Pengurutan / Sorting pada aplikasi, bukan di Query.<br />
<br />
5. Gunakan <span style="font-family: "Courier New",Courier,monospace;">JOIN</span> daripada Subquery<br />
Daripada anda menumpuk beberapa Query sekaligus yang saling berhubungan, lebih baik anda menggunakan JOIN untuk menghasilkan performa yang lebih cepat.<br />
<br />
6. Batasi Record yang dipanggil<br />
Perhatikan bila table anda memiliki ratusan atau ribuan data, jangan memanggil seluruh data sekaligus. Disarankan anda melakukan Paging dengan membatasi Record yang keluar dengan menggunakan perintah <span style="font-family: "Courier New",Courier,monospace;">TOP</span> didalam perintah <span style="font-family: "Courier New",Courier,monospace;">SELECT</span>. Contoh : <span style="font-family: "Courier New",Courier,monospace;">SELECT TOP 100</span>... (sama dengan perintah LIMIT pada Mysql)<br />
<br />
7. Link Gambar di Database<br />
Ada pepatah mengatakan sebuah gambar bermakna sejuta kata namun tidak berarti anda harus menyimpan gambar tersebut di database, akan lebih optimal bila anda menyimpan path / lokasi dan nama file gambarnya saja.<br />
<br />
Pasti masih banyak cara lain yang tidak mungkin dibahas semuanya disini. Mungkin anda juga tidak terlalu melihat perbedaan yang signifikan jika anda mengabaikan tips-tips diatas terlebih jika spesifikasi komputer / server anda cukup canggih untuk kinerja eksekusi program yang cepat. Namun anda disarankan untuk menekan penggunaan memory untuk optimasi kinerja Database terlebih bila anda bekerja dengan aplikasi yang besar.T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-69420918076537965592011-06-27T07:23:00.000-07:002011-08-09T06:55:46.005-07:00Membuat Format Rich Text Editor dengan VB.Net 2008Apabila kita berbicara tentang Rich Text maka itu berarti suatu Text Editor yang memiliki fasilitas format text yang banyak. Text Editor dalam hal ini harus lebih kaya fungsi dibanding Text Editor sederhana seperti Notepad.<br />
<br />
Kita coba membuatnya di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dan ini adalah contoh Rich Text Editor (seperti Wordpad di Windows). Menu menggunakan icon-icon (seperti toolbar) yang digunakan untuk memformat text pada textpad.<br />
<br />
Berikut adalah penampakan output program Rich Text Editor yang dimaksud. (mirip dengan Wordpad)<br />
<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcIhWJqeGK5K1Wo6PvIdgS5lZgsibFYZXlj72_kHnc6azMTJ7GGaMOFbqapp3aYCg-NsLeFUMVetypBe3PW9djg96kzaqhwa9YppYkbVn7H4Z678aRfkL2O44W5cJhu7Kw8R4cAmPxOY/s1600/rtb.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="277" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcIhWJqeGK5K1Wo6PvIdgS5lZgsibFYZXlj72_kHnc6azMTJ7GGaMOFbqapp3aYCg-NsLeFUMVetypBe3PW9djg96kzaqhwa9YppYkbVn7H4Z678aRfkL2O44W5cJhu7Kw8R4cAmPxOY/s400/rtb.gif" width="400" /></a></div><br />
Program diatas sebenarnya tidak menggunakan object RichTextBox yang disediakan di ToolBox, namun melakukan scripting untuk membuat objectnya. (code saya temukan saat browsing di Google)<br />
<br />
Untuk yang ingin download program dapat mengklik link download di akhir program.<br />
<br />
<a href="http://www.ziddu.com/download/15505664/FormatRichText.rar.html">Download Disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com0tag:blogger.com,1999:blog-2824950854427960132.post-92080305453301960162011-06-22T08:07:00.000-07:002011-08-09T06:55:59.343-07:00Membuat Form Login di VB.Net 2008Anda pasti tahu kegunaan Form Login, kira-kira untuk melakukan authentication terhadap user yang hendak menggunakan suatu aplikasi.<br />
<br />
Kali ini kita akan membuat Login Form, pertama-tama siapkan di <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">Sql Server</a> sebuah database testing dan tabel bernama tbl_user. Kurang lebih berikut penampakan tbl_user.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiL4xUvX8vXaATpASH_6Ky3LpPBu_3oF33BZeaaIfidTBZ5OflAj7WczM9bC7Y96ltezvh7aiFIZPyJFQgbFt12hUAUPdvoIEAxoDGFMTKXvd8qHwhezw8Kav1erLhzauYGTMlkM5rbrKE/s1600/tabel.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiL4xUvX8vXaATpASH_6Ky3LpPBu_3oF33BZeaaIfidTBZ5OflAj7WczM9bC7Y96ltezvh7aiFIZPyJFQgbFt12hUAUPdvoIEAxoDGFMTKXvd8qHwhezw8Kav1erLhzauYGTMlkM5rbrKE/s400/tabel.gif" width="400" /></a></div><br />
Sql code untuk tabel diatas dapat didownload di akhir postingan. Selanjutnya buat Project baru di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> anda dan buat form login seperti berikut ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRM2EtYwPgCx7S7lhjAqfR_WP2E3h66Pd0F8_fC3WmKygsUjGcjE0eaFl9l3vUu1kWusVB9NcvndG-8xLttPD-rWAzzZR13P7STkWE6CdFuJ5EzXyF2s3DEEAs4MPUe82gFd-y9ClKm1o/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRM2EtYwPgCx7S7lhjAqfR_WP2E3h66Pd0F8_fC3WmKygsUjGcjE0eaFl9l3vUu1kWusVB9NcvndG-8xLttPD-rWAzzZR13P7STkWE6CdFuJ5EzXyF2s3DEEAs4MPUe82gFd-y9ClKm1o/s1600/aplikasi.gif" /></a></div><br />
Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja. Berikut adalah kode untuk proses login yang akan kita gunakan :<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> cmd.Connection = koneksi
cmd.CommandText = "SELECT * FROM tbl_user WHERE myuser = '" & TextBoxUser.Text & "' and mypass = '" & TextBoxPass.Text & "'"
dtReader = cmd.ExecuteReader
If (dtReader.Read()) Then
Utama.Show()
Else
MsgBox("Maaf, Username dan Password tidak Ditemukan....!", MsgBoxStyle.OkOnly, "Login Gagal")
End If
</code></pre><br />
Anda juga dapat mendownload sample kode program login ini diakhir postingan ini. Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">SQL Server</a> di komputer / laptop anda.<br />
<br />
<a href="http://www.ziddu.com/download/15444748/Login.rar.html">Download Disini</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1tag:blogger.com,1999:blog-2824950854427960132.post-19099411285938929072011-06-21T08:02:00.000-07:002011-07-04T07:02:16.597-07:00Save dan Load File Gambar dengan SQL Server dan VB.Net 2008Postingan kali ini tentang gambar, yaitu cara save image ataupun load image di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a>. Gambar dalam hal ini akan ditampilkan melalui PictureBox.<br />
<br />
Pertama-tama, di <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">SQL Server</a> siapkan sebuah table bernama tbl_img (nama database = testing).<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh334nlVCLSXVzMkScE0tIrKBl0j1wznADTYbvRDOhJdb1hJV8refzTzc0Cxyg5k8NHGVIfG5a_YiY0V_1jMV02gnN_G-erngx5TlVMVm-LFn0oVKKkOAe7panTxRzMC4VTwAY9oCANsSs/s1600/tabel.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh334nlVCLSXVzMkScE0tIrKBl0j1wznADTYbvRDOhJdb1hJV8refzTzc0Cxyg5k8NHGVIfG5a_YiY0V_1jMV02gnN_G-erngx5TlVMVm-LFn0oVKKkOAe7panTxRzMC4VTwAY9oCANsSs/s400/tabel.gif" width="400" /></a></div><br />
Data di tabel hanya contoh, boleh diabaikan. Tabel tbl_img ini untuk menyimpan nama file dengan Path gambar yang kita akan gunakan.<br />
<br />
Langsung saja buat sebuah project baru di VB.Net dan rancang form seperti berikut ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEia9EezfqKI9qLEIRq1D5DzzzfT0VVCaHL7q3qJwS4ZqHOvAnVZ75xzGT7ZxQkMh-ypgsawaUyNUgwL1ZdOjkGB9ZmcjNyODQ7ZFaJlx_PC6n8cSVb7WLVkVeuAmkD1JE-qUhCgvTuDq1w/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="193" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEia9EezfqKI9qLEIRq1D5DzzzfT0VVCaHL7q3qJwS4ZqHOvAnVZ75xzGT7ZxQkMh-ypgsawaUyNUgwL1ZdOjkGB9ZmcjNyODQ7ZFaJlx_PC6n8cSVb7WLVkVeuAmkD1JE-qUhCgvTuDq1w/s400/aplikasi.gif" width="400" /></a></div><br />
Catatan : Disamping objek yang terlihat diatas, saya juga menggunakan OpenFileDialog.<br />
<br />
Anda bisa download sample programnya (beserta Sql Code utk database) di akhir postingan.<br />
<br />
Logika programnya sederhana, awalnya memilih gambar melalui tombol Load Picture lalu save datanya ke database dengan tombol Save Picture.<br />
<br />
Berikut adalah contoh Load File Image :<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> OpenFileDialog1.Filter = "JPG Files (*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files (*.gif)|*.gif|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|TIFF Files (*.tiff)|*.tiff"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
End If
</code></pre><br />
dan berikut untuk Save (Nama file & Path) ke Database :<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Dim cmd As SqlCommand = New SqlCommand("INSERT INTO tbl_img (gambar, alamat) VALUES ('" & TextBoxFileName.Text & "', '" & PathFile & "')", koneksi)
cmd.CommandType = CommandType.Text
Dim DReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
</code></pre>Untuk mempermudah anda bisa <a href="http://www.ziddu.com/download/15434010/picture.rar.html">Download Program disini</a><br />
<br />
Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com3tag:blogger.com,1999:blog-2824950854427960132.post-91928359159144267222011-06-20T06:18:00.000-07:002011-08-09T06:56:36.659-07:00Mengisi ComboBox Dengan Data dari Tabel di DatabasePostingan kali ini yaitu cara mengisi value dari Combobox yang value-nya berasal dari database. Pertama-tama tentu menyiapkan tabelnya di <a href="http://id.wikipedia.org/wiki/Microsoft_SQL_Server">SQL Server</a>, sebagai contoh saya menggunakan database testing dan tabel bernama tbl_obat. Berikut penampakannya.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbJLeOISDn6fIS9ISNB03wi8ldvKI98sMOMkIWN2-WfxHtUyBZ6s3HvVazf1zH4m8i3ipoR2ir8v-UV_wdlXQtUFrMR0lqVFg_1J-thaW77AAyN2doL1LkLkZ-QtSsqZfP0oeoi_eJQ8U/s1600/tabel.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbJLeOISDn6fIS9ISNB03wi8ldvKI98sMOMkIWN2-WfxHtUyBZ6s3HvVazf1zH4m8i3ipoR2ir8v-UV_wdlXQtUFrMR0lqVFg_1J-thaW77AAyN2doL1LkLkZ-QtSsqZfP0oeoi_eJQ8U/s400/tabel.gif" width="400" /></a></div><br />
Untuk SQL Code dapat didownload di akhir postingan. Sekarang buat project baru di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dan buat form seperti berikut ini.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXfoAQJLjs2FtblAyLZnDWgmBfqqQY0RCZOlIgqODDMVGegpvvJ48Bm-o5V_-hyPtUHzHvRu22GrAEY_rjjI_KX8z1SruRvenwSAoOhLCcLLMN4ouIRdr72NtzEFmcGcLwteCOXD4g_3c/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXfoAQJLjs2FtblAyLZnDWgmBfqqQY0RCZOlIgqODDMVGegpvvJ48Bm-o5V_-hyPtUHzHvRu22GrAEY_rjjI_KX8z1SruRvenwSAoOhLCcLLMN4ouIRdr72NtzEFmcGcLwteCOXD4g_3c/s1600/aplikasi.gif" /></a></div><br />
Secara sederhana, berikut adalah kode mengisi ComboBox dengan data dari Database. <br />
<pre style="background-image: URL(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> Dim query As String = "SELECT * FROM tbl_obat"
Dim DA = New SqlDataAdapter(query, koneksi)
Dim DS = New DataSet
DA.Fill(DS, "tbl_obat")
With ComboBox1
.DataSource = DS.Tables("tbl_obat")
.DisplayMember = "obat"
.ValueMember = "id"
.SelectedIndex = 0
End With
</code></pre>Untuk contoh Source Code Program beserta SQL Code dapat <a href="http://www.ziddu.com/download/15421397/IsiCombo.rar.html">didownload Disini.</a><br />
<br />
Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.<br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a><br />
T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1tag:blogger.com,1999:blog-2824950854427960132.post-22664451369558309692011-06-14T08:57:00.000-07:002011-08-09T06:57:16.952-07:00Laporan Crystal Report Berdasarkan Input Tanggal di VB.Net 2008Postingan kali ini masih tentang membuat laporan dengan <a href="http://en.wikipedia.org/wiki/Crystal_Reports">Crystal Report</a> yang datanya ditentukan berdasarkan tanggal yang diinput.<br />
<br />
Langsung saja, buat database SQL Server baru bernama testing dan buat tabel bernama beliObat, berikut penampakan tabelnya. (SQL Query dapat didownload bersama program di akhir postingan)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJu_g4zdovzZ_YI1R8SbpqR_XBwb9NnAx5OcV5lVeBCK5skg96THKbCCjTlFOQtCs_USsvrudzg7TBp0iHaCquBiKlLx1pwkOZfW7QCBVaO8tcgpF4SXaKO1Bv_JSXAk934UGcxy9jPes/s1600/tabel.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="234" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJu_g4zdovzZ_YI1R8SbpqR_XBwb9NnAx5OcV5lVeBCK5skg96THKbCCjTlFOQtCs_USsvrudzg7TBp0iHaCquBiKlLx1pwkOZfW7QCBVaO8tcgpF4SXaKO1Bv_JSXAk934UGcxy9jPes/s400/tabel.gif" width="400" /></a></div><br />
Buat project baru di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dan berinama laporan. Buat File Laporan baru dengan Crystal Report (Project - Add New Item - [Reporting] - Crystal Report) dan berinama myreport.rpt. Pada kotak dialog Crystal Report Gallery, pilih saja As a Blank Report.<br />
<br />
Tampilkan Field Explorer (bila tidak muncul, panggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Isikan konfigurasi di SQL Server anda dan pilih database testing, Klik Next dan Finish.<br />
<br />
Akan tampil kotak dialog Database Expert, pada bagian Selected Tables isikan dengan table beliObat yang kita buat tadi dan klik OK. Lihat Gambar.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEVuZ6_X3g-Ea4OPq5S59j7nEJBPYtWEmfnpbPreqA9qqy7T_RmE__aRu4qrldWCHqCDV89uF0wYPOFWFKIT_qnK8avBRydXN5Yrueah4jXR7L_M7NOpAby7I8QtXGvgL-7KGyMIxHV7A/s1600/db_expert.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="378" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEVuZ6_X3g-Ea4OPq5S59j7nEJBPYtWEmfnpbPreqA9qqy7T_RmE__aRu4qrldWCHqCDV89uF0wYPOFWFKIT_qnK8avBRydXN5Yrueah4jXR7L_M7NOpAby7I8QtXGvgL-7KGyMIxHV7A/s400/db_expert.gif" width="400" /></a></div><br />
Kita perlu parameter tanggal awal dan tanggal akhir sebagai data input ke Crystal Report. Melalui Field Explorer, klik kanan Parameter Fields dan pilih New. Pada Parameter Field, isikan name dengan awal. Lihat Gambar.<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqJtxcKYJM7Ia6IXzYGeKtQ-dycGdmdFculCX3XX6m6MBLclSIqU3nAG3PziDUdRDZ49jWcobbyhTFU_1UlTpjp8zpRnVwfN2-dzsiu3HN6oU5cAOXab91BP8qfAtaPKwi8XPZqnwb_Cw/s1600/parameter.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="268" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqJtxcKYJM7Ia6IXzYGeKtQ-dycGdmdFculCX3XX6m6MBLclSIqU3nAG3PziDUdRDZ49jWcobbyhTFU_1UlTpjp8zpRnVwfN2-dzsiu3HN6oU5cAOXab91BP8qfAtaPKwi8XPZqnwb_Cw/s400/parameter.gif" width="400" /></a></div><br />
Dengan cara yang sama buat parameter akhir.<br />
<br />
Melalui Field Explorer, Klik tanda + pada Database Fields dan pindahkan field-field di tabel beliObat ke Form Laporan. Tampilan Form Laporan akan seperti berikut ini:<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDJOIpRIvVwGEA6YZwUwyPObTnuIylo0JnbYIunCsFdJjlL_14QPOTBZSAYMfAgd8Hov_FDGLIxd0VKqquAnWToFZZ91dHoVI1eLwqfLZGKpAqks1zcWjrz1VPakqqX7tn0RMgvdrs8RY/s1600/report.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDJOIpRIvVwGEA6YZwUwyPObTnuIylo0JnbYIunCsFdJjlL_14QPOTBZSAYMfAgd8Hov_FDGLIxd0VKqquAnWToFZZ91dHoVI1eLwqfLZGKpAqks1zcWjrz1VPakqqX7tn0RMgvdrs8RY/s400/report.gif" width="400" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEVuZ6_X3g-Ea4OPq5S59j7nEJBPYtWEmfnpbPreqA9qqy7T_RmE__aRu4qrldWCHqCDV89uF0wYPOFWFKIT_qnK8avBRydXN5Yrueah4jXR7L_M7NOpAby7I8QtXGvgL-7KGyMIxHV7A/s1600/db_expert.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div>Untuk memasukkan parameter ke Crystal Report, klik kanan pada Form Laporan pilih selection Formula dan pilih Record dan ketikan syntax berikut:<br />
<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;">
DateTimeValue({?awal}) <= DateTimeValue({beliObat.tgl_beli}) and DateTimeValue({beliObat.tgl_beli}) <= DateTimeValue({?akhir})
</code></pre><br />
Lihat gambar untuk lebih jelas.<br />
<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgao3X6z7Nli4MRjxYCXo6HMSKw8uqDHLnN4vwicuNhpVpGsH1hQdKQQk4I69KbJHXVlYEnvUWzLt4K_eX_Nv58K7KjP8p0P6g6ZvMsa6oVdWuM2maYg2fojntkIr9I28h1RVNCQuTrNRc/s1600/parameter.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="336" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1ncAwNZGxQ11K_V_9wFaqv49GWQYZsA08lUFPoiYe7aRADEfvGKPzK1f5_8E5fG6pG436jFqM_a_YviV4sbXMjx9aSf6Se2hKpfIGQ6BNJczqju74MJYIJ1Db9L-Nm3nkjIPCMTyiA2A/s400/formula.gif" width="400" /></a> </div><br />
Buat Form baru (Windows Form) berinama Formlaporan dan drag CrystalReport Viewer di Toolbox ke Form tersebut. Pada properties CrystalReport Viewer, isikan ReportSource dengan report yang kita buat tadi dan pada Properties Form, ubah Windowstate menjadi Maximized.<br />
<br />
Sekarang pindah ke Form1, Buat inputan tanggal awal dan tanggal akhir dengan DateTimePicker. Pada properties DateTimePicker, ganti Format menjadi Custom dan CustomFormat menjadi yyyy-MM-dd. Lihat Contoh seperti berikut ini. <br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrX8PIN4GTYORWY2QYLXe3ra35RoCetBEV4QWDUgAcuvpdS9y6NJvEgWFdjPYa1losK1kv8_CXp0fAOlaOWFDAgZ4HJXlmHWSYR0GVamkAiSbhO6I6ck-OJ7T_JFFvYlOvgIQcqpLudmI/s1600/aplikasi.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrX8PIN4GTYORWY2QYLXe3ra35RoCetBEV4QWDUgAcuvpdS9y6NJvEgWFdjPYa1losK1kv8_CXp0fAOlaOWFDAgZ4HJXlmHWSYR0GVamkAiSbhO6I6ck-OJ7T_JFFvYlOvgIQcqpLudmI/s400/aplikasi.gif" width="400" /></a></div><br />
Isikan kode berikut pada tombol CREATE. Kode berikut ini untuk mengirim inputan tanggal ke Form Laporan Crystal Report.<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;">
Formlaporan.myreport1.SetParameterValue("awal", DateTimePicker1.Text)
Formlaporan.myreport1.SetParameterValue("akhir", DateTimePicker2.Text)
Formlaporan.Show()
</code></pre>Link download ada dibawah dan jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.<br />
<br />
<a href="http://www.ziddu.com/download/15358918/laporan.rar.html">Download Source Program</a><br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com15tag:blogger.com,1999:blog-2824950854427960132.post-90393140769195626602011-06-07T07:25:00.000-07:002011-08-09T06:57:32.583-07:00Membuat Laporan Crystal Report dengan Parameter di VB.NetAdakalanya saat hendak membuat laporan dengan <a href="http://en.wikipedia.org/wiki/Crystal_Reports">Crystal Report</a> di <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a>, kita perlu mengirim parameter tertentu ke Crystal Report karena kita hanya ingin menampilkan sebagian data saja dari suatu tabel.<br />
<br />
Sebagai contoh kali ini kita menggunakan 2 buah tabel seperti berikut : (kode SQL dapat didownload di akhir postingan)<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmSNjEdMuts1iN1YF8OeRCnSnZW3NoVSUqqBH3inIm_RlVMflAaq_TAZ5skKVL7Rxf7J8xw4oceMe4AOq50vWHPEWOJNWzaxq5w-OAnIGMnuQlxbEBJnzDYwzg7U24w_sLaxe-qLGKFx4/s1600/tabel.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="248" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmSNjEdMuts1iN1YF8OeRCnSnZW3NoVSUqqBH3inIm_RlVMflAaq_TAZ5skKVL7Rxf7J8xw4oceMe4AOq50vWHPEWOJNWzaxq5w-OAnIGMnuQlxbEBJnzDYwzg7U24w_sLaxe-qLGKFx4/s400/tabel.gif" width="400" /></a><br />
<br />
Kita hendak membuat laporan untuk buku yang kategori dan pengarangnya dapat kita tentukan sendiri, berarti kita perlu 2 parameter untuk memisahkan kategori buku dan pengarang.<br />
<br />
Pertama buat sebuah database di SQL Server dengan nama testing dan buat tabel seperti gambar diatas (disediakan SQL Query di akhir postingan).<br />
<br />
Buat Project baru di VB.Net 2008 dan beri nama laporan. Abaikan terlebih dahulu Form1.vb, dan buat File laporan dengan Crystal Report (Project - Add new Item - (Reporting) - Crystal Report) dan beri nama laporanparameter.rpt dan klik Add, pilih As a Blank Report dan OK.<br />
<br />
Melalui Field Explorer pada bar kanan layar (bila tidak muncul, panggil melalui menu Crystal Report - Field Explorer) klik kanan Database Field lalu pilih Database Expert. Klik tanda + pada opsi Create New Connection dan pilih OLE DB(ADO), lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next, isikan sesuai konfigurasi database SQL Server anda (dalam hal ini saya menggunakan Integrated Security) dan klik Next lalu Finish.<br />
<br />
Pada tab Data, drag / pindahkan tabel tbl_buku dan tbl_kategori ke sisi kanan (Selected tables), Lihat contoh gambar dibawah:<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlqddrWQ9RhQ95p1Js-yNb54mpS-40xiuroM4gtemU5VQEsbdarf7dZG6P4tnxF3WB77Df2G8oqD5lDTKcTyQ6WuMo1YzDBfPxuflYdMC70SUR-NOThZkAHf0_CfmW4FUhvi13bZoiWiA/s1600/data.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="352" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlqddrWQ9RhQ95p1Js-yNb54mpS-40xiuroM4gtemU5VQEsbdarf7dZG6P4tnxF3WB77Df2G8oqD5lDTKcTyQ6WuMo1YzDBfPxuflYdMC70SUR-NOThZkAHf0_CfmW4FUhvi13bZoiWiA/s400/data.gif" width="400" /></a><br />
<br />
Kemudian pada tab link buat penghubung (link) antara field komik di tbl_buku dengan id di tbl_kategori. Lihat gambar:<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjT2eU29FPXbINfYK4OIjPJVXB6mP83spQXMLkGTtIx9OvGbC5oCBzzaAdCTGDaNMOXyFh4pM3gXhQADFJv3LVeFyaAQCI93yOH8haVk4lX9RhxMyPiegpyQiNvLE5h_zCUqkjuRNObj_o/s1600/link.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="377" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjT2eU29FPXbINfYK4OIjPJVXB6mP83spQXMLkGTtIx9OvGbC5oCBzzaAdCTGDaNMOXyFh4pM3gXhQADFJv3LVeFyaAQCI93yOH8haVk4lX9RhxMyPiegpyQiNvLE5h_zCUqkjuRNObj_o/s400/link.gif" width="400" /></a><br />
<br />
Melalui Field Explorer, klik kanan di Parameter Fields dan pilih New. Pada Field Nama isikan kategori dan klik OK. Dengan cara yang sama, klik kanan di Parameter Fields dan pilih New. Pada Field Nama kali ini isikan pengarang.<br />
<br />
Klik kanan di form laporan pilih Report - Selection Formula - Record. Pada parameter editor, tarik field kategori di tbl_kategori dan samakan dengan parameter kategori lalu tarik field kategori di tbl_buku dan samakan dengan field id di tbl_kategori serta tarik field pengarang di tbl_buku dan samakan dengan parameter pengarang. Lihat contoh berikut :<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcPovoDcvpuhIaIUwrVIfL2U7lLKMg1Uxnu5vMMWjswHsYwl_dfaFr2_YuyQ_wQFiN8cm_K6IRGLP9RIkzGAbES8s0NmIoiwYpRA7GXCjzuUchZDK3qp4z8esKZTWpyP_YbjbTBeSqikA/s1600/editor.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="338" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcPovoDcvpuhIaIUwrVIfL2U7lLKMg1Uxnu5vMMWjswHsYwl_dfaFr2_YuyQ_wQFiN8cm_K6IRGLP9RIkzGAbES8s0NmIoiwYpRA7GXCjzuUchZDK3qp4z8esKZTWpyP_YbjbTBeSqikA/s400/editor.gif" width="400" /></a><br />
<br />
Buat form laporan seperti gambar berikut :<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJkpcq6KPIPNgrqR4nwvfwyWsur8dbw0OaUwMc0BqZcGcjh2Msd_swjtz5qV2_X7muxtMfvRvMFrwelahq0z_ZQZ2qF0XutO_QoRBJh6qtPUfTXmPxBzEamYMrhs8fuD4nE9CKlFRMWy4/s1600/report.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="111" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJkpcq6KPIPNgrqR4nwvfwyWsur8dbw0OaUwMc0BqZcGcjh2Msd_swjtz5qV2_X7muxtMfvRvMFrwelahq0z_ZQZ2qF0XutO_QoRBJh6qtPUfTXmPxBzEamYMrhs8fuD4nE9CKlFRMWy4/s400/report.gif" width="400" /></a><br />
<br />
Kemudian Buat Form Baru dan berinama formlaporan.vb dan drag CrystalReportViewer di toolbox ke Form. Melalui Propertiesnya, pilih ReportSource dengan laporan yang kita buat tadi.<br />
<br />
Untuk di Form1 Buat seperti berikut :<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieUhyphenhyphenXD5wkBf14qATOzRB-c0pYgAgGu43_hxdd4_m9Hq5Yyzj0A_LCGQg1KVmTWwJ9hwCizMLFsexExbGn0Uv00vGHwgNV8IlAQdM_dJFyrWeTJTPZ-GIU0UgrmrEOW9eNWgOGJK3sZeQ/s1600/program.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="160" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieUhyphenhyphenXD5wkBf14qATOzRB-c0pYgAgGu43_hxdd4_m9Hq5Yyzj0A_LCGQg1KVmTWwJ9hwCizMLFsexExbGn0Uv00vGHwgNV8IlAQdM_dJFyrWeTJTPZ-GIU0UgrmrEOW9eNWgOGJK3sZeQ/s400/program.gif" width="400" /></a><br />
<br />
Untuk kode program sebagai berikut (Kode Untuk tombol Enter) : <br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
formlaporan.laporanparameter1.SetParameterValue("kategori", TextBoxKategori.Text)
formlaporan.laporanparameter1.SetParameterValue("pengarang", TextBoxPengarang.Text)
formlaporan.Show()
End Sub
</code></pre>Program diatas meminta nama kategori dan pengarang yang kita inginkan dibuatkan laporannya. Tombol Enter mengirim 2 parameter kategori dan pengarang ke Form Laporan.<br />
<br />
Untuk memudahkan anda bisa download source code program di akhir postingan. Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.<br />
<br />
<a href="http://www.ziddu.com/download/15276741/laporan.rar.html">Download Disini</a>.<br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com5tag:blogger.com,1999:blog-2824950854427960132.post-56529324354385641942011-06-06T06:48:00.000-07:002011-08-09T06:58:00.972-07:00Membuat Laporan di VB.Net 2008 dengan Crystal ReportDi postingan Kali ini kita akan membuat laporan sederhana menggunakan <a href="http://en.wikipedia.org/wiki/Crystal_Reports">Crystal Report</a>, Crystal Report yang kita gunakan adalah versi yang dibundle bersama Visual Studio 2008.<br />
<br />
Pertama-tama buat database di SQL Server dan beri nama testing. Kemudian buat tabel tbl_buku seperti berikut ini : (Script SQL dapat didownload di akhir postingan)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkfqpfJvXuNkW8nPw1aflmJck0SOQIPecupZ9N-MGywzo7RtMwb3UXxdeayJ3vqD7xUCjn-Y-QrbjFfT9JrVs4OO_Ix0e15cmg6pum6sMhOu6tUo-NUZhVzRYVRExp8ibDypcXnqn6or4/s1600/db.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="232" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkfqpfJvXuNkW8nPw1aflmJck0SOQIPecupZ9N-MGywzo7RtMwb3UXxdeayJ3vqD7xUCjn-Y-QrbjFfT9JrVs4OO_Ix0e15cmg6pum6sMhOu6tUo-NUZhVzRYVRExp8ibDypcXnqn6or4/s400/db.gif" width="400" /></a></div><br />
Buat project baru <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :<br />
<pre style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(240, 240, 240) url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-07ql9JG8WCvFaYga7pz08hRTSPQXk1JVuAlF5QNubO_d0wjeJJQ6qeE7KNFl_Pfj6i-dfYWaSWfTpL51qgzXsvJaNlSaZm0XFF4N-AtSnxbw7NCjHNuUDCe1sNbWVzzs2B_Kjx4A6v0I/s320/codebg.gif) repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black;"> Imports System.Data.SqlClient
Public Module modulkoneksi
#Region "Deklarasi Variabel"
Public koneksi As SqlConnection = Nothing
Public cmd As SqlCommand = Nothing
#End Region
#Region "Fungsi Testing Koneksi Database"
Public Sub TestKoneksi()
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
koneksi = New SqlClient.SqlConnection(connString)
Try
koneksi.Open()
koneksi.Close()
Catch ex As Exception
MessageBox.Show("Database Connection Error : " & ex.Message)
End Try
End Sub
#End Region
End Module
</code></pre>Untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda.<br />
<br />
Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan beri nama laporan.rpt (lihat gambar berikut)<br />
<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEkKD8YDX3hUWHuKMeX70r2iMJUpaEr8_K-CtRm9COvHg71AP32Hbp71MYggICCuhyphenhyphennq28uJQ0jGwIfRgl9VHb3-d88T6WTNY4uAZcZwZ4qnLee3uL-ugtQwFIJ1t8RpuFr349ZAcQSNo/s1600/cr.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEkKD8YDX3hUWHuKMeX70r2iMJUpaEr8_K-CtRm9COvHg71AP32Hbp71MYggICCuhyphenhyphennq28uJQ0jGwIfRgl9VHb3-d88T6WTNY4uAZcZwZ4qnLee3uL-ugtQwFIJ1t8RpuFr349ZAcQSNo/s400/cr.gif" width="400" /></a> </div><br />
Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.<br />
<br />
Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.<br />
<br />
Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5FwjC68bhYcMH0A6WXqDaD7OD1RWxEVZam_Z8Cdv5m3NOSC25Ivuo7SasVi7P9MO1hZWue-wJtK4FQmXq1X1EX3ZdRQdMvyvmdqOpV4Z9iDsO9T7OuqwhC2Xn52YHR1DpNR6_iwgsMx4/s1600/stable.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="351" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5FwjC68bhYcMH0A6WXqDaD7OD1RWxEVZam_Z8Cdv5m3NOSC25Ivuo7SasVi7P9MO1hZWue-wJtK4FQmXq1X1EX3ZdRQdMvyvmdqOpV4Z9iDsO9T7OuqwhC2Xn52YHR1DpNR6_iwgsMx4/s400/stable.gif" width="400" /></a><br />
<br />
Melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwIkGju1A_6oKnmDkuHk9QsYtWpv90VIrq_sQm2AaCfSXFpm1XCBGoTD0dwOirSOuU8ew6Y60hnl-mY1hURFO6d2Y8fIZOW0CsRoLsU26UFZCxnItXm2oUbjv9EQpFvLcw9zDwBcWsc4Y/s1600/report.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="151" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwIkGju1A_6oKnmDkuHk9QsYtWpv90VIrq_sQm2AaCfSXFpm1XCBGoTD0dwOirSOuU8ew6Y60hnl-mY1hURFO6d2Y8fIZOW0CsRoLsU26UFZCxnItXm2oUbjv9EQpFvLcw9zDwBcWsc4Y/s400/report.gif" width="400" /></a><br />
<br />
Buka Form1 dan melalui Toolbox cari CrystalReportViewer dan masukkan ke Form1. Melalui properties CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi. Run (F5) VB dan Report akan ditampilkan.<br />
<br />
<a href="http://www.ziddu.com/download/15263622/bikinlaporan.rar.html">Anda Bisa Download Sample Program Disini</a><br />
<br />
Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.<br />
<br />
Baca juga di blog ini :<br />
<a href="http://aplikasivbnet.blogspot.com/2011/08/ingin-dapat-uang-dengan-hanya-menjawab.html">Anda ingin dapat uang dengan hanya menjawab survey..?</a> T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1tag:blogger.com,1999:blog-2824950854427960132.post-70243258471600060422011-05-31T07:17:00.000-07:002011-06-25T08:03:44.844-07:00Membuat Kalkulator Sederhana<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAQuH5qz4FH8V2bCHGmrJIb4KAq_apj3yX61PJyuBJA7Km9dHG16w6joh6c-5ZDF9DFGWVJz06sy_t4odczpyyv_4xehGIjuDRKJCvA5KcW9J8g-aRT6A0nRo-3G6P-hBvgsEzwoLaaVY/s1600/kalk.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAQuH5qz4FH8V2bCHGmrJIb4KAq_apj3yX61PJyuBJA7Km9dHG16w6joh6c-5ZDF9DFGWVJz06sy_t4odczpyyv_4xehGIjuDRKJCvA5KcW9J8g-aRT6A0nRo-3G6P-hBvgsEzwoLaaVY/s1600/kalk.gif" style="margin-left: 1em; margin-right: 1em;"></a></div>Biasanya salah satu aplikasi wajib dibuat saat belajar suatu bahasa pemrograman baru adalah membuat aplikasi kalkulator. Berikut ini adalah contoh kalkulator sederhana yang pernah saya buat, berikut adalah penampakan dari kalkulator ane...<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAQuH5qz4FH8V2bCHGmrJIb4KAq_apj3yX61PJyuBJA7Km9dHG16w6joh6c-5ZDF9DFGWVJz06sy_t4odczpyyv_4xehGIjuDRKJCvA5KcW9J8g-aRT6A0nRo-3G6P-hBvgsEzwoLaaVY/s1600/kalk.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAQuH5qz4FH8V2bCHGmrJIb4KAq_apj3yX61PJyuBJA7Km9dHG16w6joh6c-5ZDF9DFGWVJz06sy_t4odczpyyv_4xehGIjuDRKJCvA5KcW9J8g-aRT6A0nRo-3G6P-hBvgsEzwoLaaVY/s1600/kalk.gif" /></a><br />
<br />
Kalkulator ini sebenarnya hanyalah memindahkan logika dari kode VB 6 yang pernah saya buat ke <a href="http://id.wikipedia.org/wiki/Visual_Basic_.NET">VB.Net 2008</a> dan kodenya pun 99% mirip. Saya rasa tidak ada yang istimewa dari kalkulator ini, tapi lumayan lah buat nambah2in postingan di blog newbie kaya blog ini.<br />
<br />
Anda juga bisa mendownload kode program aplikasi ini di link dibawah ini (kalau anda butuh sih).<br />
<br />
<a href="http://www.ziddu.com/download/15193087/Kalk.rar.html">Download disini</a>T. Erick Sitorushttp://www.blogger.com/profile/01723346429970284981noreply@blogger.com1