Membuat Form Koneksi database SQL Server menggunakan VB.NET

Kali ini saya akan share cara membuat form koneksi ke SQL Server menggunakan VB.NET, saya menggunakan Visual Studio 2010 dan SQL Server 2005.

Buat lah form seperti tampilan berikut :
form ini sedikit berbada karena saya buat menggunakan komponen DotNetBar. untuk download DotNetBar bisa cari di google, atau hubungi saya via email, ada di contact person.

Saatnya Coding untuk form diatas :

Imports System.Data.SqlClient

Imports System.IO

Public Class frmKoneksi

 Private Sub frm_koneksi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim _read As FileStream
        Dim CollStream As New Collection
        If File.Exists(Application.StartupPath & "\App.app") Then
            _read = New FileStream(Application.StartupPath & "\App.app", _
                   FileMode.Open, _
                   FileAccess.Read, _
                   FileShare.Read)
            Dim wr1 As New StreamReader(_read)
            txtserver.Text = wr1.ReadLine

            txtdatabase.Text = wr1.ReadLine
            cmbAuthentication.Text = wr1.ReadLine
            txtuserid.Text = wr1.ReadLine
            txtpassword.Text = wr1.ReadLine
            wr1.Close()
        End If
    End Sub

Coding diatas adalah untuk membaca histori koneksi yang dilakukan oleh aplikasi yang disimpan di file "App.app" karena setiap disimpan akan menyimpan ke sebuah file.

 Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim _write As FileStream
        _write = New FileStream(Application.StartupPath & "\App.app", _
                    FileMode.Create, _
                    FileAccess.Write, _
                     FileShare.Read)
        Dim wr2 As New StreamWriter(_write)
        wr2.WriteLine(txtserver.Text)
        wr2.WriteLine(txtdatabase.Text)
        wr2.WriteLine(cmbAuthentication.Text)
        wr2.WriteLine(txtuserid.Text)
        wr2.WriteLine(txtpassword.Text)
        wr2.Close()
        _write.Close()

        server = txtserver.Text
        database = txtdatabase.Text
        uid = txtuserid.Text
        authentication = cmbAuthentication.Text
        pwd = txtpassword.Text
       Me.Close()
    End Sub
 

Private Sub cmbAuthentication_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbAuthentication.SelectedIndexChanged
        If cmbAuthentication.Text = "Windows Authentication" Then
            PanelAuthentication.Enabled = False
        Else
            PanelAuthentication.Enabled = True
        End If
    End Sub

NANTI DI KODING KONEKSINYA SEPERTI INI :

 Public server, provider, uid, protocol, database, pwd As String
 Dim _read As FileStream
 Dim CollStream As New Collection
        If File.Exists(Application.StartupPath & "\App.app") Then
            _read = New FileStream(Application.StartupPath & "\App.app", _
                   FileMode.Open, _
                   FileAccess.Read, _
                   FileShare.Read)
            Dim wr1 As New StreamReader(_read)
            server = wr1.ReadLine
            database = wr1.ReadLine
            authentication = wr1.ReadLine
            uid = wr1.ReadLine
            pwd = wr1.ReadLine
            wr1.Close()
        End If

        Try
            If authentication = "Windows Authentication" Then
                Sql = "server=" & server & ";initial catalog=" & database & ";Integrated Security=True"
            Else
                Sql = "server=" & server & ";database=" & database & ";user id=" & uid & ";password=" & pwd & ""
            End If
            con = New SqlConnection(Sql)
            con.Open()
            'MessageBox.Show("Koneksi ke Database berhasil", pesan, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exSQL As SqlException
            Call eror(exSQL, exSQL.ErrorCode, "SQL Error")
            frmKoneksi.ShowDialog()
        Catch ex As Exception
            Call eror(ex, Err.Number, "Application Error")
            frmKoneksi.ShowDialog()
        End Try

simpan aja disebuah sub.

Bila ada yang kurang jelas atau mau ditanyakan, silahkan tulis dikomentar, terima kasih.