sett

Imports System.Data.SqlClient

Public Class Form1

    Private Sub BtnConnStr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnConnStr.Click
        Dim Conn As SqlConnection
        Dim ConnStr As String = "Data Source=IK-PC; Initial Catalog=Mhs; Integrated Security=SSPI;"

        Try
            Conn = New SqlConnection(ConnStr)
            Conn.Open()
            MsgBox("Koneksi ke : " & Conn.DataSource & vbCrLf & _
            "Database : " & Conn.Database & vbCrLf & _
            "WorkStationID : " & Conn.WorkstationId & vbCrLf & _
            "Connection String : " & Conn.ConnectionString, MsgBoxStyle.Information, "Connected")
            Conn.Close()
            Conn = Nothing
        Catch ex As Exception
            MsgBox("Database Error : " & ex.Message)
        End Try
    End Sub

    Private Sub BtnConnStrUsing_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnConnStrUsing.Click
        Dim ConnStr As String = "Data Source=IK-PC; Initial Catalog=Mhs; Integrated Security=SSPI;"

        Try
            Using Conn = New SqlConnection(ConnStr)
                Conn.Open()
                MsgBox("Koneksi ke : " & Conn.DataSource & vbCrLf & _
                "Database : " & Conn.Database & vbCrLf & _
                "WorkStationID : " & Conn.WorkstationId & vbCrLf & _
                "Connection String : " & Conn.ConnectionString, MsgBoxStyle.Information, "Connected dengan Using")
            End Using
        Catch ex As Exception
            MsgBox("Database Error : " & ex.Message)
        End Try
    End Sub

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

    End Sub
End Class