Mengatasi Load Laporan Meminta Password di VB.NET dan XAMPP

Dalam membuat laporan suatu aplikasi yang menggunakan VB.NET dan PhpMyadmin di XAMPP suka meminta username dan password. Padahal untuk membuat database juga tidak menggunakan password. Kita masuk hanya dengan Username "root" dan Password="". Tapi kenapa kasus diatas bisa terjadi.


Untuk mengatasi hal tersebut kita harus membuat dns seperti berikut
1. Klik Control Panel, maka muncul gambar berikut :

  

     Rubah view by menjadi Large Icon

2. Pilih Administrative Tool, maka akan muncul gambar berikut :

3. Pilih Data Source (ODBC), maka muncul gambar dibawah ini :

4. Pilih add untuk membuat data source baru

5. Klik finish, maka data source baru sudah dibuat. Sekarang kita tinggal mengkoneksikannya ke  
    Crystal Report dari pas kita buat crystalreport.

Sekian yang dapat kami postkan, mudah-mudahan dapat bermanfaat bagi kita semua

Membuat Tabel Permanen di Datagridview

Kita bisanya (saya kali, kamu tidak heheh) kalau membuat tabel di datagridview itu muncul itu pada saat programnya di load atau di jalan. coba lihat gambar di bawah ini :

Tabel didalam datagrid tersebut ada secara permanen, bukan karena di jalankan atau di load.
Untuk membuanya,ikuti langkah-langkah berikut :
1. Buat form baru terus tambahkan 1 Datagridview ke dalam nya.
2. Masuk ke bagian propertis, seperti gambar dibawah

3. Klik di kanan pas diwarnai biru (lihat gambar diatas), maka muncul gambar berikut :

4. Klik Add untuk membuat dan menambahkan kolom dan remove untuk menghapusnya
5. Disebelah kanannya namain Header Name, Name dan dataPropertiName (sebagai acuan untuk
     menampilkan data hasil query)
6. Untuk membuat format dan lain sebagainya lihat gambar dibawah

7. Lalu klik DefaulCellStyle nya tp sebelah kanannya, maka akan muncul gambar di bawah ini

8. Disini anda bisa memasukan format yang akan ditampilkan dan lain sebagainya.

Mungkin sekian dulu tutorial kali ini, semoga bisa bermanfaat
amien...!

Progressbar dengan Persentase

Untuk update tutorial kali ini, saya akan share dikit tentang Progresbar dengan persentase. Kita sering melihat apabila kita menggunakan suatu aplikasi import atau inport data atau apapun itu, pada saat proses berjalan biasanya kita gunakan Progressbar dengan persentase. persentase disini menunjukan udah berapa banyak sistem berjalan or proses. Mungkin seperti itu penjelasannya. Ok langsung ja ya.
Sekarang siapkan Form, Timer dan Progressbar (vb.net). desain form seperti berikut :

Ketikan Kode di bawah ini Pada Timer :

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        If ProgressBar1.Value >= 150 Then 'Maksimal Value Progressbar
            ProgressBar1.Value = 0 'Value Progressbar kembali ke 0
        Else
            ProgressBar1.Value = ProgressBar1.Value + 1 'Value Progressbar + 1
        End If
        Label1.Text = Math.Round((ProgressBar1.Value / 100) * 100, 2) & "%" ' Label Persentase (%)
 End Sub

Setelah itu jangan lupa aktifkan Timer nya dengan cara sebagai berikut :
1. Klik Timer
2. Masuk ke Properties
3. Ubah Enabled menjadi TRUE
Sekarang jalankan aplikasi anda.

Mungkin sekian dulu tutorial kali ini semoga bisa bermanfaat bagi kita semua

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