Koneksi Database Menggunakan File.txt (Visual Basic 2008 + SQL Server 2005)

Karena ini pertama kalinya saya mengepost koneksi antara Visual Basic dengan SQL Server, Saya akan menjelaskan dengan rinci setiap kodingnya.

Kita mulai saja dengan membuat Databasenya terlebih dahulu. Kita buat Database Badminton.
----------------------------------------------------------------
Create Database Badminton on
(
   Name = 'Badminton',
   Filename = 'D:\Badminton.MDF'
)
Log on
(
   Name = 'Badminton_LOG',
   Filename = 'D:\Badminton_LOG.LDF'
)
-----------------------------------------------------------------

Koding diatas itu dinamakan Querry yang ada di SQL SERVER. Cara membuat Querry itu, Anda tinggal menekan lambang Querry yang ada disebelah kiri Atas Anda.
Querry diatas berfungsi untuk membuat Database baru yang bernama Badminton.

Keterangan :
Name = Berfungsi untuk membuat nama Databasenya.
Filename = Berfungsi untuk meletakan Databasenya.

Setelah itu, Buatlah File.txt dengan manual menggunakan Notepad. isinya berupa = MIMIN-PC|Badminton

MIMIN-PC adalah nama Data sourcenya. Anda bisa melihat nama Data source Anda masing-masing dengan mengklik kanan di My Computer dan menekan property.

Badminton adalah nama Database yang akan kita koneksikan ke Visual Basic.

Setelah itu, Sekarang kita merancang Form Visual basicnya. :

Keterangan :

1. Form = Name = frmutama.

2. Button = Name = btnconnection.

3. Progressbar = Name = psbloading.

Setelah membuat itu, letakkan imports dibawah ini diatas public class :

--------------------------------------------------------------------------

Imports System.IO

Imports System.Data.SqlClient

--------------------------------------------------------------------------

Setelah membuat itu, buatlah pendeklarasian seperti ini :

--------------------------------------------------------------------------

    Private fs As FileStream

    Private sr As StreamReader

    Private drecord() As String

    Private sql As String

    Private con As SqlConnection

--------------------------------------------------------------------------

Setelah mendeklarasikan, klik form lalu buat koding seperti ini :

--------------------------------------------------------------------------

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

        psbloading.Visible = False

    End Sub

--------------------------------------------------------------------------

Setelah membuat koding Form, maka selanjutnya membuat Button Connection :
--------------------------------------------------------------------------

Private Sub btnconnection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconnection.Click

        Try

            psbloading.Visible = True

            fs = New FileStream("D:\koneksi.txt", FileMode.Open)

            sr = New StreamReader(fs)

            While Not sr.EndOfStream

                drecord = sr.ReadLine.Split("|")

                sql = "Data Source=" & drecord(0) & "Initial Catalog=" & drecord(1) & "Integrated security=true"

            End While

            con = New SqlConnection(sql)

            MsgBox("Connection Berhasil", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Connection...")

            psbloading.Visible = False

        Catch ex As Exception

            MsgBox("Connection Gagal", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Error...")

        End Try

    End Sub

--------------------------------------------------------------------------

Selesai sudah cara mengkoneksi Visual basic dengan SQL Server

Apabila ada yang Anda tidak mengerti, silahkan tanya di bagian bawah di post ini, Saya akan mencoba menjawab pertanyaan Anda tersebut.

Sekian dan Terima kasih sudah membaca postingan ini :)