Cara Cetak/Print DataGridView (DataGridView To PrintPreview) VBNET

Berikut ini adalah contoh melakukan PrintPreview dari data yang ada di DataGridView secara langsung / apa adanya tanpa perantara (database/table). VBNET 2008/2010 memang tidak menyediakan fitur agar anda dapat melakukan PrintPreview secara langsung, maka dari itu harus ada sedikit explorasi sintak. Sebenarnya anda dapat melakukannya dengan event .DrawToBitmap() yang kemudian dikirimkan ke PrintDocument1 . Ok Langsung saja ya ini dia screenshot nya :

 Download Full Source Project

Semoga bermanfat dan membatu anda dalam membangun aplikasi. Terimakasih

Tags:
cara cetak datagridview secara langsung, print datagridview vbnet, printpreview datagridview vbnet, function printpreview datagridview net, membuat printable datagridview vbnet, direct print or preview datagridview vbnet

Cara Cepat Membuat/Menulis SQL Query Pada Sintak/Coding VBNET

Untuk menampilkan data ke dalam datagridview/listview/combobox atau menginginkan data yang di-double click dari grid tampil ke textbox, biasanya anda menulis sintak sql query-nya di coding dan menyimpannya dalam variable, contoh saya punya query yang cukup panjang seperti dibawah ini:

Dim v_sql As String

v_sql = "SELECT A.kd_cab, D.cabang, A.user_id, "+ _

"A.user_name, A.dept_id, B.dept_name, A.jabatan_id, " +_

"C.jabatan_name, A.descr" + _

"FROM dbo.MS_USER AS A INNER JOIN dbo.MS_DEPARTEMEN " + _

"AS B ON A.dept_id = B.dept_id INNER JOIN dbo.MS_JABATAN " + _

"AS C ON A.jabatan_id = C.jabatan_id AND B.dept_id = C.dept_id " + _

"INNER Join dbo.im_branch AS D ON A.kd_cab = D.kd_cab" +_

"WHERE (A.kd_cab = '" + TxtCabang.Text + "') AND " + _

"(A.dept_id = '" + TxtDepartemen.Text +"') AND " + _

"(A.rec_status = 1)"

Yang membuat lama adalah melakukan formating-nya kan? anda harus menambahkan kutip dua (") lalu plus (+) lalu Underscore (_) lalu Enter dan seterusnya.. banyangkan jika sql query-nya lebih panjang lagi?
bisa 1/2 jam anda melakukan hal yang sama. sql query diatas memerlukan parameter/kondisi yaitu : kode cabang=TextCabang.Text, kode departemen=TextDepartemen.Text. Salah satu cara untuk mengatasi ini adalah membuat VIEW maupun STORED PROCEDURE di Database-nya, sehingga pemanggilan di program/coding akan sangat pendek. Contoh anda telah membuat view dan stored procedure :

1.VIEW

Dim v_sql As String

v_sql = "SELECT * FROM (SELECT * FROM VIEW_DATA) AS DJIESOFT WHERE kd_cab = '" + TxtCabang.Text + "' AND dept_id = '" + TxtDepartemen.Text + "'"

2.STORED PROCEDURE

Dim v_sql As String

v_sql = "EXEC SP_DATA '" + TxtCabang.Text + "','" + TxtDepartemen.Text + "'"

Selain dua cara tersebut, saya mempunyai cara yang simple yaitu Copy-Paste sql query yang panjang itu langsung ke sebuah textbox kosong dengan property .MultiLine=True , .Visible=False (agar tidak tampil di form) dan .Name=TxtSQL.Text. Jadi Anda tidak perlu membuat VIEW atau STORED PROCEDURE lagi.

Setelah itu saya ubah bagian yang ingin dijadikan parameter/kriteria dengan format string yang sudah saya jelaskan di-SINI. Untuk memasukan ke variable-nya pun sangat pendek/mudah, contoh :

Dim v_sql As String

v_sql = String.Format(TxtSQL.Text, TxtCabang.Text, TxtDepartemen.Text)

Semoga apa yang saya tulis dapat bermanfaat untuk anda dalam programming Visual basic.NET khusunya. Terimakasih

Tags:

tips mempercepat membuat coding vbnet, cara mudah memaut sintak di bent, tutorial vbnet, dasar dasar vbnet, solusi untuk sql query yang panjang, panduan mudah belajar sql vbnet ,solusi menulis sql query yang panjang pada coding vbnet

Cara Menggunakan IF THEN ELSE di Ms.SQL Server Database

IF THEN ELSE pun dapat kita lakukan di ms.sql server, sehingga kita dengan adanya pemilihan kondisi ini anda akan lebih leluasa lagi memainkan SQL Query sesuai seiring dengan kasus yang semakin kompleks, saya buatkan contoh sederhana seperti ini :

DECLARE @nilai AS FLOAT

SET @nilai=40

IF (@nilai>=50)

  BEGIN

    SELECT 'Nilai >= 50' ASHasil

  END

ELSE

  BEGIN

    SELECT 'Nilai < 50' ASHasil

  END

Contoh lainnya adalah :

IF (EXISTS(SELECT * FROM M_USER WHERE user_name='DJIESOFT'))

  BEGIN

    SELECT 'Data User Ada'

    --QUERY ANDA JIKA USER ADA ....

  END

ELSE

  BEGIN

    SELECT 'Data User Tidak Ada'

    --QUERY ANDA JIKA USER TIDAK ADA ....

  END

Selamat mencoba dan semoga bermanfaat ya..

Tags:

if then else di sqlserver, cara menggunakan IF di database, kondisi if then di sql, if.. else.. in sqlserver, cara mudah implementasi kondisi if then else sqlserver, contoh if then sql server

Cara Looping dan Membuat Virtual Table di Ms.SQL Server Database

Berikut ini adalah contoh Perulangan/Looping sekaligus bagaimana carana membuat table virtual di ms.sql server. Saya buat contoh yang sederhana saja yaitu looping ke table M_USER dimana setiap row yang dibaca akan ditambahkan NOMOR URUT.

--variable untuk menampung data

DECLARE @no_urut AS FLOAT

DECLARE @user_iD AS VARCHAR(50)

DECLARE @user_name AS VARCHAR(50)

--isi nilai awal

SET @no_urut=0

SET @user_id=''

SET @user_name=''

--Select Table dan membuat table virtual

DECLARE table_user CURSOR FOR --variable untuk table virtual

SELECT user_id, user_name FROMM_USER ORDER BYUSER_NAME ASC

OPEN table_user --open table virtual

--isi row/move row next

FETCH NEXT FROM table_user INTO@user_id,@user_name

--mulai looping ke table virtual

WHILE @@FETCH_status=0

  BEGIN

      SET @no_urut=@no_urut+1

       --tampilkan data

      SELECT @no_urut AS No,@user_id AS ID,@user_name AS Name

       --isi row/move row next

      FETCH NEXT FROM table_user INTO@user_id,@user_name  

  END

CLOSE table_user --wajib close table virtual

DEALLOCATE table_user --wajib remove dari memory

Hasil / output dari query tersebut adalah sebagai berikut :

Nah selanjutnya anda bisa mengembangkan query diatas sesuai dengan kebutuhan dan keperluan anda, misalnya setelah sintak : SET @no_urut=@no_urut+1 , anda dapat sisipkan perintah INSERT, UPDATE atau DELETE dan lain sebagainya. Semoga tulisan saya bermanfat, selamat mencoba.

Tags:

cara looping di sqlserver, cara do while atau for next di sql server database, contoh membuat table virtual di sqlserver, how to create virtual table in sqlserver, membuat perulangan / looping di database sqlserver

Membuat/Deklarasi (Declare) Variable di Ms.SQL Server Database

Deklarasi variable itu tidak hanya bisa dilakukan di aplikasi saja, tetapi ms.sql server pun bisa melakukannnya. Biasanya orang yang sering membuat dan mengolah data dengan Stored Procedure pasti sudah vamiliar/biasa dengan variable dalam database, saya akan coba uraikan sedikit contoh-nya (dasar dasar) seperti dibawah ini :

DECLARE @var_nilai AS VARCHAR(50) --deklarasi variable

SET @var_nilai='DJIESOFT' --isi variable manual

SELECT @var_nilai --tampilkan value

SELECT @var_nilai=user_name FROM M_USER WHERE user_id='ksr06' --isi variable dari table

SELECT @var_nilai --tampilkan value

SELECT * FROM M_USER_LOGIN WHERE user_name=@var_nilai --contoh penggunaan variable

Sama halnya dengan variable di aplikasi, variable berfungsi untuk menyimpan nilai dengan type data yang sama. Semoga Bermanfaat!

Tags:

cara delarasi variable di sqlserver, declare di sqlserver, cara membuat variabe di database, tutorial sql server, query untuk membuat variable, how to create variable database, declare variable as datatype

Cara Membuat Paging Data di DataGridView VBNET

Banyak cara untuk mengatasi loading data yang banyak sehingga dapat menyebabkan komputer nge-hang/lambat, cara paling mudah adalah membatasi jumlah data dari sql query-nya misalnya memakai "SELECT TOP 100", jadi hanya 100 data yang ditampilkan di grid sedangkan untuk mencari data yang ke 101 samapi akhir bisa menggunakan pencarian data "WHERE" dengan tetap menggunakan "SELECT TOP 100". Kali ini saya akan berbagi cara lain yaitu dengan tehnik Paging (halaman). Misalnya ada data 100 row, saya ingin data tampil di setiap halaman 30 row, berarti akan akan tersedia 4 halaman (3 halaman=30 Row dan 1 halaman=10 Row sisanya). Saya telah membuat contoh aplikasi-nya dengan hanya menggunakan DataAdapter saja. Saya menggunakan database Ms.Access Northwind sebagai sumber data-nya.

Jumlah semua data = 9 Row

Row/Page = 4 Berarti Akan Ada 3 Halaman (4+4+1=9)

Halaman 3 Terakhir (1 Row)

Semoga tulisan ini bermanfaat dan dapat membantu anda dalam membangun aplikasi yang flexible dan good performance. Jangan LUPA kasih Comment ya .... Terimakasih

Download Full Source Project
Password : djiesoft.blogspot.com

Tags:

cara paging data di vbnet, cara membuat paging di datagidview, tehnik paging lisview, vbnet paging data, cara paging rows vbnet,  How to Paging in DataGridView,Data Grid View Paging in VB.Net,Cara Melakukan Paging Datagrid di VB.Net,Teknik Paging menggunakan Table Adapter, cara membuat halaman/paging recordset vbnet

Cara Mengubah Icon Button (New,Save,Cancel,Delete,dll) Secara Dinamis VBNET

Saya ingin berbagi tips dalam mengubah icon icon pada button standard (new, save, cancel, delete, find, close dan sebagainya). Cara lama/classic biasanya anda mengubah satu satu icon button disetiap form atau biasanya anda buat dulu button yang sudah ada icon-nya kemudian anda copy paste ke form lain. Masalahnya jika anda ingin mengubah icon bagaimana? berarti anda harus mengubah lagi satu satu atau copy replace lagi ke semua form (cape dan membuang waktu). Cara berikut ini adalah cara saya sendiri yang bisa dibilang semi dinamis untuk mengubah icon dengan memanfaatkan ImageList.

Buatlah satu form khusus untuk menyimpan ImageList yang nantinya icon icon pada ImageList tersebut akan dipanggil secara otomatis ke setiap button pada semua form anda. Jadi jika anda ingin mengubah salah satu icon cukup ubah icon di ImageListnya saja karena semua icon button di semua form anda bersumber dari satu ImageList ini. Dalam kasus ini saya ambil contoh meng-add icon dengan urutan : New, Save, Cancel, Delete, Find, Close (lihat gambar diatas). Kemudian buat sebuah public sub untuk menerapkan icon icon tersebut ke form yang anda kehendaki :

Public Sub djie_change_icon(ByValParamArray p_button() AsButton)

    For i As Short = 0 To p_button.Length - 1

       Ifp_button(i) IsNot NothingThen

           p_button(i).Image = Form_icon.ImageList1.Images(i)

           p_button(i).ImageAlign = ContentAlignment.MiddleLeft

       End If

    Next

End Sub

Pada design form anda tidak usah mengubah icon button (biarkan saja), cukup panggil function diatas pada event form_load untuk mengubah icon button pada form yang bersangkutan, contoh :

Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

    'Urutan New, Save, Cancel, Delete, Find, Close

    Calldjie_change_icon(Button_new, Button_save, Button_cancel, Button_delete, Button_find, Button_close)

End Sub

 

Jika misalkan di form lain button nya tidak seragam, misalnya tidak ada tombol delete dan find, anda harus tetap mengirimkan parameter ke function tersebut dengan jumlah yang sama agar urutan icon tidak salah (gunakan/kirim parameter Nothing untuk icon yang tidak tersedia), Contoh :

Private Sub Form2_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

   'Urutan new, save, cancel, delete (tidak ada), find (tidak ada), close

   Calldjie_change_icon(Button_new, Button_save, Button_cancel, Nothing, Nothing, Button_close)

End Sub

Kedepannya anda bisa saja membuat imagelist lebih dari satu dengan icon yang berbeda beda, jadi nanti dapat dipilih mau icon pack yang mana? atau ditampilkan ke menu setting->icon. Semoga dapat bermanfaat untuk anda dan menjadi inspirasi untuk lebih membuat trik trik yang lebih kreatif dan jauh lebih hebat  lagi.

Tags:
change icon button vbnet, tips dan trik vbnet, cara mengubah icon secara dinamis, cara mengbah icon vbnet, imagelist tutorial