Koneksi Sql Server Dengan Keterangan "Koneksi Database Berhasil"

Pembuatan program tentunya tidak luput dari yang namanya database. Terdapat banyak jenis database yang dapat digunakan dalam pembuatan program. Kalau pada kesempatan sebelumnya saya telah memberikan tutorial bagaimana membuat koneksi database access dan koneksi database mysql pada kali ini saya akan memberikan Koneksi Sql Server Dengan Keterangan "Koneksi Database Berhasil". Langusng saja kita bahas bersama dibawah ini :

1. langkah pertama tentunya adalah dengan menyiapkan telebih dahulu databasenya dan buka Visual Studio 2013 buat project baru misal beri nama "KoneksiSqlServer".

2. Selanjutnya tambahkan "module" pada project, klik kanan pada project pilih "Add - Module" berikan terserah misalkan saja dengan nama "mdlKoneksi" seperti pada gambar dibawah ini.


3. Selanjutnya isikan code berikut pada module yang telah dibuat sebelumnya. Pada angka yang bergaris bawah "127.0.0.1" merupakan ip localhost anda dapat mengganti dengan ip yang digunakan oleh server yang dituju. Berikut adalah script untuk mdlKoneksi

Imports System.Data.Sql
Imports System.Data.SqlClient

Module mdlKoneksi
    Public koneksi As SqlConnection
    Public ds As DataSet  
    Public da As SqlDataAdapter
    Public rd As SqlDataReader
    Public cmd As SqlCommand
    Public ass As DataTable
    Public sql As String

    Public Sub KoneksiMySql()
        Try
            sql = "Data Source=127.0.0.1;Initial Catalog=krk;Persist Security Info=True;User ID=coba;Password=123"
            koneksi = New SqlConnection(sql)
            If koneksi.State = ConnectionState.Closed Then
                koneksi.Open()
                MsgBox("Koneksi Database Berhasil")
            End If
        Catch ex As Exception
            MsgBox("Koneksi database Gagal !!")
        End Try
    End Sub
End Module

4. Pada Form1 tambahkan button (name : "btnKoneksi", Text : "Test Koneksi")


5. Klik dua kali pada button "btnKoneksi" dan tambahkan code seperti pada gambar dibawah ini.

Public Class Form1

    Private Sub btnKoneksi_Click(sender As Object, e As EventArgs) Handles btnKoneksi.Click
        KoneksiMySql()
    End Sub
End Class

6. Simpan dan jalankan project anda tersebut. Jika koneksi database berhasil maka tampilan running nya adalah seperti pada gambar dibawah ini.


Demikianlah tutorial bagaimana caranya membuat suatu Koneksi Sql Server Dengan Keterangan "Koneksi Database Berhasil" semoga dapat bermanfaat dan berguna bagi kita semua. Tinggalkan pesan apabila penjelasan diatas belum paham atau ingin menanyakan sesuatu sekian dan terima kasih.

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Comments


EmoticonEmoticon