Koneksi SQL SERVER di VB .NET

Cara buat koneksi SQL SERVER di VB .NET:
1. Library yg dibutuhkan --> System.Data.SqlClient
Klo lum tau caranya sebelum Module/Class ketik Imports System.Data.SqlClient

2. Di dalam Module/Class siapkan variabel2nya
Langsung aja ketik :
Public con As SqlConnection
Public strkonek As String

3. Untuk koneksinya bisa diletakkan di dalam function/subroutine.
Caranya.... LAngsung aja ketik :
Public Sub konek()
Dim nama As String
nama = My.Computer.Name
Try
strkonek = "Data Source=" & nama & ";Initial Catalog=taspen;Integrated Security=True"
con = New SqlConnection(strkonek)
If con.State = ConnectionState.Closed Then con.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


Penjelasannya :
a. nama = My.Computer.Name --> mengambil nama dari komputer host/server sql untuk digunakan dalam Data Source dari strkonek,dg menggunakan cara tadi maka setiap kali pindah komputer tidak perlu merubah data sourcenya.
b. Data Source=" & nama & "; --> server dari database sql servernya.
c. Initial Catalog=taspen; --> nama databasenya, dalam contoh ini namanya taspen.
d. con = New SqlConnection(strkonek) --> menyimpan koneksi ke variabel con.
e. con.Open() --> membuka koneksi ke database.

4. Penggunaanya:
a. jika tadi pembuatan koneksinya menggunakan modul langsung aja panggil fungsinya. seperti :
Call konek()

b. jika menggunakan class jangan lupa ditambahkan nama kelasnya. Contohnya :
Call clsBahan.konek()

c. jika koneksinya dibuat pada class yang sama, tinggal memanggil nama fungsinya saja :
Call konek()

Print Preview dg data dr DataGridView menggunan VB .NET

Ini adalah contoh script untuk menampilkan laporan/print preview tanpa menggunakan cristal report atau report2 yang lain yang malah bikin repot.
Object yg dibutuhkan :
1. sebuah button dengan Caption/Text "Print Preview" atau bisa diganti sesuai selera anda.
2. sebuah PrintDocument.
3. sebuah DataGridView yang sudah berisi data2 yang diperlukan.
4. sebuah PrintPreviewDialog.
5. tentunya Object2 yg laen yg sebagai pendukung kyk form, dsb yg gk perlu disebutin.


Terus Secaranya......
1. Rancang tampilan print preview yang nanti akan ditampilkan
kode programnya pada event PrintPage dari PrintDocument :

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim xPos As Single = 0
Dim count As Single = 0
Dim count2 As Single = 0
Dim line As String = Nothing
Dim leftMargin As Single = e.MarginBounds.Left
Dim topMargin As Single = e.MarginBounds.Top
Dim myFont As Font = dgpegawai.Font
linesPerPage = e.MarginBounds.Height / myFont.Height()
Dim i As Integer
e.Graphics.DrawString("LAPORAN DATA PEGAWAI PT. TASPEN", dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), (topMargin + (count * myFont.Height)))
count = 2
e.Graphics.DrawString("NIK", dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Nama", dgpegawai.Font, Brushes.Black, (leftMargin + (7 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Jenis Kelamin", dgpegawai.Font, Brushes.Black, (leftMargin + (20 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Alamat", dgpegawai.Font, Brushes.Black, (leftMargin + (30 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Jabatan", dgpegawai.Font, Brushes.Black, (leftMargin + (43 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Departemen", dgpegawai.Font, Brushes.Black, (leftMargin + (53 * myFont.Height)), (topMargin + (count * myFont.Height)))
e.Graphics.DrawString("Golongan", dgpegawai.Font, Brushes.Black, (leftMargin + (60 * myFont.Height)), (topMargin + (count * myFont.Height)))
count = 4
For i = 0 To dgpegawai.RowCount - 1

yPos = (topMargin + (count * myFont.Height))
e.Graphics.DrawString(dgpegawai.Item(0, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (0 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(1, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (7 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(2, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (20 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(3, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (30 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(4, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (43 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(5, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (53 * myFont.Height)), yPos)
e.Graphics.DrawString(dgpegawai.Item(6, i).Value, dgpegawai.Font, Brushes.Black, (leftMargin + (60 * myFont.Height)), yPos)

count += 1

Next
End Sub

Saya gk perlu menjelaskan tiap bagian khan, klo iya, capek deh....
intinya itu di e.Graphics.DrawString yg digunakan untuk menulisi print previewnya, kita tinggal mengutak-atik posisinya saja.

2. Siapkan pengaturan tampilan print previewnya nanti, mengaturnya pd saat form load
kodenya:
Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call konek()
Call tampilpegawai()
Call aturdgpegawai()
PrintDocument1.DefaultPageSettings.Landscape = True
PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.95
End Sub

Untuk pengaturan yang lain anda bisa menambahkan sendiri.

3. Siapkan tombol agar bisa di klik.
Setelah bisa di klik maka kode yang dibutuhkan seperti ini:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub

Udah gitu aja, gampang khan, sekarang tinggal jalanin aja... Gak perlu pake report2 dh bisa bikin laporan dari data yang ada.
N met recode ajah....