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
Tidak ada komentar:
Posting Komentar