Beberapa waktu lalu saya membuat aplikasi yang menggunakan laporan Crystal Report, dimana datanya diambil dari SQL Server komputer saya. Laporan tersebut menggunakan kombinasi 5 tabel database sekaligus dan menggunakan banyak field dan grouping data didalamnya.

Masalah muncul saat saya ingin memindahkan aplikasi tersebut ke Laptop orang lain, dimana nama Server SQL-Server di komputer saya dan di laptop itu berbeda. Databasenya sendiri sudah saya copy ke laptop tersebut.

Otomatis saya harus mengubah setting nama Servernya. Untuk koneksi di Form, mungkin saya tinggal mengganti nama servernya di file khusus untuk modul koneksi. Bagaimana dengan koneksi database di laporan yang menggunakan Crystal Report..? Kondisinya seperti gambar berikut..!

Gambar diatas adalah kotak dialog Database Expert dan saya harus merubah Nama Server tersebut dengan nama server di laptop tadi agar aplikasi saya bisa berjalan di Laptop itu.

Berikut ini adalah cara yang saya lakukan.
1. Melalui Field Explorer, klik kanan di Database Fields pilih Set Datasource Location.
2. Akan muncul kotak dialog Set Datasource Location.
3. Klik tanda + pada tree di bagian properties (dibawah nama server).
4. Klik 2 kali pada Data Source dan isikan nama server yang baru, lihat gambar.

Sekarang nama server sudah berhasil diubah.

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Mungkin sudah banyak yang mengetahui perbedaan deklarasi parameter dengan ByVal dan ByRef ini, namun saya rasa tidak ada salahnya untuk membahasnya lagi disini. Siapa tahu masih ada sejumlah visitor yang belum mengetahuinya (Kemana aja selama ini..?).

Untuk deklarasi parameter pada suatu method sub / function secara default akan menggunakan keyword ByVal. VB.Net 2008 akan menambahkannya secara otomatis saat anda mendeklarasikan sebuah parameter.

Jika suatu parameter dideklarasikan sebagai ByVal maka nilai parameter tersebut adalah copy-an nilai / salinan dari method pemanggilnya. Jadi ketika parameter tersebut diubah pada method sub / function, ia tidak akan berpengaruh pada nilai di pemanggilnya / hanya berubah didalam sub / functionnya sendiri.

Maka kebalikannya terjadi jika anda menggunakan ByRef, dengan ByRef maka parameter akan menggunakan nilai dan objek yang sama dengan pemanggilnya (mereferensi ke objek di pemanggilnya). Jadi jika nilai parameternya berubah di dalam sub / function tersebut maka perubahan juga terjadi di method pemanggilnya.

Saya rasa dari penjelasan diatas perbedaan antara deklarasi parameter dengan ByVal dan ByRef sudah cukup jelas dan tidak perlu dicontohkan.

Postingan kali ini mengenai datareader di VB.Net 2008, object ini digunakan khusus untuk membaca data dan sifatnya read only dan forward only. Read Only dalam artian object ini tidak dapat digunakan untuk melakukan manipulasi data. Forward Only sendiri berarti bahwa selama dalam proses pembacaan record maka datareader tersebut tidak dapat melakukan navigasi record ke record sebelumnya yang sudah dibaca.

Berikut adalah contoh penggunaan datareader. Siapkan sebuah database di SQL Server dengan nama testing dan sebuah tabel bernama t_obat. Berikut penampakan tabel t_obat. (SQL Query dapat didownload di akhir postingan ini)

Sekarang buatlah project baru di VB.Net 2008 dan beri nama Test_datareader. Buatlah form dengan tampilan seperti dibawah ini dengan menggunakan 1 label, 2 button dan 1 listbox.

Ketikan kode berikut ini untuk form diatas. Dalam kode ini datareader digunakan untuk membaca data dari database dan ditampilkan ke listbox.

 Imports System.Data.SqlClient  
 Public Class Form1  
   Private Sub ButtonCallDataReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCallDataReader.Click  
     Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     Dim koneksi As New SqlConnection(connectionString)  
     Using cmd As New SqlCommand  
       cmd.Connection = koneksi  
       cmd.CommandType = CommandType.Text  
       cmd.CommandText = "SELECT * FROM t_Obat"  
       Dim mydatareader As SqlDataReader = Nothing  
       Try  
         koneksi.Open()  
         mydatareader = cmd.ExecuteReader  
         While mydatareader.Read  
           ListBoxData.Items.Add(mydatareader(0) & " - " & mydatareader(1) & " - " & mydatareader(2))  
         End While  
       Catch ex As Exception  
         MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
       End Try  
     End Using  
   End Sub  
   Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click  
     Me.Close()  
   End Sub  
 End Class  

Anda bisa mendapatkan source code program diatas (bila diperlukan) pada akhir postingan ini, jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda.

Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Postingan kali ini mengenai pengaturan data yang ditampilkan berdasarkan halaman per halaman atau paging data. Konsep ini umum kita temui terutama saat menampilkan data dalam jumlah hingga ratusan atau ribuan data. Tentu tidak mungkin kita menampilkan seluruh data tersebut dalam 1 halaman sekaligus.

Solusinya dengan membagi data menjadi beberapa halaman, disini saya akan mencontohkan konsep paging data. Siapkan sebuah database bernama testing dan buat table t_Obat. Berikut penampakan tabelnya.

Buat project baru di VB.Net 2008 beri nama DGPaging dan buat sebuah form untuk menampilkan data. Form yang saya buat tampilannya seperti berikut ini:

Pada contoh diatas, ada 6 data yang ditampilkan per halaman. Berikut ini adalah kode program secara keseluruhan. Anda juga dapat mendownload source code program di akhir postingan ini.

 Imports System.Data.SqlClient  
 Public Class FormDG  
   Dim PA As SqlDataAdapter  
   Dim DS As DataSet  
   Dim scrollVal, ShowData, TotalData As Integer  
   Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click  
     Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     Dim sql As String = "SELECT * FROM t_Obat"  
     Dim koneksi As New SqlConnection(connectionString)  
     PA = New SqlDataAdapter(sql, koneksi)  
     DS = New DataSet()  
     koneksi.Open()  
     PA.Fill(DS, "Obat")  
     TotalData = DS.Tables("Obat").Rows.Count()  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
     koneksi.Close()  
     DGObat.DataSource = DS  
     LabelPage.Text = "1"  
     LabelTotal.Text = Math.Ceiling(TotalData / ShowData)  
     DGObat.DataMember = "Obat"  
     ButtonNext.Enabled = True  
     ButtonPrev.Enabled = True  
   End Sub  
   Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click  
     If Not LabelPage.Text = Math.Ceiling(TotalData / ShowData) Then  
       scrollVal = scrollVal + ShowData  
       If scrollVal > TotalData Then  
         scrollVal = Math.Floor(TotalData / ShowData) * ShowData  
       End If  
       LabelPage.Text = Val(LabelPage.Text) + 1  
     End If  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
   End Sub  
   Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click  
     scrollVal = scrollVal - ShowData  
     If scrollVal <= 0 Then  
       scrollVal = 0  
     End If  
     If Not LabelPage.Text = "1" Then LabelPage.Text = Val(LabelPage.Text) - 1  
     DS.Clear()  
     PA.Fill(DS, scrollVal, ShowData, "Obat")  
   End Sub  
   Private Sub FormDG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
     ShowData = 6  
     LabelPage.Text = "n"  
     LabelTotal.Text = "m"  
   End Sub  
   Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click  
     Me.Close()  
   End Sub  
 End Class  

Bila anda hendak download source code program diatas, jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda.
Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Postingan kali ini kita akan mengeksport data yang ada di Datagrid menjadi file XML. File XML sekarang umum digunakan untuk pertukaran data di Internet karena pemrosesannya yang mudah dan cepat.

Langsung to the point aja...

Seperti biasa, persiapkan sebuah database bernama testing dan buat table tbl_konsumen. Berikut penampakan tabel tbl_konsumen. (Script SQL query dapat didownload di akhir postingan).

Sekarang buat project baru di VB.Net 2008 dan beri nama createXML. Buat form dengan tampilan seperti berikut ini :

Untuk proses input - edit - delete data saya anggap anda sudah paham, pembahasan tentang ini ada di postingan sebelumnya yaitu Simple Proses Input - Edit - Delete Data Dengan VB.Net 2008 dan SQL Server 2008.

Sekarang fokus di tombol Create XML (lihat gambar diatas). Untuk kode eksport data di datagrid ke XML saya menggunakan ini :

 Sub XMLFile()  
   With FormXML  
     Try  
       If My.Computer.FileSystem.FileExists("../../XML/datakonsumen.xml") Then  
         MsgBox("File XML Sudah Ada..!")  
         Exit Sub  
       Else  
         Dim settings As New XmlWriterSettings()  
         settings.Indent = True  
         settings.IndentChars = "  "  
         Using writer As XmlWriter = XmlWriter.Create("../../XML/datakonsumen.xml", settings)  
           writer.WriteComment("XML Files datakonsumen")  
           writer.WriteStartElement("dataset")  
           writer.WriteStartElement("DataKonsumen")  
           writer.WriteComment("Start datakonsumen")  
           For rowIndex As Integer = 0 To .DataGridKonsumen.Rows.Count - 1 Step 1  
             writer.WriteElementString("perusahaan", .DataGridKonsumen.Item(0, rowIndex).Value)  
             writer.WriteElementString("contactperson", .DataGridKonsumen.Item(1, rowIndex).Value)  
             writer.WriteElementString("phone", .DataGridKonsumen.Item(2, rowIndex).Value)  
             writer.WriteElementString("alamat", .DataGridKonsumen.Item(3, rowIndex).Value)  
           Next  
           writer.WriteComment("End datakonsumen")  
           writer.WriteEndElement()  
           writer.WriteEndElement()  
           writer.WriteEndDocument()  
           writer.Flush()  
           writer.Close()  
           MsgBox("File XML Data Konsumen Berhasil dibuat..!")  
         End Using  
       End If  
     Catch ex As Exception  
       MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
     End Try  
   End With  
 End Sub  

Lokasi file XML ("../../XML/datakonsumen.xml") akan ditempatkan di folder XML, berada di path yang sama dengan file-file penyusun obyek VB.Net. Bila anda pernah menggunakan VB 6, maka alamat ("../../XML/datakonsumen.xml") sama seperti menggunakan app.path.

Source code program dapat didownload di akhir postingan ini. Jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda (lihat di file ModulKoneksi.vb.)

Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Regular Expression atau Regex memungkinkan anda menguraikan teks secara mudah untuk mengikuti suatu pola teks tertentu. Regex umumnya digunakan untuk memvalidasi suatu inputan / data agar sesuai dengan pola yang diinginkan. Dalam .NET Framework disediakan namespace System.Text.RegularExpressions untuk mendukung penggunaan Regex.

Contoh sederhana misalkan kita ingin data inputan berupa data numerik, maka ekspresinya [0-9] atau \d. Jika kita ingin data inputan berupa huruf kapital dan angka, maka ekspresinya [0-9A-Z].

Berikut adalah contoh syntax perintah dari Regex:
1. [abc] => hanya karakter a,b dan c saja yang diijinkan.
2. [^abc] => karakter apa saja boleh kecuali a,b dan c.
3. [0-9] => karakter yang diijinkan angka 0 hingga 9, sama dengan \d.
4. \w => Semua karakter diijinkan, sama dengan [a-zA-Z_0-9].
5. \W => Kebalikan dari \w. Hanya karakter simbol yang diijinkan.
6. \d => Karakter numerik yang diijinkan
7. \D => Karakter numerik tidak diijinkan
8. \n => baris baru
9. \t => Tab
10. * => Terdapat 0 atau lebih karakter yang sesuai.
11. + => Terdapat minimal 1 atau lebih karakter yang sesuai.
12. ? => Terdapat 0 atau 1 karakter yang sesuai.
13. +? => Terdapat pengulangan setidaknya 1 kali.
14. {n} => Terdapat sebanyak n kecocokan dalam string.
15. {n,m} => Terdapat minimal n kecocokan namun tidak lebih dari m.
16. . => Tanda Titik berarti Semua Karakter diijinkan.

Sebenarnya masih ada lagi contoh syntaxnya, namun diatas adalah yang umum digunakan. Setiap ekspresi Regex harus diawali dengan ^ dan diakhiri $.

Berikut contoh ekspresi Regex untuk tahun kelahiran yang valid :

 "^(18)|(19)|(20)\d\d$"  

Penjelasan :
^ berarti awal dari ekspresi
(18)|(19)|(20) berarti tahun diawali oleh angka 18, 19 atau 20
\d berarti diikuti karakter numerik
$ berarti akhir dari ekspresi

Sekarang saya akan coba menggunakan metode Regex ini untuk validasi data. Kali ini saya membuat sebuah Form seperti berikut ini :

Contoh diatas adalah contoh validasi nilai tahun kelahiran, email dan URL menggunakan Regex serta plus metode penggunaan Regex untuk replace string.

apabila user memasukkan nilai secara sembarang, maka akan tampil message yang menyatakan  tidak valid. Berikut ini contoh kode untuk Regex valid tahun :

 Function ValidTahun(ByVal str As String)  
   Return Regex.IsMatch(str, "^(18)|(19)|(20)\d\d$")  
 End Function  

Kalau ada yang mau source code lengkap program diatas (ngarep, hehehe) dapat didownload di akhir postingan ini.

Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Bila kita membuat aplikasi desktop yang memakai database, tentu kita akan bekerja dengan proses Input, Edit dan Delete data. Nah, di postingan kali ini kita akan membuat contoh proses tersebut dengan memakai database SQL Server 2008.

Seperti biasa siapkan dulu contoh tabel database yang akan digunakan. Sebagai contoh kita akan bermain dengan nama-nama obat. Nama databasenya testing dan nama tabelnya obat. Berikut penampakan tabel obat : (Script SQL query dapat didownload di akhir postingan).

Buat Project baru di VB.Net 2008 dab berinama ProsesDataObat. Berikut tampilan Tab Solution Explorernya :

Sebagai awal, rename form1 menjadi FormObat. Kira-kira form yang saya buat seperti berikut ini :

Sekarang buatlah File modul dengan nama ModulKoneksi.vb, file ini tentu untuk koneksi database. Berikut adalah contoh script koneksinya :

 Public koneksi As SqlConnection = Nothing  
 Public cmd As SqlCommand = Nothing  
 Public Sub koneksiDB()  
   Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
   Try  
     koneksi = New SqlClient.SqlConnection(connString)  
     koneksi.Open()  
     koneksi.Close()  
   Catch ex As Exception  
     MessageBox.Show("Database Connection Error : " & ex.Message)  
   End Try  
 End Sub  

Pada Form buat proses untuk load data ke FormObat. Intinya Pada saat Form Load, maka data di database akan di Load ke FormObat. Berikut ini contohnya:

 Sub getDataFromDB(ByVal i As Integer)  
   koneksiDB()  
   Try  
     koneksi.Open()  
     DS_Obat = New DataSet  
     sql = "SELECT * FROM obat"  
     DA_Obat.SelectCommand = New SqlClient.SqlCommand(sql, koneksi)  
     DA_Obat.Fill(DS_Obat, "obat")  
     RowNumber = i  
     koneksi.Close()  
   Catch ex As Exception  
     MessageBox.Show(ex.Message)  
   End Try  
 End Sub  
 Sub DaftarObat()  
   If DS_Obat.Tables("obat").Rows.Count = 0 Then  
     MsgBox("Data Obat di Database Masih Kosong", MsgBoxStyle.Exclamation, "Pesan Program")  
     Exit Sub  
   End If  
   Me.TextBoxKodeObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("kd_obat").ToString  
   Me.TextBoxNamaObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("nama").ToString  
   Me.ComboBoxJenisObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("jenis").ToString  
   Me.TextBoxStok.Text = DS_Obat.Tables("obat").Rows(RowNumber)("stok").ToString  
   Me.TextBoxSatuan.Text = DS_Obat.Tables("obat").Rows(RowNumber)("satuan").ToString  
   Me.TextBoxHargaBeli.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargabeli").ToString  
   Me.TextBoxHargaJual.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargajual").ToString  
 End Sub  

Berikutnya adalah tombol operasi data, namun untuk ini saya membuat 1 file modul khusus yaitu ModulFormObat.vb yang khusus untuk kode Operasi data (Lihat Solution Explorer). Pertama input data. Berikut adalah kode input data yang saya gunakan.

 Sub SaveData()  
   With FormObat  
     Try  
       If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       sql = "INSERT INTO obat VALUES ('" & .TextBoxKodeObat.Text & "', '" & .TextBoxNamaObat.Text & "', '" & .ComboBoxJenisObat.Text & "', '" & .TextBoxSatuan.Text & "', '" & .TextBoxStok.Text & "', '" & .TextBoxHargaBeli.Text & "','" & .TextBoxHargaJual.Text & "')"  
       cmd = New SqlClient.SqlCommand(sql)  
       cmd.Connection = koneksi  
       koneksi.Open()  
       cmd.ExecuteNonQuery()  
       koneksi.Close()  
       MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil Disimpan", MsgBoxStyle.Information, "Pesan Program")  
       .LoadData()  
     Catch ex As Exception  
       MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
     End Try  
   End With  
 End Sub  

Kedua untuk Edit data, berikut adalah contoh kode yang saya gunakan.

 Sub EditData()  
   With FormObat  
     Try  
       If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub  
       sql = "UPDATE obat SET nama='" & .TextBoxNamaObat.Text & "', " _  
                  & "jenis = '" & .ComboBoxJenisObat.Text & "', " _  
                  & "satuan = '" & .TextBoxSatuan.Text & "', " _  
                  & "stok = '" & .TextBoxStok.Text & "', " _  
                  & "hargabeli = '" & .TextBoxHargaBeli.Text & "', " _  
                  & "hargajual = '" & .TextBoxHargaJual.Text & "' " _  
                  & "WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"  
       cmd = New SqlClient.SqlCommand(sql)  
       cmd.Connection = koneksi  
       koneksi.Open()  
       cmd.ExecuteNonQuery()  
       koneksi.Close()  
       MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil DiUpdate", MsgBoxStyle.Information, "Pesan Program")  
       .LoadData()  
     Catch ex As Exception  
       MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
     End Try  
   End With  
 End Sub  

Dan terakhir yaitu untuk Delete Data.

 Sub DeleteData()  
   With FormObat  
     Try  
       Dim hapus As Integer  
       Dim Sql As String  
       hapus = MsgBox("Anda Yakin Ingin Menghapus Data Obat " & .TextBoxNamaObat.Text & " ini?", MsgBoxStyle.OkCancel, "Info Program")  
       Select Case hapus  
         Case vbCancel  
           Exit Sub  
         Case vbOK  
           Sql = "DELETE FROM obat WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"  
           cmd = New SqlClient.SqlCommand(Sql)  
           cmd.Connection = koneksi  
           koneksi.Open()  
           cmd.ExecuteNonQuery()  
           koneksi.Close()  
           MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Information, "Info Program")  
           .LoadData()  
       End Select  
     Catch ex As Exception  
       MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
     End Try  
   End With  
 End Sub  

Sedangkan untuk navigasi datanya, berikut adalah contoh kode yang saya gunakan.

 Private Sub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click  
   RowNumber = 0  
   Me.DaftarObat()  
 End Sub  
 Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click  
   If RowNumber = 0 Then  
     MsgBox("Anda Berada di Data Paling Awal", MsgBoxStyle.Information, "Info Program")  
   Else  
     RowNumber -= 1  
     Me.DaftarObat()  
   End If  
 End Sub  
 Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click  
   If RowNumber = DS_Obat.Tables("obat").Rows.Count - 1 Then  
     MsgBox("Anda Berada di Data Paling Akhir", MsgBoxStyle.Information, "Info Program")  
   Else  
     RowNumber += 1  
     Me.DaftarObat()  
   End If  
 End Sub  
 Private Sub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click  
   RowNumber = DS_Obat.Tables("obat").Rows.Count - 1  
   Me.DaftarObat()  
 End Sub  

Untuk tombol Search buat Form baru dengan nama FormDataGrid. Berikut adalah tampilan Formnya :

Jadi, saat data terlalu banyak, user bisa memilih menggunakan Datagrid dengan klik pada cell atau double klik di baris data yang anda inginkan. Berikut adalah contoh kode saat user melakukan klik untuk pemilihan data:

 Private Sub DataGridFullData_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridFullData.DoubleClick  
   FormObat.getDataFromDB(DataGridFullData.CurrentCell.RowIndex)  
   FormObat.DaftarObat()  
   Me.Close()  
 End Sub  

Anda sebenarnya bisa download source code program di akhir artikel ini. Jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda (lihat di ModulKoneksi.vb.)

Download Disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Apabila kita berbicara tentang Rich Text maka itu berarti suatu Text Editor yang memiliki fasilitas format text yang banyak. Text Editor dalam hal ini harus lebih kaya fungsi dibanding Text Editor sederhana seperti Notepad.

Kita coba membuatnya di VB.Net 2008 dan ini adalah contoh Rich Text Editor (seperti Wordpad di Windows). Menu menggunakan icon-icon (seperti toolbar) yang digunakan untuk memformat text pada textpad.

Berikut adalah penampakan output program Rich Text Editor yang dimaksud. (mirip dengan Wordpad)

Program diatas sebenarnya tidak menggunakan object RichTextBox yang disediakan di ToolBox, namun melakukan scripting untuk membuat objectnya. (code saya temukan saat browsing di Google)

Untuk yang ingin download program dapat mengklik link download di akhir program.

Download Disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Anda pasti tahu kegunaan Form Login, kira-kira untuk melakukan authentication terhadap user yang hendak menggunakan suatu aplikasi.

Kali ini kita akan membuat Login Form, pertama-tama siapkan di Sql Server sebuah database testing dan tabel bernama tbl_user. Kurang lebih berikut penampakan tbl_user.

Sql code untuk tabel diatas dapat didownload di akhir postingan. Selanjutnya buat Project baru di VB.Net 2008 anda dan buat form login seperti berikut ini :

Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja. Berikut adalah kode untuk proses login yang akan kita gunakan :

 cmd.Connection = koneksi  
 cmd.CommandText = "SELECT * FROM tbl_user WHERE myuser = '" & TextBoxUser.Text & "' and mypass = '" & TextBoxPass.Text & "'"  
 dtReader = cmd.ExecuteReader  
 If (dtReader.Read()) Then  
   Utama.Show()  
 Else  
   MsgBox("Maaf, Username dan Password tidak Ditemukan....!", MsgBoxStyle.OkOnly, "Login Gagal")  
 End If  

Anda juga dapat mendownload sample kode program login ini diakhir postingan ini. Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Download Disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Postingan kali ini tentang gambar, yaitu cara save image ataupun load image di VB.Net 2008. Gambar dalam hal ini akan ditampilkan melalui PictureBox.

Pertama-tama, di SQL Server siapkan sebuah table bernama tbl_img (nama database = testing).

Data di tabel hanya contoh, boleh diabaikan. Tabel tbl_img ini untuk menyimpan nama file dengan Path gambar yang kita akan gunakan.

Langsung saja buat sebuah project baru di VB.Net dan rancang form seperti berikut ini :

Catatan : Disamping objek yang terlihat diatas, saya juga menggunakan OpenFileDialog.

Anda bisa download sample programnya (beserta Sql Code utk database) di akhir postingan.

Logika programnya sederhana, awalnya memilih gambar melalui tombol Load Picture lalu save datanya ke database dengan tombol Save Picture.

Berikut adalah contoh Load File Image :

 OpenFileDialog1.Filter = "JPG Files (*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files (*.gif)|*.gif|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|TIFF Files (*.tiff)|*.tiff"  
 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then  
    PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)  
    PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage  
 End If  

dan berikut untuk Save (Nama file & Path) ke Database :

 Dim cmd As SqlCommand = New SqlCommand("INSERT INTO tbl_img (gambar, alamat) VALUES ('" & TextBoxFileName.Text & "', '" & PathFile & "')", koneksi)  
 cmd.CommandType = CommandType.Text  
 Dim DReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)  

Untuk mempermudah anda bisa Download Program disini

Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Postingan kali ini yaitu cara mengisi value dari Combobox yang value-nya berasal dari database. Pertama-tama tentu menyiapkan tabelnya di SQL Server, sebagai contoh saya menggunakan database testing dan tabel bernama tbl_obat. Berikut penampakannya.

Untuk SQL Code dapat didownload di akhir postingan. Sekarang buat project baru di VB.Net 2008 dan buat form seperti berikut ini.

Secara sederhana, berikut adalah kode mengisi ComboBox dengan data dari Database.

   Dim query As String = "SELECT * FROM tbl_obat"  
   Dim DA = New SqlDataAdapter(query, koneksi)  
   Dim DS = New DataSet  
   DA.Fill(DS, "tbl_obat")  
   With ComboBox1  
     .DataSource = DS.Tables("tbl_obat")  
     .DisplayMember = "obat"  
     .ValueMember = "id"  
     .SelectedIndex = 0  
   End With  

Untuk contoh Source Code Program beserta SQL Code dapat didownload Disini.

Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Postingan kali ini masih tentang membuat laporan dengan Crystal Report yang datanya ditentukan berdasarkan tanggal yang diinput.

Langsung saja, buat database SQL Server baru bernama testing dan buat tabel bernama beliObat, berikut penampakan tabelnya. (SQL Query dapat didownload bersama program di akhir postingan)

Buat project baru di VB.Net 2008 dan berinama laporan. Buat File Laporan baru dengan Crystal Report (Project - Add New Item - [Reporting] - Crystal Report) dan berinama myreport.rpt. Pada kotak dialog Crystal Report Gallery, pilih saja As a Blank Report.

Tampilkan Field Explorer (bila tidak muncul, panggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Isikan konfigurasi di SQL Server anda dan pilih database testing, Klik Next dan Finish.

Akan tampil kotak dialog Database Expert, pada bagian Selected Tables isikan dengan table beliObat yang kita buat tadi dan klik OK. Lihat Gambar.

Kita perlu parameter tanggal awal dan tanggal akhir sebagai data input ke Crystal Report. Melalui Field Explorer, klik kanan Parameter Fields dan pilih New. Pada Parameter Field, isikan name dengan awal. Lihat Gambar.

Dengan cara yang sama buat parameter akhir.

Melalui Field Explorer, Klik tanda + pada Database Fields dan pindahkan field-field di tabel beliObat ke Form Laporan. Tampilan Form Laporan akan seperti berikut ini:

Untuk memasukkan parameter ke Crystal Report, klik kanan pada Form Laporan pilih selection Formula dan pilih Record dan ketikan syntax berikut:

   
 DateTimeValue({?awal}) <= DateTimeValue({beliObat.tgl_beli}) and DateTimeValue({beliObat.tgl_beli}) <= DateTimeValue({?akhir})  
   

Lihat gambar untuk lebih jelas.

 

Buat Form baru (Windows Form) berinama Formlaporan dan drag CrystalReport Viewer di Toolbox ke Form tersebut. Pada properties CrystalReport Viewer, isikan ReportSource dengan report yang kita buat tadi dan pada Properties Form, ubah Windowstate menjadi Maximized.

Sekarang pindah ke Form1, Buat inputan tanggal awal dan tanggal akhir dengan DateTimePicker. Pada properties DateTimePicker, ganti Format menjadi Custom dan CustomFormat menjadi yyyy-MM-dd. Lihat Contoh seperti berikut ini.

Isikan kode berikut pada tombol CREATE. Kode berikut ini untuk mengirim inputan tanggal ke Form Laporan Crystal Report.

   
 Formlaporan.myreport1.SetParameterValue("awal", DateTimePicker1.Text)  
 Formlaporan.myreport1.SetParameterValue("akhir", DateTimePicker2.Text)  
 Formlaporan.Show()  
   

Link download ada dibawah dan jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Download Source Program

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Adakalanya saat hendak membuat laporan dengan Crystal Report di VB.Net 2008, kita perlu mengirim parameter tertentu ke Crystal Report karena kita hanya ingin menampilkan sebagian data saja dari suatu tabel.

Sebagai contoh kali ini kita menggunakan 2 buah tabel seperti berikut : (kode SQL dapat didownload di akhir postingan)



Kita hendak membuat laporan untuk buku yang kategori dan pengarangnya dapat kita tentukan sendiri, berarti kita perlu 2 parameter untuk memisahkan kategori buku dan pengarang.

Pertama buat sebuah database di SQL Server dengan nama testing dan buat tabel seperti gambar diatas (disediakan SQL Query di akhir postingan).

Buat Project baru di VB.Net 2008 dan beri nama laporan. Abaikan terlebih dahulu Form1.vb, dan buat File laporan dengan Crystal Report (Project - Add new Item - (Reporting) - Crystal Report) dan beri nama laporanparameter.rpt dan klik Add, pilih As a Blank Report dan OK.

Melalui Field Explorer pada bar kanan layar (bila tidak muncul, panggil melalui menu Crystal Report - Field Explorer) klik kanan Database Field lalu pilih Database Expert. Klik tanda + pada opsi Create New Connection dan pilih OLE DB(ADO), lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next, isikan sesuai konfigurasi database SQL Server anda (dalam hal ini saya menggunakan Integrated Security) dan klik Next lalu Finish.

Pada tab Data, drag / pindahkan tabel tbl_buku dan tbl_kategori ke sisi kanan (Selected tables), Lihat contoh gambar dibawah:



Kemudian pada tab link buat penghubung (link) antara field komik di tbl_buku dengan id di tbl_kategori. Lihat gambar:



Melalui Field Explorer, klik kanan di Parameter Fields dan pilih New. Pada Field Nama isikan kategori dan klik OK. Dengan cara yang sama, klik kanan di Parameter Fields dan pilih New. Pada Field Nama kali ini isikan pengarang.

Klik kanan di form laporan pilih Report - Selection Formula - Record. Pada parameter editor, tarik field kategori di tbl_kategori dan samakan dengan parameter kategori lalu tarik field kategori di tbl_buku dan samakan dengan field id di tbl_kategori serta tarik field pengarang di tbl_buku dan samakan dengan parameter pengarang. Lihat contoh berikut :



Buat form laporan seperti gambar berikut :



Kemudian Buat Form Baru dan berinama formlaporan.vb dan drag CrystalReportViewer di toolbox ke Form. Melalui Propertiesnya, pilih ReportSource dengan laporan yang kita buat tadi.

Untuk di Form1 Buat seperti berikut :



Untuk kode program sebagai berikut (Kode Untuk tombol Enter) :   

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
     formlaporan.laporanparameter1.SetParameterValue("kategori", TextBoxKategori.Text)  
     formlaporan.laporanparameter1.SetParameterValue("pengarang", TextBoxPengarang.Text)   
 formlaporan.Show()   
 End Sub  

Program diatas meminta nama kategori dan pengarang yang kita inginkan dibuatkan laporannya. Tombol Enter mengirim 2 parameter kategori dan pengarang ke Form Laporan.

Untuk memudahkan anda bisa download source code program di akhir postingan.  Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Download Disini.

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Di postingan Kali ini kita akan membuat laporan sederhana menggunakan Crystal Report, Crystal Report yang kita gunakan adalah versi yang dibundle bersama Visual Studio 2008.

Pertama-tama buat database di SQL Server dan beri nama testing. Kemudian buat tabel tbl_buku seperti berikut ini : (Script SQL dapat didownload di akhir postingan)

Buat project baru VB.Net 2008 lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :

 Imports System.Data.SqlClient  
 Public Module modulkoneksi  
 #Region "Deklarasi Variabel"  
   Public koneksi As SqlConnection = Nothing  
   Public cmd As SqlCommand = Nothing  
 #End Region  
 #Region "Fungsi Testing Koneksi Database"  
   Public Sub TestKoneksi()  
     Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     koneksi = New SqlClient.SqlConnection(connString)  
     Try  
       koneksi.Open()  
       koneksi.Close()  
     Catch ex As Exception  
       MessageBox.Show("Database Connection Error : " & ex.Message)  
     End Try  
   End Sub  
 #End Region  
 End Module  

Untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda.

Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan beri nama laporan.rpt (lihat gambar berikut)

 

Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.

Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.

Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :



Melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.



Buka Form1 dan melalui Toolbox cari CrystalReportViewer dan masukkan ke Form1. Melalui properties CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi. Run (F5) VB dan Report akan ditampilkan.

Anda Bisa Download Sample Program Disini

Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Biasanya salah satu aplikasi wajib dibuat saat belajar suatu bahasa pemrograman baru adalah membuat aplikasi kalkulator. Berikut ini adalah contoh kalkulator sederhana yang pernah saya buat, berikut adalah penampakan dari kalkulator ane...



Kalkulator ini sebenarnya hanyalah memindahkan logika dari kode VB 6 yang pernah saya buat ke VB.Net 2008 dan kodenya pun 99% mirip. Saya rasa tidak ada yang istimewa dari kalkulator ini, tapi lumayan lah buat nambah2in postingan di blog newbie kaya blog ini.

Anda juga bisa mendownload kode program aplikasi ini di link dibawah ini (kalau anda butuh sih).

Download disini

Notepad merupakan aplikasi text editor yang ringan dan kerap digunakan. Artikel ini akan membahas cara membuat aplikasi notepad sederhana dengan VB.Net 2008. Aplikasi yang saya buat ini memiliki tampilan seperti dibawah ini :



Aplikasi ini hanya aplikasi sederhana karena menu yang ditampilkan hanya sebatas file (new - open - save - exit), edit (undo - cut - copy - paste - select all), format (font) dan About (MyNotepad).

Kode program dari aplikasi ini dapat anda download melalui link di akhir artikel ini.

Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Masih tentang VB.Net 2008, kali ini saya ingin membahas proses save data di DatagridView ke Database. Metode yang saya pakai yaitu Save setiap baris DatagridView dengan melakukan looping baris perbaris.

Pertama-tama masukkan DatagridView ke dalam form dan buat atribut Readonly-nya menjadi True. Tambahkan tombol Cancel, Save, Edit dan Exit untuk Operasi data, untuk lebih mudahnya dibawah ini adalah tampilan dari program yang saya buat.

Untuk Database, anda buat sebuah database di SQL Server dengan nama testing kemudian jalankan kode SQL dibawah ini :

 CREATE TABLE tbl_buku  
 (  
   id int IDENTITY(1,1) NOT NULL PRIMARY KEY,  
   kategori varchar(50) NOT NULL,  
   judul varchar(100) NOT NULL,  
   pengarang varchar(100),  
   halaman varchar(100)  
 )  

Untuk lebih gampangnya, anda dapat  download source code program di akhir postingan ini.

Download Source code Program 

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?

Anda dapat mendownload aplikasi ini disini.

Kali ini saya hendak membuat aplikasi sederhana tentang fungsi terbilang dengan bahasa indonesia di VB.Net 2008. Fungsi terbilang merupakan fungsi untuk mencetak kalimat yang mendeskripsikan suatu bilangan. Okay, pertama-tama buat tampilan sederhana program kita seperti berikut ini :

Apabila sudah, masukkan kode fungsi berikut ini:

   Public Function Terbilang(ByVal nilai As Long) As String  
     Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _  
     "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}  
     If nilai < 12 Then  
       Return " " & bilangan(nilai)  
     ElseIf nilai < 20 Then  
       Return Terbilang(nilai - 10) & " belas"  
     ElseIf nilai < 100 Then  
       Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)  
     ElseIf nilai < 200 Then  
       Return " seratus" & Terbilang(nilai - 100)  
     ElseIf nilai < 1000 Then  
       Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)  
     ElseIf nilai < 2000 Then  
       Return " seribu" & Terbilang(nilai - 1000)  
     ElseIf nilai < 1000000 Then  
       Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)  
     ElseIf nilai < 1000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)  
     ElseIf nilai < 1000000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)  
     ElseIf nilai < 1000000000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)  
     Else  
       Return ""  
     End If  
   End Function  

Fungsi diatas adalah inti dari aplikasi kita ini. Untuk menempatkan kalimat kita menggunakan tool label dengan properti Autosize dibuat False serta borderstyle dibuat Fixed3D.

Untuk memudahkan anda, anda dapat mendownload aplikasi sederhana ini di link dibawah / di akhir postingan.

Download klik disini.

Baca juga di blog ini :
Bisnis Internet untuk Pemula yaitu Paid to Click / Klik dapat Uang

Anda dapat mendownload aplikasi ini disini.

Untuk membuat aplikasi di VB.Net 2008 yang menggunakan database, maka kita terlebih dahulu harus membuat koneksi yang menghubungkan database dengan VB.Net 2008. Kali ini saya akan memberi contoh sederhana menghubungkan VB.Net 2008 dengan database SQL Server 2008.

Pertama-tama buatlah sebuah database kosong dan beri nama mydb. Nama database boleh berbeda.

Jalankan program VB.Net 2008 dan buat project baru (File - New Project) dan beri nama koneksi kemudian melalui menu (project - add new item) pilih module, kemudian ketikkan baris2 kode berikut.

 Imports System.Data.SqlClient  
 Module Module1  
   Public Class koneksi  
     Public Function buatkoneksi() As Boolean  
       Dim conn As SqlConnection = Nothing  
       Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=mydb;Integrated Security=True"  
       conn = New SqlConnection(connString)  
       conn.Open()  
       If conn.State <> ConnectionState.Open Then  
         Return False  
       Else  
         Return True  
       End If  
     End Function  
   End Class  
 End Module  

Contoh diatas saya menggunakan metode trusted connection. Ganti nilai dari Data Source dengan nama server untuk SQL Server anda atau nama instance name SQL Server anda. Dalam hal ini server saya bernama ZHENLONK-342572, sedangkan Initial Catalog adalah nama database yang digunakan.

Bila sudah, kemudian klik form1.vb pada tab solution explorer di sebelah kanan aplikasi. Tambahkan tombol (button) dan ganti text Button1 tersebut menjadi Test Koneksi. klik 2 kali tombol tersebut dan ketikkan kode berikut.

 Dim mykoneksi As New koneksi  
 If Not mykoneksi.buatkoneksi() Then  
    MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Info Program")  
 Else  
    MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Info Program")  
 End If  

Tambahkan 1 tombol untuk exit / keluar dari program dan ketikkan kode berikut.

    Me.Close()

Tampilan akhir aplikasi kita akan tampak seperti berikut ini.

Tampilan Akhir Program

Klik tombol Test Koneksi, bila Setting nama server dan database benar, maka tampil message box Koneksi Berhasil.

Download Source code aplikasi disini

Baca juga di blog ini :
Bisnis Internet untuk Pemula yaitu Paid to Click / Klik dapat Uang