Cyber Code: visual-basic

Showing posts with label visual-basic. Show all posts

Export to Excel menggunakan Templeting VB.NET

selamat malam gan....<br />
kali inii ane mau membahas cara membuat laporan dengan menggunakan templet ms excel. mengapa kita harus menggunakan templet?? ya....agar lebih mudah aja gan penerapannya  jika di dalam laporan kita terdapat banyak headeratau beberapa penempatan header yang sesuai dengan kebutuha atau custome header. dikatakan lebih mudah di sini karena hanya memanggil sebuah templet yang sudah kita siapkan kemudian mengisi kolom kolom yang sesuai dengan kebutuhan laporan kita...<br />
langsung aja gan kita kerjakan ....yapps<br />
<br />
langkah 1 :<br />
buka ms excel dan buat data kemudian simpan dalam bentuk templet (Excel 97-2003 Templet)<br />
<br />
langkah ke 2 :<br />
buka laman kerja vb nya gan<br />
tambahkan reference Microsoft.Office.Interop.Excel<br />
<br />
langkah ke 3 :<br />
buat form designnya juga gan<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEiQucNJsKOBZzmYeCBXIL_H2TQpPbn6d97h08RbkkUeSfeds3yYNtdTBBjp-ixovlnZg2sqtgd79fPhLVRNPdc7-E8TgqdhK885fNnqSh0LwCUomfmseRdSiNs68tNzVbO0bS_cSPteQ/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEiQucNJsKOBZzmYeCBXIL_H2TQpPbn6d97h08RbkkUeSfeds3yYNtdTBBjp-ixovlnZg2sqtgd79fPhLVRNPdc7-E8TgqdhK885fNnqSh0LwCUomfmseRdSiNs68tNzVbO0bS_cSPteQ/s320/1.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
langkah ke 4 :</div>
<div>
 tuliskan kodingannya gan ...</div>
<div>
Imports Excel = Microsoft.Office.Interop.Excel<br />
Public Class Form1</div>
<div>
<br /></div>
<div>
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load</div>
<div>
<br /></div>
<div>
    End Sub</div>
<div>
<br /></div>
<div>
    Private Sub btn_cetak_Click(sender As Object, e As EventArgs) Handles btn_cetak.Click<br />
        Dim excel_App As Excel.Application<br />
        Dim excel_WorkBook As Excel.Workbook<br />
        Dim excel_WorkSheet As Excel.Worksheet<br />
        Dim misvalue As Object = System.Reflection.Missing.Value<br />
        excel_App = New Excel.Application<br />
        excel_WorkBook = excel_App.Workbooks.Open("E:\latihan visual studio\Templet Excel.xlt")<br />
        excel_WorkSheet = excel_WorkBook.Worksheets(1)<br />
        excel_WorkSheet = excel_WorkBook.Sheets("sheet1")<br />
        excel_WorkSheet.Cells(3, 2) = txt_nama.Text<br />
        excel_WorkSheet.Cells(4, 2) = txt_alamat.Text<br />
        excel_App.Visible = True</div>
<div>
<br /></div>
<div>
    End Sub<br />
End Class</div>
<div>
<br /></div>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnWbezD5tHgnpJDCBPNWMe5HSeWbub_Mfr5eCNwd0XOQpejDOrwEOmB5dEpEVX-la1ed7T9Z2kvGAw29hSNWVma-QjFAUzwWW4zE0sEM-OSBw6uXxiO0f7l133xTIsqThOEwYMFUYVn1I/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnWbezD5tHgnpJDCBPNWMe5HSeWbub_Mfr5eCNwd0XOQpejDOrwEOmB5dEpEVX-la1ed7T9Z2kvGAw29hSNWVma-QjFAUzwWW4zE0sEM-OSBw6uXxiO0f7l133xTIsqThOEwYMFUYVn1I/s320/2.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
langkah ke 6 :</div>
<div>
<br /></div>
<div>
jalankan programnya gan....</div>
<div>
<br /></div>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGrSD6sNJF6Xk94fZFnPRew-EVfK3io405O2PNSfCWgoWLyWou_aFZLcojlaJD72UYt5reOX_ICdJUfgffCcerRAS0Mamdwcz7vwcxRfGQHEFnm5UNoznzrcgvtHHGBJCOWGr1t7BZ7nE/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGrSD6sNJF6Xk94fZFnPRew-EVfK3io405O2PNSfCWgoWLyWou_aFZLcojlaJD72UYt5reOX_ICdJUfgffCcerRAS0Mamdwcz7vwcxRfGQHEFnm5UNoznzrcgvtHHGBJCOWGr1t7BZ7nE/s320/3.png" width="320" /></a></div>
<div>
<br /></div>
<br />
<br />
<br />
udah dulu ya gan/.......ane mau tidur dulu<br />
<br />
<br />

Export to Excel menggunakan Templeting VB.NET

selamat malam gan.... kali inii ane mau membahas cara membuat laporan dengan menggunakan templet ms excel. mengapa kita harus menggunakan t...

7:57 AM

membaca tulisan di ms excel dan di tampilkan di VB.NET

berjumpa kembali dengan ane gan....<br />
kali ini ane mau membahas tentang cara membaca tulisan di ms excel dan di tampilkan di VB.NET.<br />
caranya begini gan :<br />
<br />
langkah ke1:<br />
buat satu workbook dokumen ms excel dan simpan dengan nama Baca Excel<br />
isikan pada kolom 1 dengan tulisan Selamat Datang di Ms Excel<br />
<br />
langkah ke 2:<br />
buka halaman kerja visual basic windows form app <br />
untuk mengaktifkan object ms excel pada vb, maka kita harus menambahkan reference object tersebut.<br />
pilih Microsoft.Office.Interop.Excel pada jendela Reference<br />
<br />
langkah ke 3:<br />
buat form design nya gan<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikEI7FR1b5AqqyKoRwq8dBSrqpPwjDDpalcKhyphenhyphentjQt-uYD_xIw_pmeOtmuoVnT0iv0QPIpMQ-xURjgX5oweOV-46rZs-S3f9OSpuhL9sSgQ0hvq3cg5GMkrkh2xYyMpluwkeDQuWa4MxA/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikEI7FR1b5AqqyKoRwq8dBSrqpPwjDDpalcKhyphenhyphentjQt-uYD_xIw_pmeOtmuoVnT0iv0QPIpMQ-xURjgX5oweOV-46rZs-S3f9OSpuhL9sSgQ0hvq3cg5GMkrkh2xYyMpluwkeDQuWa4MxA/s320/1.png" width="320" /></a></div>
<br />
<br />
langkah ke 4: <br />
sekarang saatnya mengcoding gan....<br />
Imports Excel = Microsoft.Office.Interop.Excel<br />
Public Class Form1<br />
    Public Function baca_excel(ByVal filename As String, ByVal sheetname As String, ByVal row As Integer, ByVal column As Integer)<br />
        Dim excel_App As Excel.Application<br />
        Dim excel_WorkBook As Excel.Workbook<br />
        Dim excel_WorkSheet As Excel.Worksheet<br />
        excel_App = New Excel.Application<br />
        excel_WorkBook = excel_App.Workbooks.Open(filename)<br />
        excel_WorkSheet = excel_WorkBook.Sheets(sheetname)<br />
        Dim value As String<br />
        value = excel_WorkSheet.Cells(row, column).value<br />
        excel_WorkBook.Close()<br />
        excel_App.Quit()<br />
        Return value<br />
<br />
    End Function<br />
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load<br />
    End Sub<br />
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click<br />
        MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1))<br />
    End Sub<br />
End Class<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCSs3YMiBvhTXayWfjFQPt3FBQYmZC-jpmEsqKT6kwrRKFEoYGeplV0_cL8shP5loj6NfLoLTcU_QinHzDB2nBAD2QTc0XtJiJXQehiF7w9Ac2XoGoqRsPNFojGJjdaMAeLq3ChZya1Ns/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCSs3YMiBvhTXayWfjFQPt3FBQYmZC-jpmEsqKT6kwrRKFEoYGeplV0_cL8shP5loj6NfLoLTcU_QinHzDB2nBAD2QTc0XtJiJXQehiF7w9Ac2XoGoqRsPNFojGJjdaMAeLq3ChZya1Ns/s320/2.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
note: perlu di ingat bahwa yang dibaca oleh program dari ms excel adalah kolom 1 baris 1. </div>
<div>
MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1)</div>
<div>
jika anda ingin membacaisi atau nilai pada kolom atau baris yang lain, sesuaikan angka - angka tersebut gan</div>
<div>
<br /></div>
<div>
<br /></div>
<div>
langkah ke 5 :</div>
<div>
jalankan aplikasinya gan </div>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqZT-RzAAZpK8I1glmuVohzTM2uAj6EeLPVZD7laDtoU9T4iCHJpw6f1ygy_ovXU2XjWXji-zZsHn4PKQVODRMWRVw1t9r1VYJWrjzYt5fccYv9Oufjz7-HdnpvpBvd7OG2iBfOusUHzA/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqZT-RzAAZpK8I1glmuVohzTM2uAj6EeLPVZD7laDtoU9T4iCHJpw6f1ygy_ovXU2XjWXji-zZsHn4PKQVODRMWRVw1t9r1VYJWrjzYt5fccYv9Oufjz7-HdnpvpBvd7OG2iBfOusUHzA/s320/3.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
selamat mencoba gan....</div>
<div>
<br /></div>
<div>
<br /></div>
<div>
<br /></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />

membaca tulisan di ms excel dan di tampilkan di VB.NET

berjumpa kembali dengan ane gan.... kali ini ane mau membahas tentang cara membaca tulisan di ms excel dan di tampilkan di VB.NET. caranya...

6:40 AM

export to excel menggunakan VB.NET

OK gan, kali ini ane mau ngebahas cara membuat laporan atau mencetak laporan dalam bentuk excel.<br />
langsung aja gan...<br />
langkah ke 1:<br />
buka dulu tampilan kerja visual basic nya (windows form app )<br />
simpan dengan nama laporan excel<br />
langkah ke 2:<br />
untuk mengaktifkan objek ms excel di vb, kita harus menambahkan Reference Object Microsoft.Office.Interop.Excel<br />
langkah ke 3 :<br />
buat design formnya seperti gambar berikut<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZ1qmlTDep6zX2iM_Ux3fhHejmq_6BIUX_yyikd3GpqucGdc6hTF0-t7UKJVnelU_Gso-7163z9z5ikYBbrc8Pi7N3ZapCkK5Q4w8Lo5htgyEFjEcr90WqOHZgL2IKca94T-j6x0HBmkM/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZ1qmlTDep6zX2iM_Ux3fhHejmq_6BIUX_yyikd3GpqucGdc6hTF0-t7UKJVnelU_Gso-7163z9z5ikYBbrc8Pi7N3ZapCkK5Q4w8Lo5htgyEFjEcr90WqOHZgL2IKca94T-j6x0HBmkM/s320/1.png" width="320" /></a></div>
<br />
langkah 4:<br />
tulis codingannya gan, berikut adalah view code dari project kali ini<br />
<br />
<br />
Imports Excel = Microsoft.Office.Interop.Excel<br />
Public Class Form1<br />
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles excel.Click<br />
        Dim excel_App As Excel.Application<br />
        Dim excel_WorkBook As Excel.Workbook<br />
        Dim exel_WorkSheet As Excel.Worksheet<br />
        Dim misValue As Object = System.Reflection.Missing.Value<br />
        excel_App = New Excel.Application<br />
        excel_WorkBook = excel_App.Workbooks.Add(misValue)<br />
        exel_WorkSheet = excel_WorkBook.Sheets("sheet1")<br />
        exel_WorkSheet.Cells(1, 1) = "selamat bos anda berhasil"<br />
        exel_WorkSheet.SaveAs("E:\latihan visual studio\vbexcel.xlsx")<br />
        excel_WorkBook.Close()<br />
        excel_App.Quit()<br />
        If MsgBox("file excel sukses di cetak, silahkan cek file tersebut di drive E:\latihan visual studio", MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then<br />
            End<br />
        End If<br />
    End Sub<br />
End Class<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9gyiSw7jYhgahyphenhyphenGT0ZKa9mA1Oeroy552O43CL6LnQkhnIiCHvoriHVKXYspvWs6ldJlT_hRXkGCskGpJmEv8uC5eGbCo5pRC1HYJH_HCKuO2bLDzBBzvLPzE8x3FHfkLlZ8wgZUDcti8/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9gyiSw7jYhgahyphenhyphenGT0ZKa9mA1Oeroy552O43CL6LnQkhnIiCHvoriHVKXYspvWs6ldJlT_hRXkGCskGpJmEv8uC5eGbCo5pRC1HYJH_HCKuO2bLDzBBzvLPzE8x3FHfkLlZ8wgZUDcti8/s320/2.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
langkah ke 5:</div>
<div>
jalankan (run) aplikasi tersebut dan klik tombol Cetak Dokumen Excel setelah program dijalankan </div>
<div>
hasil dari proses tersebut adalah aplikasi akan mencetak dokumen Ms Excel dan file tersebut dapat dilihat dari lokasi data yang anda buat gan </div>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJWvq78OQ3GD_gs3l2f9kcWJoEAiTJVieP8lj9-z2_r3xUaX_3maZwr8-04a3sNB39hvJAsBiSzRpY_2FY7zEi4W4hY_hb0kN26i-WRFlTJEQ-iHQq0E-TvRLZLEFZAyHE2QLCrqD1k1E/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJWvq78OQ3GD_gs3l2f9kcWJoEAiTJVieP8lj9-z2_r3xUaX_3maZwr8-04a3sNB39hvJAsBiSzRpY_2FY7zEi4W4hY_hb0kN26i-WRFlTJEQ-iHQq0E-TvRLZLEFZAyHE2QLCrqD1k1E/s320/3.png" width="320" /></a></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
<br /></div>
<div>
selamat mencoba gan</div>
<div>
<br /></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />

export to excel menggunakan VB.NET

OK gan, kali ini ane mau ngebahas cara membuat laporan atau mencetak laporan dalam bentuk excel. langsung aja gan... langkah ke 1: buka d...

5:40 AM

tes koneksi visual basic dengan mysql dari xampp

bagaimana   cara mengkoneksikan visual basic dengan data yang ada di MySQL xampp?<br />
pastikan agan sudah menginstal visual studio dan xampp.<br />
<br />
<br />
tambahkan referensi MySQL.Data di References<br />
buat dulu form designnya seperti pada gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiB3LFalZD3KQ6kTX7sAfCFi7yWYA-_xQQXxXFzNT1Mfl64FqfmR6abjSOWMoZvTB4CMA6woAPtKVS-HTiu7I37oipGXmArEdhXwJFIfgof_OTJRX_qhh-uIT-es2tC2LKB-GQBtqSFYhE/s1600/vb.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiB3LFalZD3KQ6kTX7sAfCFi7yWYA-_xQQXxXFzNT1Mfl64FqfmR6abjSOWMoZvTB4CMA6woAPtKVS-HTiu7I37oipGXmArEdhXwJFIfgof_OTJRX_qhh-uIT-es2tC2LKB-GQBtqSFYhE/s320/vb.png" width="320" /></a></div>
<br />
<br />
source code nya<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLLMQ983IffioPruti8QyFOnKbJlSzy2Td7dyFyb3RObjXpqLOcbmwUsHbAi2CtGhyphenhyphen9aq3NrHlZaORli33EO9sqq806zbLGJ3g7Dr9SNnSkbVESal1AP8-2AcS8JQJ7Cc5VDYPHpPl0a4/s1600/vb1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLLMQ983IffioPruti8QyFOnKbJlSzy2Td7dyFyb3RObjXpqLOcbmwUsHbAi2CtGhyphenhyphen9aq3NrHlZaORli33EO9sqq806zbLGJ3g7Dr9SNnSkbVESal1AP8-2AcS8JQJ7Cc5VDYPHpPl0a4/s320/vb1.png" width="320" /></a></div>
<br />
<br />
Imports MySql.Data.MySqlClient<br />
Public Class Form1<br />
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load<br />
    End Sub<br />
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click<br />
        Dim MySQLConnection As New MySqlConnection("host=127.0.0.1; user=root;database=sia_sekolahdb ")<br />
        Try<br />
            MySQLConnection.Open()<br />
            MessageBox.Show("terhubung gan")<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub<br />
End Class<br />
<br />
<br />
jika sudah berhasil terkoneksi , tampilannya begini gan<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1rU_ac-EbOUFU1SBNScUXxqaXuNvYJjIHMyuY_MoPQVsvfSzWO8EzIDXuIRHyPnWdftIh48ZVznB-wd7PVkITYBfz5zEL1hbig5qTywQkmRIRXUqWulOUPdj4LVcJ2bzw-csF07DS2zk/s1600/vb2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1rU_ac-EbOUFU1SBNScUXxqaXuNvYJjIHMyuY_MoPQVsvfSzWO8EzIDXuIRHyPnWdftIh48ZVznB-wd7PVkITYBfz5zEL1hbig5qTywQkmRIRXUqWulOUPdj4LVcJ2bzw-csF07DS2zk/s320/vb2.png" width="320" /></a></div>
<br />
ini video tutorialnya  gan<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<iframe allowfullscreen="" class="YOUTUBE-iframe-video" data-thumbnail-src="https://i.ytimg.com/vi/UQ_C8c6rev8/0.jpg" frameborder="0" height="266" src="https://www.youtube.com/embed/UQ_C8c6rev8?feature=player_embedded" width="320"></iframe></div>
<br />
<br />
<br />

tes koneksi visual basic dengan mysql dari xampp

bagaimana cara mengkoneksikan visual basic dengan data yang ada di MySQL xampp? pastikan agan sudah menginstal visual studio dan xampp. ...

3:57 AM

tes koneksi visual basic dengan mysql dari xampp

tes koneksi visual basic dengan mysql dari xampp

bagaimana cara mengkoneksikan visual basic dengan data yang ada di MySQL xampp? pastikan agan sudah menginstal visual studio dan xampp. ...

3:57 AM

Cyber Code

Export to Excel menggunakan Templeting VB.NET

membaca tulisan di ms excel dan di tampilkan di VB.NET

export to excel menggunakan VB.NET

tes koneksi visual basic dengan mysql dari xampp

tes koneksi visual basic dengan mysql dari xampp

Terpopuler

komentar

Blog Archive