15.45
alie
Sebelumnya sudah di jelaskan koneksi string pada pembahasan sebelumnya dengan judul Koneksi String VB.NET 2010 sekarang penulis akan membagikan sedikit ilmu cara Koneksi String VB.NET 2010 dari App.Config. Berikut adalah tutorialnya :
Buka project yang sudah dibuat Membuat Project Baru di VB.NET 2010
Tambahkan Reference : klik kanan pada folder References + Add Reference seperti gambar berikut
Buka file App.Config dan ketikkan kode seperti berikut
Buat form seperti gambar dibawah ini
Setelah selesai menambahkan kode diatas, jalankan project dengan menekan tombol RUN. bila ada info Conncetion Open ! seperti gambar dibawah ini berarti sukses.
Buka project yang sudah dibuat Membuat Project Baru di VB.NET 2010
Tambahkan Reference : klik kanan pada folder References + Add Reference seperti gambar berikut
Pilih tab .NET + System.Configuration + OK lihat gambar berikut
Dibawah ini adalah tampilan isi References yang sudah di tambahkan System.configuration
Aktifkan file App.Config dengan cara klik kanan pada file App.Config pilih Include In Project seperti gambar di bawah ini
Berikut adalah tampilan App.Config yang sudah di include di dalam project
Untuk menyembunyikan kembali file yang ter-hidden klik tombol yang diberi tanda merah seperti gambar di bawah ini dan file yang tidak terhidden ada didalam kotak warna hijau
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
</startup>
<appSettings>
<add key="ConString" value="uid=sa;pwd=;database=Applications_test;server=."/>
</appSettings>
</configuration>
Buat form seperti gambar dibawah ini
Ketikkan kode berikut
Imports System.Data.SqlClient
Imports System.Configuration
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString As String
Dim cnn As SqlConnection
connectionString = ConfigurationManager.AppSettings("ConString").ToString()
cnn = New SqlConnection(connectionString)
Try
cnn.Open()
MsgBox("Connection Open ! ")
cnn.Close()
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try
End Sub
End Class
Setelah selesai menambahkan kode diatas, jalankan project dengan menekan tombol RUN. bila ada info Conncetion Open ! seperti gambar dibawah ini berarti sukses.
Membuat Project Baru di VB.NET 2010
