VB.NET with SQLServer

Database Tutorial

Seperti yang sudah saya bilang di artikel sebelumnya disini bahwa VB.NET tidak hanya dapat dikoneksikan dengan Microsoft access saja, namun bisa dengan database yang lainnya juga. Karena SQLServer merupakan produk dari mircosoft juga jadi Visual Studio sudah mensuportnya dengan penuh untuk melakukan koneksi ke SQLServer.. Yuk kita coba membuat koneksi antara VB.NET dengan SQLServer,1. Buka SQLserver nya dan login, perhatikan gambar berikut :

2. Saya anggap anda sudah familiar dengan SQLServer 2005, jika belum silahkan serching ke mbah google terlebih dahulu tentang bagaimana cara mensetting sqlserver 2005 nya.. :D (* Soalnya saya belum sempat membuat tutorialnya :D,, so iyeu.. :D) 3. Setelah anda login buatlah sembarang database misal dengan nama ari_coba, lihat gambar berikut :

4. buatlah table baru dengan nama mahasiswa isi fieldnya sebagai berikut :

5. Isikan beberapa data ke dalam tabel mahasiswa tersebut.
6. Lalu buka visual studionya dah.. dan create new project tentunya pilihnya yang Visual Basic.NET yah ?? :D
7. Lalu design form nya kurang lebih sebagai berikut lah :

8. Lalu coding syntak berikut :

   1: Imports System.Data.SqlClient

   2: Public Class Form1

   3:     Dim conn As SqlConnection

   4:     Sub bindDatabaseToCombo()

   5:         Dim sql = "EXEC sp_databases"

   6:         Dim dt As New DataTable

   7:         Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)

   8:         da.Fill(dt)

   9:         Dim i As Integer

  10:         cmbDatabase.Items.Clear()

  11:         For i = 0 To dt.Rows.Count - 1

  12:             cmbDatabase.Items.Add(dt.Rows(i).Item(0))

  13:         Next

  14:     End Sub

  15:     Sub bindTableToCombo()

  16:         Dim sql = "Use " & cmbDatabase.Text & "; EXEC sp_tables @table_name = '%',@table_owner = 'dbo',@table_qualifier = '" & cmbDatabase.Text & "';"

  17:         Dim dt As New DataTable

  18:         Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)

  19:         da.Fill(dt)

  20:         Dim i As Integer

  21:         cmbTable.Items.Clear()

  22:         For i = 0 To dt.Rows.Count - 1

  23:             cmbTable.Items.Add(dt.Rows(i).Item(2).ToString())

  24:         Next

  25:     End Sub

  26:     Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click

  27:         If txtServerName.Text = "" Then

  28:             MessageBox.Show("Isi dahulu Nama Servernya !!", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  29:             txtServerName.Focus()

  30:             Exit Sub

  31:         Else

  32:             Try

  33:                 Dim connStr As String = "Data Source=" & txtServerName.Text & ""

  34:                 If chkWindows.Checked = True Then

  35:                     connStr &= ";Integrated Security=True"

  36:                 Else

  37:                     If txtUsername.Text = "" Or txtPassword.Text = "" Then

  38:                         MessageBox.Show("Isi Username dan passwordnya !!", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  39:                         txtUsername.Focus()

  40:                         Exit Sub

  41:                     Else

  42:                         connStr &= ";User Id=" + txtUsername.Text + ";Password=" + txtPassword.Text

  43:                     End If

  44:                 End If

  45:                 conn = New SqlConnection(connStr)

  46:                 conn.Open()

  47:                 MessageBox.Show("Koneksi Sukses", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  48:                 bindDatabaseToCombo()

  49:             Catch ex As Exception

  50:                 MessageBox.Show("Error : " & ex.Message)

  51:             End Try

  52:         End If

  53:     End Sub

  54:  

  55:     Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click

  56:         conn.Close()

  57:         MessageBox.Show("Koneksi Di Tutup", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  58:     End Sub

  59:  

  60:     Private Sub chkWindows_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWindows.CheckedChanged

  61:         If chkWindows.Checked = True Then

  62:             Panel1.Visible = False

  63:         Else

  64:             Panel1.Visible = True

  65:         End If

  66:     End Sub

  67:  

  68:     Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click

  69:         If cmbDatabase.Text = "" Then

  70:             MessageBox.Show("Pilih tabelnya terlebih dahulu !!", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  71:         Else

  72:             If conn.State = ConnectionState.Closed Then

  73:                 MessageBox.Show("Belum ada koneksi !!", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  74:             Else

  75:                 If cmbTable.Text = "" Then

  76:                     MessageBox.Show("Pilih dahulu tablenya", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  77:                 Else

  78:                     Dim sql = "Select * From "

  79:                     sql &= cmbTable.Text

  80:                     Dim dt As New DataTable

  81:                     Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)

  82:                     da.Fill(dt)

  83:                     DataGridView1.DataSource = dt

  84:                 End If

  85:             End If

  86:         End If

  87:     End Sub

  88:     Private Sub cmbDatabase_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDatabase.SelectedIndexChanged

  89:         If conn.State = ConnectionState.Closed Then

  90:             MessageBox.Show("Belum ada koneksi !!", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

  91:         Else

  92:             bindTableToCombo()

  93:         End If

  94:     End Sub

  95: End Class

 Sumber: http://netvbnet.blogspot.com/2011/05/vbnet-with-sqlserver.html

Pengenalan Dasar Tentang Visual Basic 6

 

Gambar diatas adalah tampilan awal saat kalian pertama kali membuka Visual Basic 6.0. terus,apa yg kalian pilih ?? seperti gambar diatas,kita pilih Standard EXE untuk membuat sebuah project / aplikasi yg berbasis desktop.Terus,gambar yg tampil setelah kita pilih Standard EXE seperti apa ??

Nah,itu dia tampilan awalnya.Disana udah saya berikan kotak dengan berbeda – beda warna agar teman – teman dapat melihat perbedaan dan masing – masing fungsinya.Neh keterangan dari warna – warnanya :

1. Merah : Menu Bar
2. Hijau : Toolbar
3. Kuning : Project Explorer
4. Biru : Properties Page
5. Pink : Layar Kerja

Sekarang,akan saya jelaskan Fungsi dari masing – masing bagian diatas.

A. Menu Bar

Menu Bar itu apa sih ?? Dari menu bar ini sebenarnya tidak jauh berbeda dengan Ms.Word atau beberapa product dari Microsoft,jadi Fungsinya tidak jauh beda.Kita bisa save project kita,open project kita,menjalankan project kita dan lain – lain.

Namun,ada sedikit yg berbeda,saat kalian lihat di Menu Bar ada yg namanya Add-Ins.Fungsinya apa sih ?? dari sana kita bisa membuat Database yg langsung terkoneksi dengan Visual Basic.

B. Toolbar

Toolbar itu apa sih ?? Sesuai dari pengertiannya,Tool = alat – alat jadi toolbar adalah bagian yg menyediakan peralatan / object apa sajah yg bisa kita gunakan.Disana ada yg namanya Command Button,Text Box,Progress Bar dan Lainnya.

C. Project Explorer

Sekarang masuk dari bagian intinya.Project Explorer disini berfungsi untuk mengetahui,ada apa saja dari project yg telah kita buat, termasuk ada berapa form yg telah kita buat selama masa pengerjaan project terserbut.

D. Properties Page

Masuk di properties page.Sesuai dengan namanya,kita disini dapat merubah fungsi / name / properties dari sebuah object – object yg telah kita inputkan kedalam sebuah project kita.

E. Layar Kerja

Ini adalah tempat dimana kita mengerjakan semua project kita namanya adalah FORM,nanti ada lagi namanya Data Report,Data Environmet dll.

Bagaimana ?? Jadi teman – teman sekarang dapat mengerti dan mengerjakan beberapa Contoh Program Sederhana Menggunakan Visual Basic ini bukan ?? Semoga artikel sederhana saya ini dapat memberikan sebuah ilmu baru untuk teman – teman.Sekian dulu mengenai Pengenalan Dasar Tentang Visual Basic 6.

Sumber: http://aldyputra.net/2011/09/pengenalan-dasar-tentang-visual-basic-6/