Penggunaan USING dan END USING DI VB.NET

<div style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: justify; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> Kali ini saya akan share tentang penggunaan<span class="Apple-converted-space"> </span><b>USING, END USING</b><span class="Apple-converted-space"> </span>di VBNET. Intinya adalah untuk mengoptimalkan sintak dan performance aplikasi agar tidak banyak<span class="Apple-converted-space"> </span><span class="uxmm19" id="uxmm19_8" style="border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; font-weight: normal; list-style: none; margin: 0px; padding: 0px; text-align: left; text-decoration: underline;">memory</span><span class="Apple-converted-space"> </span>komputer yang terpakai dan terbuang percuma. Maksudnya? seringkali jika kita mendeklarasikan variable tidak kita hapus (dispose/erase/clear/nothing) saat variable itu tidak kita gunakan lagi, sehingga aplikasi anda semakin lama akan semakin berat.</div> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">Contoh dalam membuat form<span class="Apple-converted-space"> </span></span><span class="uxmm19" id="uxmm19_2" style="-webkit-text-stroke-width: 0px; background-color: white; border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; list-style: none; margin: 0px; orphans: auto; padding: 0px; text-align: left; text-decoration: underline; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">master data</span><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"><span class="Apple-converted-space"> </span>saja, biasanya kita deklarasikan seperti ini kan ?<span class="Apple-converted-space"> </span></span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>con<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>Odbc.OdbcConnection</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>Odbc.OdbcCommand</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>adp<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>Odbc.OdbcDataAdapter</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>reader<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>Odbc.OdbcDataReader</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>tbl<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>DataTable</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">   <span class="Apple-converted-space"> </span><span style="color: blue;">Dim</span><span class="Apple-converted-space"> </span>constr<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">String</span><span class="Apple-converted-space"> </span>=<span style="color: #a31515;">"dsn=djiesoft_db;uid=sa;password=12345"</span></span></div> <div style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: justify; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> Dari contoh diatas kita bisa tahu saat form active saja sudah 6 variable yang diload ke memory, dan variable itu akan selalu ada di memory sampai form tersebut ditutup, jika kita membuka banyak form??? Baiklah langsung ke<b>USING, END USING</b><span class="Apple-converted-space"> </span>adalah suatu metode untuk mendeklarasikan variable/object dimana variable itu akan otomatis terhapus saat keluar dari<span class="Apple-converted-space"> </span><b>END USING.</b><span class="Apple-converted-space"> </span>jadi tidak perlu report untuk menulis sintak hapus seperti : variable.dispose, erase variable, variable.clear atau variable = nothing, dll. Sehingga memory kita akan aman karena object/variable tersebut otomatis di hapus. Contohnya adalah :</div> <a href="http://www.blogger.com/null" name="more" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"></a><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">Contoh (sebelum menggunakan<span class="Apple-converted-space"> </span></span><b style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">USING, END USING</b><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">) :<span class="Apple-converted-space"> </span></span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">Lalu di<span class="Apple-converted-space"> </span></span><span class="uxmm19" id="uxmm19_3" style="-webkit-text-stroke-width: 0px; background-color: white; border-left-color: transparent; border-right-color: transparent; border-style: solid; border-top-color: transparent; border-width: 1px; color: #009900; cursor: pointer; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; list-style: none; margin: 0px; orphans: auto; padding: 0px; text-align: left; text-decoration: underline; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">event form</span><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"><span class="Apple-converted-space"> </span>load kita open koneksi :</span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>con =<span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcConnection(constr)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>con.Open()</span></div> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">Setelah itu ini contoh sintak di tombol simpan :</span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>cmd =<span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcCommand(<span style="color: #a31515;">"INSERT INTO ..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>cmd.ExecuteNonQuery()</span></div> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">dan ini contoh sintak di tombol refresh :</span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">      <span class="Apple-converted-space"> </span>cmd =<span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcCommand(<span style="color: #a31515;">"SELECT * FROM ..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>reader = cmd.ExecuteReader</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span><span style="color: blue;">Do</span><span class="Apple-converted-space"> </span><span style="color: blue;">While</span><span class="Apple-converted-space"> </span>reader.Read</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: green;">'ADD TO LISTVIEW/DATAGRIDVIEW...</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span><span style="color: blue;">Loop</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;">       <span class="Apple-converted-space"> </span><span style="color: red;">reader.Close() </span></span><br /> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;"><span style="color: red;">'jika anda tidak .Close maka akan error saat anda tekan tombol refresh lagi/selanjutnya.</span></span></div> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">atau jika anda lebih suka menggunakan Datasource maka biasanya sintaknya seperti ini :</span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>adp =<span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcDataAdapter(<span style="color: #a31515;">"SELECT * FROM ..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>tbl =<span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>DataTable</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>adp.Fill(tbl)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;">       <span class="Apple-converted-space"> </span>DataGridView1.DataSource = tbl</span></div> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span class="Apple-converted-space"> </span></span><br /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">Saat anda ingin menggunakan<span class="Apple-converted-space"> </span></span><b style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">USING, END USING<span class="Apple-converted-space"> </span></b><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">maka dari contoh di atas kita hanya akan mengunakan 1 variable saja yaitu<span class="Apple-converted-space"> </span></span><b style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">constr</b><span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">, selanjutnya sintak2 tersebut akan berubah menjadi :</span><br /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">1. di form load tidak ada sintak untuk open koneksi<span class="Apple-converted-space"> </span></span><br /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">2. sintak di tombol simpan berubah menjadi :</span><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span>Using</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span>con<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcConnection(constr)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span>con.Open()</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcCommand(<span style="color: #a31515;">"INSERT INTO..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">               <span class="Apple-converted-space"> </span>cmd.ExecuteNonQuery()</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;">       <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <span style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; display: inline !important; float: none; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">3. sintak di tombol refresh berubah menjadi :</span><br /> <u style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">3.1 via datareader</u><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>con<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcConnection(constr)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span>con.Open()</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcCommand(<span style="color: #a31515;">"SELECT * FROM..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">               <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>reader<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span>Odbc.OdbcDataReader = cmd.ExecuteReader</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">                   <span class="Apple-converted-space"> </span><span style="color: blue;">Do</span><span class="Apple-converted-space"> </span><span style="color: blue;">While</span><span class="Apple-converted-space"> </span>reader.Read</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">                       <span class="Apple-converted-space"> </span><span style="color: green;">'ADD TO LISTVIEW/DATAGRIDVIEW...</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">                   <span class="Apple-converted-space"> </span><span style="color: blue;">Loop</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">               <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;">       <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <u style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">3.2 via dataadapter</u><br /> <br style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;" /> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">       <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>con<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcConnection(constr)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span>con.Open()</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>adp<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>Odbc.OdbcDataAdapter(<span style="color: #a31515;">"SELECT * FROM ..."</span>, con)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">               <span class="Apple-converted-space"> </span><span style="color: blue;">Using</span><span class="Apple-converted-space"> </span>tbl<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>DataTable</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">                   <span class="Apple-converted-space"> </span>adp.Fill(tbl)</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">                   <span class="Apple-converted-space"> </span>DataGridView1.DataSource = tbl</span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">               <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; margin-bottom: 0cm; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt;">           <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span style="font-family: 'Courier New'; font-size: 10pt; line-height: 14px;">       <span class="Apple-converted-space"> </span><span style="color: blue;">End</span><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: justify; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> Dengan cara ini juga dapat mempersingkat anda saat ingin mengeksekusi beberapa perintah sql secara bertahap, contoh :  pertama delete, kedua insert, ketiga update :<br /> <br /> <br /> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">Using</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>SqlClient.SqlCommand(<span style="color: #a31515;">"DELETE FROM TABLE .. WHERE ..”</span>, v_con)</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="font-family: 'Courier New'; font-size: 10pt;">    <span class="Apple-converted-space"> </span>cmd.ExecuteNonQuery()</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">End</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <br /></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">Using</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>SqlClient.SqlCommand(<span style="color: #a31515;">"INSERT INTO TABLE .. VALUES ..”</span>, v_con)</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="font-family: 'Courier New'; font-size: 10pt;">    <span class="Apple-converted-space"> </span>cmd.ExecuteNonQuery()</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">End</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <br /></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">Using</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span>cmd<span class="Apple-converted-space"> </span><span style="color: blue;">As</span><span class="Apple-converted-space"> </span><span style="color: blue;">New</span><span class="Apple-converted-space"> </span>SqlClient.SqlCommand(<span style="color: #a31515;">"UPDATE TABLE .. WHERE ..”</span>, v_con)</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="font-family: 'Courier New'; font-size: 10pt;">    <span class="Apple-converted-space"> </span>cmd.ExecuteNonQuery()</span></div> <div class="MsoNormal" style="line-height: normal; margin-bottom: 0cm;"> <span style="color: blue; font-family: 'Courier New'; font-size: 10pt;">End</span><span style="font-family: 'Courier New'; font-size: 10pt;"><span class="Apple-converted-space"> </span><span style="color: blue;">Using</span></span></div>  <span class="Apple-converted-space"> </span><br /> <br /> <br /> Nah bagaimana, cukup jelas kan? ini memang bukan aturan baku (wajib) karena setiap programmer punya logika dan style sendiri dalam menulis sintak, tetapi ada baiknya apa yang kita tahu dan menurut kita bermanfaat kita bagikan ke yang lain. Selain itu ada juga variable2 yang kita harus deklarasikan sebagai PUBLIC (module/class), semua sesuaikan dengan kondisi yang terjadi.<span class="Apple-converted-space"> </span></div> <div style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: justify; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span class="Apple-converted-space"><br /></span></div> <div style="-webkit-text-stroke-width: 0px; background-color: white; color: #222222; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 15px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 21px; orphans: auto; text-align: justify; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;"> <span class="Apple-converted-space">Source : </span><a href="http://djiesoft.blogspot.com/2012/12/penjelasan-dan-contoh-penggunaan-using.html">http://djiesoft.blogspot.com/2012/12/penjelasan-dan-contoh-penggunaan-using.html</a></div>

Penggunaan USING dan END USING DI VB.NET

Kali ini saya akan share tentang penggunaan   USING, END USING   di VBNET. Intinya adalah untuk mengoptimalkan sintak dan performance aplik...

Read more »

Attach Database SQL Server

Malam semua kali ini saya akan memposting tentang Cara Attach Database SQL Server<br /> <br /> Oke langsung saja yang perlu di persiapkan adalah<br /> 1. File .mdf  dan .ldf<br /> 2. SQL Server jika menggunakan SQL Server Express harap instal SQL Management Studio terlebih dahulu<br /> <br /> Langkah pertama adalah<br /> 1. Buka SQL Server Management Studio<br /> 2. Pilh Server, masukan username dan password lalu klik connect <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSfJfuRprSkyDxasZn7I_8ZCcAsC8lRkaH18COIT7y7HSw1ro8wYPkgVriEzIr1JfxP3zljy1FIQZrwQx7qUCF10PoMwNkUBJMuAiSPtG57EhILWJALywi0uqIDEKeaz8ltUxQictzQdNz/s1600/Sql_server_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara Attach Database SQL Server" border="0" height="179" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSfJfuRprSkyDxasZn7I_8ZCcAsC8lRkaH18COIT7y7HSw1ro8wYPkgVriEzIr1JfxP3zljy1FIQZrwQx7qUCF10PoMwNkUBJMuAiSPtG57EhILWJALywi0uqIDEKeaz8ltUxQictzQdNz/s320/Sql_server_1.png" title="Cara Attach Database SQL Server" width="320" /></a></div> 3. Klik kanan database yang ada di sebelahkanan<br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIeVlJ8aZo2GlIKzauLxwD_dZb6xD8sx-iKGtMLVv898Ql9RD-AbX00r5ArGUsg0BXcwXm7sC_Y8boIYo1pSmaJ6WwRZ1q7dGJjeH8jpdSKPY-GuORiTc1RJ3uKqqK4M-S01AMEoLNC8D0/s1600/sql_server2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara Attach Database SQL Server" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIeVlJ8aZo2GlIKzauLxwD_dZb6xD8sx-iKGtMLVv898Ql9RD-AbX00r5ArGUsg0BXcwXm7sC_Y8boIYo1pSmaJ6WwRZ1q7dGJjeH8jpdSKPY-GuORiTc1RJ3uKqqK4M-S01AMEoLNC8D0/s1600/sql_server2.png" title="Cara Attach Database SQL Server" /></a></div> <br />  4. Maka akan muncul tampilan seperti di bawah ini, lalu klik add dan cari file .mdf yang kamu punya lalu klik OK<br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1Kn2EzpzTEPfxCZhD1fjQQwA_l1StX1wzxvfCGzL32S2GEWv9y1jWx-R9S3FDyOJF6Bp_FFTkUBbstwPHcrOufNyD0dlH1wJHzjHBVaVGGWKKFFV4RUXRNNeuQ4Bx6C0xV3JvNQ3VbjYN/s1600/Sql_server3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara Attach Database SQL Server" border="0" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1Kn2EzpzTEPfxCZhD1fjQQwA_l1StX1wzxvfCGzL32S2GEWv9y1jWx-R9S3FDyOJF6Bp_FFTkUBbstwPHcrOufNyD0dlH1wJHzjHBVaVGGWKKFFV4RUXRNNeuQ4Bx6C0xV3JvNQ3VbjYN/s320/Sql_server3.png" title="Cara Attach Database SQL Server" width="320" /></a></div> 5. Dan langkah terakhir anda tinggal klik ok, lalu tunggu lah sejenak sampai proses selesai<br /> <br /> <br /> Semoga berhasil<br /> Sekian dulu dari saya<br /> semoga artikel ini bermanfaat untuk anda, terima kasih sudah mengunjungi blog saya :)

Attach Database SQL Server

Malam semua kali ini saya akan memposting tentang Cara Attach Database SQL Server Oke langsung saja yang perlu di persiapkan adalah 1. Fi...

Read more »

10 Cara Meningkatkan SEO Blog

<div style="text-align: center;"> <img height="319" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRUuxKo9c83sbQpdUTj8T6OCsnf8_EuNHslXmEZD9JiAZBK7kTVmW_aS5HXgPMfm9TgoGzWr9fHDP0sk0hK0VbJo-we7cTWeezkRstBfJMQjdt4VGImyEdPMVgV_Z-7IjhWACur6nVkg4q/s320/teknik+seo.jpg" width="320" /> </div> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;"><br /></b></span><br /> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">1. Update Artikel Setiap Hari</b><br style="line-height: 19px; text-align: left;" /><span style="line-height: 19px; text-align: left;">Selalu meng-update artikel adalah pekerjaan wajib sebagai blogger misalnya, dan tentunya artikel tersebut adalah artikel yang sangat memiliki nilai pikat yang tinggi. Tak usah terlalu banyak menulis artikel akan tetap cukup satu atau dua saja kalian update, asal itu adalah artikel yang fresh dan memang sedang dicari-cari orang (</span><i style="line-height: 19px; text-align: left;">masih hangat dibicarakan oleh media</i><span style="line-height: 19px; text-align: left;">). Tujuannya adalah agar situs kalian ini tetap terlihat hidup.</span></span><br /> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">2. Submit Artikel ke Sosial Bookmark</b></span> </blockquote> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Alat promosi yang memang sangat ampuh adalah submit artikel ke berbagai sosial bookmark. Banyak sosial bookmark yang tersedia di internet, misalnya<b> <a href="http://www.lintas.me/" target="_blank">Lintas.me</a></b>,<a href="http://www.infogue.com/" target="_blank"><b>Infogue.com</b></a>,<a href="http://www.antarblog.com/" target="_blank"><b>Antarblog.com</b></a></span><span style="line-height: 19px; text-align: left;"> dan masih banyak lagi yang lainnya.</span></span><span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Saran saya untuk para blogger pemula, submitlah artikel / konten blog kalian ke sosial bookmark, jika kalian beruntung dan masuk dalam jajaran 10 Top Hits, maka kalian akan cepat kebanjiran banyak pengunjung.</span></span></blockquote> <span style="background-color: white; font-family: inherit;"><br style="line-height: 19px; text-align: left;" /><b style="line-height: 19px; text-align: left;">3. Pasang Artikel Terkait di Blog / website</b><br style="line-height: 19px; text-align: left;" /><span style="line-height: 19px; text-align: left;">Salah satu cara jitu ini juga sangat banyak digunakan bagi kalangan webmaster maupun blogger profesional SEO sekalipun. Mengapa ini juga tergolong trik yang bisa membuat pengunjung mebeludak, karena cara ini pun cara yang sangat friendly sebab memberi kemudahan untuk para pengunjung untuk dengan cepat mengetahui berita-berita atau konten-konten yang terkait.</span></span><br /> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">4. Buatlah Navigari Situs yang Baik dan Terarah</b></span> </blockquote> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Ciptakan sebuah kenyamanan bagi para pengunjung dengan menyediakan layanan navigasi yang baik. Navigasi ini juga sebagai langkah ampuh untuk membuat situs kalian dibanjiri para pengunjung. Pembuatan menu misalnya adalah salah satu pemegang peran penting karena dengan menyediakan menu-menu pada situs, ini adalah sebuah gambaran kecil tentang sitemap situs kalian sendiri.</span></span></blockquote> <span style="background-color: white; font-family: inherit;"><br style="line-height: 19px; text-align: left;" /><b style="line-height: 19px; text-align: left;">5. Pasang Arsip Blog</b><br style="line-height: 19px; text-align: left;" /><span style="line-height: 19px; text-align: left;">Jika anda malas memasang artikel berkaitan, hal yang mungkin anda lakukan adalah memasang blog arsip merupakan pilihan yang wajib untuk di lakukan. banyak blog-blog bermuatan besar seperti terselubung.blogspot.com yang menjadikan blog arsip nya sebagai ladang pageview dan ini memang terbukti ampuh. Cara memasangnya sendiri cukup mudah karena sudah disediakan oleh blogspot di <b>tambah gadget >>> Arsip blog</b></span></span><br /> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">6. Pasang Artikel Penting di Sidebar</b></span> </blockquote> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Manfaatkanlah fasilitas sidebar anda untuk memberi kemudahan bagi para pengunjung sebuah situs adalah untuk menemukan artikel yang sangat bermanfaat, navigasikan sidebar anda dengan </span><i style="line-height: 19px; text-align: left;">blogroll</i><span style="line-height: 19px; text-align: left;"> atau link artikel andalan, jangan lupa untuk menuliskan judul yang menarik dan tampilan elegan ini akan sangat membantu jumlah pageview anda dimasa yang akan datang.</span></span></blockquote> <span style="background-color: white; font-family: inherit;"><br style="line-height: 19px; text-align: left;" /><b style="line-height: 19px; text-align: left;">7. Buatlah Blog Menjadi Secepat Mungkin</b><br style="line-height: 19px; text-align: left;" /><span style="line-height: 19px; text-align: left;">Hal ini bisa kalian lakukan dengan cara menghapus beberapa widget yang dirasa kurang terlalu penting namun justru ini akan memberatkan sebuah speed situs kalian untuk di load oleh web browser para pengunjung. Semakin lama halaman situs kalian terbuka maka secara otomatis akan melangsingkan jumlah visitor kalian.Sobat bisa mengecek kecepatan blog sobat di <a href="http://iwebtool.com/" target="_blank"><b>Iwebtool.com</b></a></span></span><br /> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">8. Gunakan Jejaring Sosial</b></span> </blockquote> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Manfaatkan jejaring-jejaring sosial yang tersedia seperti </span><b style="line-height: 19px; text-align: left;"><a href="https://facebook.com/mylaboratorium" target="_blank">Facebook</a></b><span style="line-height: 19px; text-align: left;"> dan </span><b style="line-height: 19px; text-align: left;"><a href="https://twitter.com/#%21/My_Laboratorium" target="_blank">Twitter</a></b><span style="line-height: 19px; text-align: left;">. Hal ini bisa kalian lakukan dengan berpromosi konten-konten yang menarik dan tentunya yang sedang hot news atau yang paling banyak dicari oleh orang-orang.</span></span></blockquote> <span style="background-color: white; font-family: inherit;"><br style="line-height: 19px; text-align: left;" /><b style="line-height: 19px; text-align: left;">9. Lakukan Backlink</b><br style="line-height: 19px; text-align: left;" /><span style="line-height: 19px; text-align: left;">Cara promosi yang sangat familiar sekali untuk kalangan blogger adalah backlink.Saling bertukar link (Link Exchange) adalah hal yang perlu dilakukan. Sebagai kiat cemerlang untuk berpromosi, ini juga bisa sebagai cara untuk ajang kekerabatan antar blogger.</span></span><br /> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><b style="line-height: 19px; text-align: left;">10. Daftarkan Blog ke Mesin Pencari</b></span> </blockquote> <blockquote class="tr_bq"> <span style="background-color: white; font-family: inherit;"><span style="line-height: 19px; text-align: left;">Ini adalah hal yang palin penting bagi para blogger yang mempunyai blog pastinya karena dengan cara ini, secara langsung kalian akan mempermudah peng-indeks-an URL kalian di mesin pencari secara mudah. Artinya jika kalian mendaftarkan URL kalian sendiri, ini akan mempermudah mesin pencari mengindeks URL tanpa ia harus mencarinya sendiri yang tentunya akan memakan waktu yang lumayan lama.Sobat bisa mendaftarkan blog sobat di <a href="http://mylaboratorium.blogspot.com/2011/01/free-web-submission.html" target="_blank"><b>Submit Your Blog</b></a></span></span></blockquote> <div style="background-color: white; border: medium none; color: black; overflow: hidden; text-align: left; text-decoration: none;"> Source : http://mylaboratorium.blogspot.com/2012/05/10-cara-meningkatkan-seo-blog.html</div>

10 Cara Meningkatkan SEO Blog

1. Update Artikel Setiap Hari Selalu meng-update artikel adalah pekerjaan wajib sebagai blogger misalnya, dan tentunya artikel terseb...

Read more »

Statement Case Di VB.NET

Pagi semua kali setelah kemarin saya memposting tentang <a href="http://dwirandyherdinanto.blogspot.com/2013/12/statement-if-di-vbnet.html" target="_blank">Statement IF Di VB.NET</a><br /> kali ini saya akan melanjutkan postingan saya yaitu <a href="http://dwirandyherdinanto.blogspot.com/2013/12/statement-case-di-vbnet.html" target="_blank">Statement Select Case Di VB.NET</a><br /> Select Case mempunyai fungsi yang sama dengan switch case pada php dan pada bahasa pemrograman<br /> lainnya.<br /> <br /> Fungsi dari Select Case hampir sama dengan Fungsi IF. Select Case berfungsi sebagai kontrol statement<br /> pemilihan dimana nilanya sudah pasti atau dengan kata lain kondisinya sudah tetap. Dalam Select Case<br /> terdapat beberapa case atau beberapa kondisi<br /> <br /> Bentuk dasar dari Select Case adalah<br /> <br /> Select Case namavariable<br />            Case 1<br /> <br />            Case 2<br /> <br />            Case 3<br /> End Select<br /> <br /> Contoh sederhana penggunaan Select Case adalah sebagai berikut<br /> <br /> Dim Nilai As Integer = 4<br /> Select Case Nilai<br />            Case 1 :<br />            MsgBox("Isi dari variable Nilai adalah Satu")<br />            Case 2 :<br />            MsgBox("Isi dari variable Nilai adalah Dua")<br />            Case 3 :<br />            MsgBox("Isi dari variable Nilai adalah Tiga")<br />            Case 4 :<br />            MsgBox("Isi dari variable Nilai adalah Empat")<br />            Case Else<br />            MsgBox("isi dari variable Nilai tidak sesuai ketentuan")<br /> End Select<br /> <br /> Logikanya begini jika variable Nilai berisi 1 maka akan muncul pesan "Isi dari variable Nilai adalah Satu")<br /> Jika variable Nilai berisi 2 maka akan muncul pesan "Isi dari variable Nilai adalah Dua") <br /> Jika variable Nilai berisi 3 maka akan muncul pesan "Isi dari variable Nilai adalah Tiga")<br /> Jika variable Nilai berisi 4 maka akan muncul pesan "Isi dari variable Nilai adalah Empat")  <br /> Jika variable Nilai tidak berisi 1, 2, 3, atau 4  maka akan muncul pesan "Isi dari variable Nilai tidak sesuai ketentuan")<br /> <br /> <br /> Sekian dulu dari saya<br /> semoga artikel ini bermanfaat untuk anda, terima kasih sudah mengunjungi blog saya :) <br /> <br /> <br />

Statement Case Di VB.NET

Pagi semua kali setelah kemarin saya memposting tentang Statement IF Di VB.NET kali ini saya akan melanjutkan postingan saya yaitu Statemen...

Read more »

Statement IF di VB.NET

Sore semua sudah lama tidak posting :D<br /> kali ini saya akan memposting tentang <a href="http://dwirandyherdinanto.blogspot.com/2013/12/statement-if-di-vbnet.html" target="_blank">Statment IF di VB.NET</a><br /> IF merupakan salah satu struktur kendali dalam bahasa pemrograman dan di dalam program yang dibuat<br /> pasti banyak menggunakan statment IF, oleh karna itu IF sangat lah berguna dalam membuat program<br /> <br /> Ada beberapa penggunaan IF diantaranya adalah<br /> IF Tunggal, IF Ganda, IF Jamak, IF Bersarang<br /> <br /> Contoh penggunaan IF Tunggal<br />       Dim nilai as integer =75<br />       IF nilai > 70 Then<br />            Messagebox("Anda lulus")<br />       End IF<br /> <br /> Contoh penggunaan IF Ganda<br />       Dim nilai as integer = 75<br />       IF nilai > 70 Then<br />            MessageBox("Anda lulus")<br />       Else<br />            MessageBox("Anda belum lulus")<br />       End IF<br /> <br /> Contoh penggunaan IF Jamak<br />       Dim nilai as integer = 75<br />       IF nilai > 90 Then<br />           MessageBox("Anda mendapatkan nilai A")<br />       Else IF nilai > 80 Then<br />            MessageBox("Anda mendapatkan nilai B")<br />       Else<br />            MessageBox("Anda mendapatkan Nilai C")<br />       End IF<br /> <br /> Contoh penggunaan IF Tersarang<br />       Dim nilai as integer =60<br />       Dim absensi as integer = 70<br />       IF nilai > 55 Then<br />            MessageBox("Anda Lulus")<br />       Else<br />            IF absensi > 69 Then<br />                 MessageBox("Anda Lulus")<br />            Else<br />                 MessageBox("Anda tidak lulus")<br />            End IF<br />       End IF

Statement IF di VB.NET

Sore semua sudah lama tidak posting :D kali ini saya akan memposting tentang Statment IF di VB.NET IF merupakan salah satu struktur kendal...

Read more »

CRUD Dengan VB.NET Bagian 2

<div class="MsoNormalCxSpFirst"> Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu <a href="http://dwirandyherdinanto.blogspot.com/2013/10/crud-dengan-vbnet-bagian-1.html" rel="nofollow" target="_blank">Crud Dengan VB.Net Bagian 1</a></div> <div class="MsoNormalCxSpMiddle"> Jika kemarin kita sudah mempelajari bagaimana cara menyimpan dan mencari data, kali ini saya akan menambahkan cara memperbarui/mengupdate dan menghapus/delete data</div> <div class="MsoNormalCxSpMiddle"> Oke langsung saja </div> <div class="MsoNormalCxSpMiddle"> <br /></div> <br /> <div class="MsoNormalCxSpMiddle"> Pertama – tama buka project yang kita buat sebelumnya dengan cara File – Open Project – Nama_project_yang_telah_kita_buat</div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW6b0zNxwXNFiGeqHlHmnueXClLsn6CY7YefbCyvcgicSnIx8bdmHz8CZ5OqcL8ntkfbDOPx-wW8OMxheUYtWttr6WzgvbWSiAhnBkurhTaZgxyNDd7xaCzYQqvjM5x-2Ddgwcojha09U8/s1600/Crud_dengan_VB.Net_dan_SQL_Server_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW6b0zNxwXNFiGeqHlHmnueXClLsn6CY7YefbCyvcgicSnIx8bdmHz8CZ5OqcL8ntkfbDOPx-wW8OMxheUYtWttr6WzgvbWSiAhnBkurhTaZgxyNDd7xaCzYQqvjM5x-2Ddgwcojha09U8/s320/Crud_dengan_VB.Net_dan_SQL_Server_1.png" width="320" /></a></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="MsoNormalCxSpFirst"> 2.  tambahkan 2 button lagi untuk tombol update dan hapus</div> <table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"> <tbody> <tr> <td style="border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Object</div> </td> <td style="border-left: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Property</div> </td> <td style="border-left: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Value</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Button1</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Name</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Btn_update</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> <br /></div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Text</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Update</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Button2</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Name</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Btn_hapus</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> <br /></div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Text</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Hapus</div> </td> </tr> </tbody></table> <div class="MsoNormalCxSpMiddle"> </div> <div class="MsoNormalCxSpMiddle"> Sehingga tampilan form seperti dibawah ini</div> <div class="separator" style="clear: both; text-align: center;"> </div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ta30WnrsO4CRiZxs0GCOQNI-u7DTmnTI-nNYmYbw0mFL3JrGLQl9awC1HC938LbsT5x8CsmwIhyphenhyphens5iUiPzRKFMtddYadKsQuVZLUzfyte2JERAKCdlxoDDv2NSKhgF-f38Ljlpvk6-PD/s1600/Crud_dengan_VB.Net_dan_SQL_Server_5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ta30WnrsO4CRiZxs0GCOQNI-u7DTmnTI-nNYmYbw0mFL3JrGLQl9awC1HC938LbsT5x8CsmwIhyphenhyphens5iUiPzRKFMtddYadKsQuVZLUzfyte2JERAKCdlxoDDv2NSKhgF-f38Ljlpvk6-PD/s320/Crud_dengan_VB.Net_dan_SQL_Server_5.png" width="320" /></a></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="MsoNormalCxSpFirst"> 3. Tambahkan script dibawah ini pada sub awal</div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_hapus.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">  Sehingga menjadi seperti dibawah ini<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">  Sub awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nis.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nama.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_alamat.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Clear()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Add("Laki - Laki")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Add("Perempuan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tutup.Text = "Tutup"<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_cari.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_simpan.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tambah.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tutup.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nis.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nama.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_alamat.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = False<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">        btn_hapus.Enabled = False<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">4. Tambahkan script dibawah ini pada tombol cari<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="color: #f1f2f3; font-family: Consolas; font-size: 9.5pt;">   </span><span style="font-family: Consolas; font-size: 9.5pt;">     btn_hapus.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">   sehingga menjadi seperti dibawah ini<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">   Private Sub Btn_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Btn_cari.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Nis masih kosong", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        cmd = New SqlCommand("select nis,nm_siswa,alamat,jenis_kelamin from siswa where   nis='" & Txt_nis.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        rd = cmd.ExecuteReader<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        rd.Read()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            If rd.HasRows Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_nis.Text = rd("nis")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_nama.Text = rd("nm_siswa")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_alamat.Text = rd("alamat")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Cbo_kelamin.Text = rd("jenis_kelamin")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Btn_simpan.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">                btn_hapus.Enabled = True<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">                btn_update.Enabled = True<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                MsgBox("Data tidak ditemukan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            rd.Close()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">5. Tambahkan script dibawah ini pada tombol delete<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("NIS tidak boleh kosong", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            If MsgBox("Apakah anda akan menghapus data ini?", MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.Yes Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                cmd = New SqlCommand("delete from siswa where nis='" & Txt_nis.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                cmd.ExecuteNonQuery()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "Informasi")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Call awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">6. Tambahkan script dibawah ini pada tombol update<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Or Txt_nama.Text = "" Or Txt_alamat.Text = "" Or Cbo_kelamin.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Data belum lengkap", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            cmd = New SqlCommand("update siswa set nis='" & Txt_nis.Text & "',nm_siswa='" & Txt_nama.Text & "',alamat='" & Txt_alamat.Text & "',jenis_kelamin='" & Cbo_kelamin.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            cmd.ExecuteNonQuery()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Data berhasil diupdate", MsgBoxStyle.Information, "Informasi")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            Call awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">8. jika sudah maka coba jalankan program tersebut dengan cara tekan F5 atau klik menu Debug – Start Debugging<o:p></o:p></span></div> <div class="separator" style="clear: both; text-align: center;"> </div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJgzp-SAOlJAfaacYSFwSbPtcIhBzFXu7FZ95sdQQ_gh51QpdqLdsoE2-Rp7wbVgBzRYN5P9vVf-jTcsAdAat2ncseI8m_VVFfV6gooq-dULtpjrOxS1bScPPY9yHXmmnrNRPVGvUaOTbh/s1600/Crud_dengan_VB.Net_dan_SQL_Server_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJgzp-SAOlJAfaacYSFwSbPtcIhBzFXu7FZ95sdQQ_gh51QpdqLdsoE2-Rp7wbVgBzRYN5P9vVf-jTcsAdAat2ncseI8m_VVFfV6gooq-dULtpjrOxS1bScPPY9yHXmmnrNRPVGvUaOTbh/s320/Crud_dengan_VB.Net_dan_SQL_Server_2.png" width="320" /></a></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: center;"> <br /></div> <blockquote class="tr_bq"> <div style="text-align: center;"> Jika anda ingin mendownload source code silahkan klik <a href="http://adf.ly/cshu9" rel="nofollow" target="_blank">disini</a></div> <div style="text-align: center;"> dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div> <div> <br /></div> </blockquote> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: left;"> <br /></div> <div class="separator" style="clear: both; text-align: justify;"> <span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 20px;">semoga berhasil<br />sekian untuk postingan saya kali ini</span></span></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: left;"> <br /></div>

CRUD Dengan VB.NET Bagian 2

Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu Crud Dengan VB.Net Bagian 1 Jika kemarin kita sudah mempelajari ba...

Read more »