November 25, 2011

Visual Studio LightSwitch - Learning by Doing


Sudah lama sekali tidak posting di blog ini. Dan sebagai gantinya saya akan suguhkan Ebook baru yang berjudul 
Visual Studio LightSwitch - Learning by Doing. Yang berkeinginan untuk memiliki ebook ini bisa mendapatkannya  disini.
Microsoft Visual Studio LightSwitch adalah sebuah kakas yang dapat Anda gunakan untuk membuat aplikasi bisnis desktop hingga cloud dengan lebih cepat dan mudah. Dan ebook setebal 80 halaman ini mengulas tentang contoh pembuatan aplikasi dengan menggunakan kakas LightSwitch tersebut. Ebook setebal 80 halaman ini disusun oleh Erick Kurniawan dan Junindar Tasripin. Keduanya adalah peraih penghargaan MVP Visual Basic. Materinya disusun berupa panduan langkah demi langkah dengan harapan agar mudah untuk diikuti dan dipelajari.
Sifat ebook ini tentunya GRATIS, silakan dimanfaatkan dan silakan juga disebarluaskan dengan catatan tetap mencantumkan penulis dan sumber aslinya.
Salam komunitas :)

11 comments:

Muhammad Idris BataM said...

Pagi,
Thanks Berat Om yg baek hati...

Regards,
ID

Edilion Wijaya said...

Semoga anda tetap mau membagikan ilmu secara gratis... Tuhan memberkati dan panjang umur..

Junindar, MVP VB said...

mari kita terus berkarya..

kh4lunix said...

Mas sya mau nyak, gne sya punya coding seperti ini:

Public Function FindByJenisPem(ByVal DETAIL As String, ByVal ProcessDETAIL As String) As IList(Of DetailTransaksi)
Dim DETAILQ As New List(Of DetailTransaksi)()

Dim StrSQL As String = "SELECT * FROM detail_transaksi WHERE Id_Trx=@Id_Trx and Kd_JenisPembayaran=@Kd_JenisPembayaran"
Dim myCommand As New MySqlCommand(StrSQL, myconnection.open)
myCommand.Parameters.Add("@Id_Trx and @Kd_JenisPembayaran", MySqlDbType.VarChar).Value = DETAIL
Dim rdr As MySqlDataReader = myCommand.ExecuteReader
If rdr.Read = False Then 'jika user yang dicari tidak ada
If ProcessDETAIL = "Find" Then
Throw New Exception("Id Detail Transaksi tidak terdaftar")
End If
Else
If ProcessDETAIL = "Save" Then
MsgBox("Mahasiswi Sudah melakukan TRansaksi Pembayaran Ini.!", MsgBoxStyle.Critical, "Laporan Keuangan")
End If
End If
rdr.Close()
Return DETAILQ
End Function


Nah Koding di atas ada yang eror.,! krena sya pengennya ke database tu 2 kriteria yang di cek, yaitu Id_trx sma jenis_pembayaran.,! sedangkangkan untuk koding yang di form gne mas.,!

For i = 0 To (LsvTransaksi.Items.Count - 1)
Dim list As List(Of Entity.DetailTransaksi) = Accessdetail.FindByJenisPem((txtIdDetail.Text & txtNamaPembayaran.Text).Trim, "Save")
Dim TransaksiDetail As New Entity.DetailTransaksi With {.kodepem = LsvTransaksi.Items(i).Text, .Detail = LsvTransaksi.Items(i).SubItems(1).Text,
.trx = LsvTransaksi.Items(i).SubItems(2).Text, .npm = LsvTransaksi.Items(i).SubItems(3).Text,
.smst = LsvTransaksi.Items(i).SubItems(4).Text, .total = LsvTransaksi.Items(i).SubItems(5).Text,
.Jumlahb = LsvTransaksi.Items(i).SubItems(6).Text, .keter = LsvTransaksi.Items(i).SubItems(7).Text}

Accessdetail.DetailInsert(TransaksiDetail)

nah tu gmn cranya supaya bisa nyimpen dengan ngecek dua kriteria di atas.,!

Junindar, MVP VB said...

bisa lewat email aja.. biar lebih jelas.. :)

AHMAD FAIZI said...

Mas, ada tutorial cystal report 8.5 dengan repot utamanya ngambil dari 3 tabel ato lebih dengan msyql
thanks ya

N3wsoft said...

Ijin Download buat E-book nya..
Sangat bermanfaat sekali bagi saya yang masih Newbie soal Dekstop Programing..
Makasih mas Junindar

yayan sofian said...

linknya udah gak aktif mas..
tolong diupdate

terima kasih

Junindar, MVP VB said...

http://1drv.ms/1nz2505
silahkan di download disini..

Adib said...

Terima kasih sudah mau share ilmunya pak Junindar.
Link diatas sudah tdk aktif

Junindar, MVP VB said...

Link sudah di perbaiki//
terima kasih