October 23, 2009

VIDEO TUTORIAL (DEPLOYING USING MERGE MODULES)

Deployment bisa dikatakan sebagai hasil akhir dalam pembuatan aplikasi. Trus bagaimana jadi nya kalau hasil akhir ini tidak bisa di gunakan. Wah pasti sangat menyebalkan. Hal ini bisa terjadi pada aplikasi yang menggunakan Crystal Report. Jika pada saat melakukan deployment tidak menggunakan Merge Modules. Banyak sekali pertanyaan yang masuk ke saya berkenaan dengan ini. “Pak kok setelah di buat installer, trus di install ke PC lain, pas mau lihat laporan kok error”..

“Pak, apa artinya Invalid or Missing KeyCodeV3.dll”. dan banyak lagi.

Jadi untuk menjawab itu semua akan saya buat kan Video Tutorial bagaimana melakukan Deployment suatu project dengan menggunakan Merge Modules.

Silahkan download video tutorial nya disini

Note : untuk video ini saya menggunakan VS.Net 2003

Selamat mencoba ..

Wassalam

October 14, 2009

Paging DataGridView With LINQ


Masih pada ingat postingan artikel saya mengenai LINQ ? setelah mencoba akan kemudahan nya pasti akan membuat para pembaca tertarik untuk mendalami fungsi-fungsi LINQ. Masih menggunakan project yang sama topik yang sama (LINQ), saya akan memberikan trik bagaimana membuat Paging GridView dengan menggunakan LINQ.

Mungkin diantara pembaca sudah pernah membuat Paging Grid menggunakan Ado.net classic, seperti memanfaatkan ExecuteScalar dan lain-lain. Tapi bagaimana dengan LINQ apakah bisa ??? Bukan saja bisa, malah lebih mudah. Mari kita mulai project ini.

Note : Sebelum menerapkan aplikasi ini, sebaiknya mendownload artikel dan project sebelum postingan ini (Membuat Aplikasi Menjadi Lebih Mudah Dengan LINQ).

Buka project LatihanLINQ, dan tambahkan 1 form dan tambahkan 4 buah button, 1 label dan 1 DataGrdiView. Ubah properties dan atur letak komponen seperti diatas.

Form :

Name : F_Grid

Text : Paging Grid

StartPosition : CenterScreen

Button 1: Name = btnAwal , Text = <<

Button 2: Name = btnMundur, Text = <

Button 3: Name = btnMaju, Text = >

Button 4: Name = btnAkhir, Text = >>

Label : Name =lblStart, Text = Kosong

DatGridView1 : Name =DgView

Pada Project LatihanLINQ, buka class AccessSupplier.vb

Dan ketikkan sintak berikut didalam class AccessSupplier :

'Menampilkan jumlah baris table

Public Function GetTotalBaris() As Integer

Dim dc As New DataClassesDataContext

Dim hasil = (From sup In dc.GetTable(Of T_Supplier)() _

Select sup).ToList

Return hasil.Count 'menghitung jumlah element pada list

End Function

'menampilkan data dari n baris sebanyak n baris

Public Function GetSupplierRows(ByVal Awal As Integer, _

ByVal akhir As Integer) As List(Of T_Supplier)

Dim dc As New DataClassesDataContext

Dim hasil = (From sup In dc.GetTable(Of T_Supplier)() _

Order By sup.Sup_Code Select sup).Skip(Awal).Take(akhir).ToList

Return hasil

End Function

View Code untuk F_Grid, lalu ketikkan sintaks berikut di bawah Public Class F_Grid

Private AccessSupplier As New AccessData.AccessSupplier

Private NilAwal, NilTotal, NilBagi As Integer

Private NilPage As Integer = 2

Private Sub LabelRecord()

lblStart.Text = "Awal baris : " & (NilAwal + 1).ToString & " dari total : " + NilTotal.ToString

End Sub

Double click pada form F_Grid, dan ketikkan sintaks berikut :

Try

NilAwal = 0 'awal baris

NilTotal = AccessSupplier.GetTotalBaris 'mengambil total baris

DgView.DataSource = AccessSupplier.GetSupplierRows(NilAwal, NilPage) 'menampilkan data pada gridview

LabelRecord() 'menampilkan nilai baris dan total baris

Catch ex As Exception

MsgBox(ex.Message)

End Try

Double click button Maju dan ketik sintaks berikut :

Try

If (NilAwal + NilPage) <= NilTotal Then

NilAwal += NilPage

DgView.DataSource = AccessSupplier.GetSupplierRows(NilAwal, NilPage)

LabelRecord()

Else

MsgBox("Data sudah pada halaman terakhir", MsgBoxStyle.Information, "LINQ")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

Button Mundur :

Try

If (NilAwal - NilPage) >= 0 Then

NilAwal -= NilPage

DgView.DataSource = AccessSupplier.GetSupplierRows(NilAwal, NilPage)

LabelRecord()

Else

MsgBox("Data sudah pada halaman pertama", MsgBoxStyle.Information, "LINQ")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

Button Awal

Try

NilAwal = 0

DgView.DataSource = AccessSupplier.GetSupplierRows(NilAwal, NilPage)

LabelRecord()

Catch ex As Exception

MsgBox(ex.Message)

End Try

Dan button Akhir

Try

NilTotal = AccessSupplier.GetTotalBaris

NilBagi = NilTotal Mod NilPage

NilAwal = NilTotal - IIf(NilBagi <> 0, NilBagi, NilPage)

DgView.DataSource = AccessSupplier.GetSupplierRows(NilAwal, NilPage)

LabelRecord()

Catch ex As Exception

MsgBox(ex.Message)

End Try

Dan jalankan program, maka gridview menampilkan data per 2 baris sesuai dengan navigator yang kita tekan.

Selamat mencoba

Wassalam

October 9, 2009

Vb 9 with LINQ (MEMBUAT APLIKASI MENJADI LEBIH MUDAH DENGAN LINQ)

LINQ merupakan fitur baru pada Vb 9.0, dan fitur ini sangat membantu para programmer dalam membangun suatu aplikasi. Lalu apakah LINQ itu dan mahluk seperti apakah LINQ?? Mungkin masih banyak sekali di antara pembaca yang belum tau apa itu LINQ dan fungsi-fungsi nya. . Ada beberapa macam LINQ Provider seperti LINQ to Object, LINQ to XML, LINQ to SQL, LINQ to Datasets, tapi pada artikel ini kita akan membuat aplikasi dengan menggunakan LINQ to SQL.
Sesuai dengan judul diatas, dengan LINQ akan memudahkan kita dalam membuat aplikasi. Artikel ini akan menjelaskan step by step cara pembuatan aplikasi, dari pembuatan database dengan SQL Server 2005 Express, bekerja dengan Object Relational Desginer, sampai dengan penggunaan fungsi-fungsi LINQ untuk aplikasi.
untuk artikel lengkap nya dapat didownload disini dan project source code disini

October 2, 2009

Alhamdulillah saya mendapatkan Microsoft MVP VB.Net

Alhamdulillah adalah kata pertama sewaktu membaca email di bawah

Dear Junindar Tasripin,

Congratulations! We are pleased to present you with the 2009 Microsoft® MVP Award! This award is given to exceptional technical community leaders who actively share their high quality, real world expertise with others. We appreciate your outstanding contributions in Visual Basic technical communities during the past year.”

Award ini merupakan kado Indah dari Microsoft sebelum lahir nya anak saya (perkiraan dokter bulan desember J )

Ga lupa saya berterima kasih banyak kepada: Narenda & wely (thanks atas promote nya).

Teman-teman MUGI Batam : bro Aprizon, anam, atha, abe, FARaham, Rudy , john dan irawan. Thanks memberi kesempatan saya menjadi pengurus MUGI Batam.

Terima kasih buat rekan-rekan setia pembaca artikel-artikel saya di blog ini, maupun di geeks dan ilkom yang menjadi inspirasi dalam tulisan-tulisan saya.

Dan Terakhir buat Keluarga TERCINTA............. Thanks for your support

Semoga dengan mendapatkan ini membuat saya lebih baik dalam melakukan share ilmu terutama untuk Vb.Net.