Erorr "a date is required here" di VB.NET dan CrystalReport

Sharing ja ya....
Query standar pemanggilan Bulan dan Tahun (Crytalreport atau VB.NET)
1. Bulan : Month({NamaTabel.NamaField}) --> Month({barang.tanggal})
2. Tahun : Year({NamaTabel.NamaField}) --> Year({barang.tanggal})

Query tersebut seharusnya berjalan, tp kadang menemukan hal berikut dibawah :
Kasus pertama :
Pesan kesalahan "a date is required here" pada saat pemanggilan bulan(Month) atau tahun(Year) dari sqlserver oleh Crystalreport atau VB.NET itu disebabkan karen query tersebut tidak menemukan format tanggal atau field tanggal di database bukan "date" atau bisa juga nilainya "NULL".

Solusi :
Chek struktur database di sqqlserver, sudah benar atau salah. Jika salah ganti dengan "date" dan coba jalankan querynya

Kasus kedua :
Setelah di cek dan benar type datanya dan data tanggalnya :"yyyy-mm-dd", tp tetap pesan kesalahan seperti tadi muncul. bingungkan...? aku mah bingung 10 kelliling.
tapi jangan kwtr ada solusinya ko, insa allah membantu :

Solusi:
Kesalahan terjadi pada Query, bukan kesalahan tp harus di modivikasi sedikit seperti berikut :
Month({NamaTabel.NamaField}) -----> Month(DateValue({barang.tanggal}))
Coba sekarang jalankan....

Sekian dulu ya semoga artikel kecil ini dapat bermanfaat bagi kita semua amien.....!

Input data dari Form Lain

Kira-kira judulnya tepat gk ya? ya udah langsung ja ya. Kaususnya gini kita mau input data dari form1 tapi di tampilan di form2. Untuk bisa melakukan penyimpanan data dan tampil otomatis di form2, ikuti langka-langkah berikut :
1. Pertama desain form seperti gambar berikut

2. Desain jg Form2 seperti berikut

3. Buat modul koneksi dan tuliskan sintax berikut :

Imports System.Data.SqlClient
Module Module1
    Public con As SqlConnection
    Public cmd As SqlCommand
    Public da As SqlDataAdapter
    Public dr As SqlDataReader
    Public ds As DataSet
    Public str, pesan As String

 
    Sub koneksi()
        str = "Data Source=TONI-PC\SQLEXPRESS;Initial Catalog=hasil;Integrated Security=True"
        con = New SqlConnection(str)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
    End Sub
End Module

3. Tuliskan kode berikut di form1

Imports System.Data.SqlClient
Public Class Form1
    Sub tampil()
        Call koneksi()
        da = New SqlDataAdapter("select * from siswa", con)
        ds = New DataSet
        da.Fill(ds, "siswa")
        DataGridView1.DataSource = ds.Tables("siswa")
        DataGridView1.ReadOnly = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call tampil()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
End Class

3 Tuliskan kode berikut di form2 :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            pesan = MsgBox("Data belum lengkap !", MsgBoxStyle.Information, "Pesan")
            Exit Sub
        Else
            Call koneksi()
            cmd = New SqlCommand("select * from siswa where NPM='" & TextBox1.Text & "'", con)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                pesan = MsgBox("Data sudah ada", MsgBoxStyle.Information, "Pesan")

            Else
                koneksi()
                Dim simpan As String = "insert into SISWA(NPM,Nama,Kelas)values('" &    TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
                cmd = New SqlCommand(simpan, con)
                cmd.ExecuteNonQuery()
                pesan = MsgBox("Data sudah tersimpan !", MsgBoxStyle.Information, "Pesan")

                Form1.tampil()

                Me.Close()
            End If
        End If
    End Sub

Terus jalan kan program tersebut....
untuk mengimput data Klik ja tombol input maka akan muncul form2 dan inputkan trus simpan maka akan tampil di form1 secara otomatis tanpa refresh

Tulisan ini semoga bermanfaat bagi kita kita semua



Referensi : Di label Pengenalan Blog
konsultasivb.com

Memunculkan CrystalReportViewer yang tidak ada

Dalam membuat laporan terutama CristalReport kita suka membutuhkan bantuan CrystalReportViewer yang berada di Toolbox tapi kadang tidak ada. Untuk memunculkannya ikuti langkah berikut :

Project properties--> Compile --> Advanced Compile Option --> Rubah Target Framework menjadi Framework4. atau sebelumnya

Dan langkah di atas juga bisa digunakan apabila kita tidak bisa membuka form source code, biasanya hasil downloadan

Combobox tidak bisa di edit

Kita suka lihat di web atau aplikasi lainnya, saat kita mengklik combobox di tengahnya pas warna putih, combobox tersebut tidak bisa di edit tapi mengeluarkan data dalam combonox tersebut. Untuk melakukan hal tersebut Visual Studio memberikan kemudahan, Caranya sebagai berikut :
1. Klik combox tersebut
2. Cari yang namanya DropDownStyle di Properties
3. Ganti value nya menjadi DropDownList
4. Untuk lebih keren lagi ganti yang namanya Flat dengan Popup

Dan combobox pun siap digunakan

Latihan IF dalam VB.NET dengan Bantuan Combobox

Yu........ kita belajar sedikit demi sedikit maka semakin bukit itu kata pepatah.

Pertama kita akan belajar tetang If di combobox, untuk selanjutnya ikuti langkah berikut :
1. Buka dulu VB.NET (vb.2005,2008, 2010 dll) dengan Klik All Program
2. Pilih Visual Studio
3. Buat Projek baru beri nama "Latihan"
4. Setelah ada Form nya tambahkan Combobox dan TextBox dari toolbox sebelah kiri
5. Berinama di propertiesnya(di sebelah kanan bawah) Ubah Name dari Combobox1 menjadi
    Cblatihan dan textbox jadi txtlatihab
6. Isi combobox dari propetiesnya. Caranya cari Items yang bernama (Collection)
    isi dengan : - Garam
                     - Gula
7. Klik dua kali combobonya, tuliskan Code di bawah :
 
    if cblatihan.text="Garam" then
          txtlatihan.text="Pahit"
           else
             if cblatihan.text="Gula" then
                txtlatihan.text="Manis"
            end if
        end if

Penjelasannya :
Jika kita pilih isi dalam combobox Garam maka akan tampil di TextBox Pahit dan jika kita pilih Gula maka akan tampil Manis.

Pengenalan Blog

Dengan mengucapkan Bismilahirahmannirahim, saya mencoba lagi untuk mencoba menggoreskan sedikit demi sedikit tulisan, artikel, tutorial atau source code yang mudah-mudahan dapat bermanfaat khususnya bagi saya sendiri dan umumnya bagi kita semua yang membacanya... amien ya rabal alamin..........
Insa Allah di blog ini saya akan mencoba membahas tentang Pemrograman Visual Basic.NET. Ok kita mulai ja yu....!Microsoft Visual Basic.net merupakann bahasa pemrograman tingkat tinggi dan full Objec Oriented Programming yang kita kenal OOP. Tadi kan saya masih NEWBE jadi yu kita belajar bareng-bareng.

Saya sedikit tahu nie tentang situs yang menurut saya layak untuk dipelajari
1. http://konsultasivb.com
2. http://putravb.blogspot.com
3. http://java2s.com
4. http://vb.net-informations.com
5. http://www.a1vbcode.com
6. http://w18.easy-share.com
7. http://www.planetsourcecode.com
8. http://geeks.netindonesia.net
9. http://www.sourcecodester.com
10. http://msdn.microsoft.com
11. http://www.sourcecodester.com
12. http://www.pecollege.net
13. http://www.codeproject.com/
14. http://djiesoft.blogspot.com
15. http://sourcecodevb.blogdetik.com
16. http://megasourcecode.net/

Mungkin untuk tulisan pertama saya hanya memberikan link referensi yang mana bisa berguna bagi kita semua. Selamat mencari dan belajar dengan praktek.