Web.config adalah file konfigurasi pada aplikasi web ASP.NET. Salah satu konfigurasi yang dapat di simpan pada file Web.config adalah Connection String.
Berikut adalah contoh konfigurasi Connection String pada file Web.config:
- <configuration>
- <connectionstrings>
- <add name="AccessConnectionString"
- connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;
- Data Source=C:\Inetpub\wwwroot\hrd\App_Data\karyawan.mdb"
- providername="System.Data.OleDb">
- </add>
- </connectionstrings>
- </configuration>
Contoh file Web.config di atas berisi konfigurasi connection string ke database file Microsoft Access. File database access dengan nama file Karyawan.mdb yang disimpan di folder C:\Inetpub\wwwroot\hrd\App_Data\.
Contoh penggunaan connection string pada aplikasi dapat dilihat pada contoh script berikut:
- Imports System.Data
- Imports System.Data.OleDb
-
- Partial Class login
- Inherits System.Web.UI.Page
-
- Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
- Dim strConnection As String = _
- ConfigurationManager.ConnectionStrings("AccessConnectionString").ConnectionString
- Dim strNik As String
- Dim strPwd As String
- Dim strQuery As String = "SELECT * FROM karyawan WHERE NIK='" & Me.NIK.Text & "';"
- Dim myConnection As New OleDbConnection(strConnection)
- Dim myCommand As New OleDbCommand(strQuery, myConnection)
- myConnection.Open()
- Dim myDataReader As OleDbDataReader = myCommand.ExecuteReader()
- strNik = ""
- strPwd = ""
- While myDataReader.Read()
-
- strNik = myDataReader.GetString(0)
- strPwd = myDataReader.GetString(5)
-
- End While
- myDataReader.Close()
- myConnection.Close()
- If strNik = "" Then
- Me.Label1.Text = "NIK tidak ada!"
- Else
- If strPwd <> Me.PASSWORD.Text Then
- Me.Label1.Text = "Password anda salah!"
- Else
- Me.Label1.Text = "Login sukses!"
- End If
- End If
-
- End Sub
- End Class
Contoh script di atas menunjukkan even onClick pada cmdOK. Pada saat user mengklik tombol OK maka akan dilakukan proses sebagai berikut:
- Deklarasi variabel yang digunakan pada sub cmdOK_Click.
- Melakukan koneksi ke database file Ms-Access.
- Membuka tabel Karyawan dengan perintah Select.
- Membaca isi data tabel Karyawan sesuai kriteria di perintah Select query.
- Mengambil data NIK dan Password dan menyimpan pada variabel.
- Membandingkan variabel Password dengan password yang diisi oleh user.
- Jika NIK tidak ditemukan pada tabel Karyawan tampilkan pesan: "NIK tidak ada!"
- Jika Password salah tampilkan pesan: "Password anda salah!"
- Jika Password betul tampilkan pesan: "Login sukses!"
- <configuration>
- <connectionstrings>
- <add name="AccessConnectionString"
- connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;
- Data Source=C:\Inetpub\wwwroot\hrd\App_Data\karyawan.mdb"
- providername="System.Data.OleDb">
- </add>
- </connectionstrings>
- </configuration>
- Imports System.Data
- Imports System.Data.OleDb
- Partial Class login
- Inherits System.Web.UI.Page
- Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
- Dim strConnection As String = _
- ConfigurationManager.ConnectionStrings("AccessConnectionString").ConnectionString
- Dim strNik As String
- Dim strPwd As String
- Dim strQuery As String = "SELECT * FROM karyawan WHERE NIK='" & Me.NIK.Text & "';"
- Dim myConnection As New OleDbConnection(strConnection)
- Dim myCommand As New OleDbCommand(strQuery, myConnection)
- myConnection.Open()
- Dim myDataReader As OleDbDataReader = myCommand.ExecuteReader()
- strNik = ""
- strPwd = ""
- While myDataReader.Read()
- strNik = myDataReader.GetString(0)
- strPwd = myDataReader.GetString(5)
- End While
- myDataReader.Close()
- myConnection.Close()
- If strNik = "" Then
- Me.Label1.Text = "NIK tidak ada!"
- Else
- If strPwd <> Me.PASSWORD.Text Then
- Me.Label1.Text = "Password anda salah!"
- Else
- Me.Label1.Text = "Login sukses!"
- End If
- End If
- End Sub
- End Class
No comments:
Post a Comment