Menyambungkan Program ke Database SQL Server

Hai Bangsawan Tua ...... Dalam postingan kali ini saya akan membahas yang berkaitan dengan VB. VB adalah sebuah softwere yang digunakan para progremer untuk membuat sebuah program berbasis desktop maupun web.

VB juga bisa membuat program perkantoran, pertokoan dan segala jenis yang bergerak pada bidang jasa. Untuk membuat sebuah program pertokoan maupun perkantoran pasti dibutuhkan sebuah datasebe yang berguna sebagai tempat penyimpanan sebuah data. Nah dari masalah tersebut saya akan memberikan kode – kode yang berfungsi untuk menyambungkan program yang kita buat ke database (Database yang saya pakai menggunakan SQL Server).

Untuk menyambungkan program yang kita buat ke sebuah database diperlukan komponen yaitu Class dan Module.

Script untuk Class

Imports System.Data.SqlClient

Namespace Accesdata

    Public Class koneksidata

      

        Dim conect As New SqlConnection("Data source=[NAMA PC ANDA];initial catalog=[NAMA DATABASE ANDA]; integrated security=true;")

        Public Function open() As SqlConnection

            conect.Open()

            Return conect

        End Function

        Public Function close() As SqlConnection

            conect.Close()

            Return conect

        End Function

    End Class

End Namespace

Script untuk Module

Module Module1

    Public Function koneksi() As SqlClient.SqlConnection

        Dim con As SqlClient.SqlConnection

        con = New SqlClient.SqlConnection("Data source=[NAMA PC ANDA];initial catalog=[NAMA DATABASE ANDA]; integrated security=true;")

        Return con

        con = Nothing

    End Function

End Module

Selamat mencoba script diatas, jika mengalami kendala silahkan tinggalkan komen dibawah. Dan jangan lupa baca juga Cara Menyambungkan Program ke Database