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 :)
.jpg)
11 comments:
Pagi,
Thanks Berat Om yg baek hati...
Regards,
ID
Semoga anda tetap mau membagikan ilmu secara gratis... Tuhan memberkati dan panjang umur..
mari kita terus berkarya..
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.,!
bisa lewat email aja.. biar lebih jelas.. :)
Mas, ada tutorial cystal report 8.5 dengan repot utamanya ngambil dari 3 tabel ato lebih dengan msyql
thanks ya
Ijin Download buat E-book nya..
Sangat bermanfaat sekali bagi saya yang masih Newbie soal Dekstop Programing..
Makasih mas Junindar
linknya udah gak aktif mas..
tolong diupdate
terima kasih
http://1drv.ms/1nz2505
silahkan di download disini..
Terima kasih sudah mau share ilmunya pak Junindar.
Link diatas sudah tdk aktif
Link sudah di perbaiki//
terima kasih
Post a Comment