Modal Pop Up – AJAX Control Toolkit – ASP.NET – Belajar, Tutorial, Contoh Program

Sebetulnya modul popup pemakaiannya hampir mirip dengan popup control, perbedaan utamanya adalah cara menampilkan kotak popup yang lebih dominan dan menguasai browser. Sehingga perhatian dari pengunjung benar-benar tertuju ke dalam isi kotak popup tersebut.

Contoh pemakaiannya adalah sebagai berikut :

Pastikan kamu sudah memiliki ASP.NET AJAX Control Toolkit. Jika belum kamu bisa download disini : ASP.NET AJAX Control Toolkit.

Buat solution baru dengan tipe ASP.NET AJAX Web Enabled Website. Kemudian buat folder bin (bisa dengan memilih menu add ASP.NET Folder -> bin saat diklik kanan pada solution explorer) didalam solution. Tambahkan file dll dari AJAX Control Toolkit kedalam folder bin. File AJAXControlToolkit.dll dapat kamu ambil dari folder SampleWebSite/Bin setelah diekstract dari paket hasil download.

Dalam contoh kali ini akan diimplementasikan pemakaian Modal Pop Up pada sebuah halaman web yang didalamnya akan menampilkan sebuah gambar berdasarkan data file pada sebuah folder. Langkah-langkahnya adalah sebagai berikut :

Buat solution baru dengan tipe ASP.NET AJAX Enabled Web Site.

Jangan lupa untuk menambahkan beberapa gambar pada folder solution tersebut.

Sekarang pada Script Manager tambahkan ListBox, sebuah komponen ModalPopUpExtender dan sebuah Panel yang didalamnya diisi dengan komponen Image dan Button.

Desain tampilannya adalah sebagai berikut :

Set Property CSSClass dalam Panel menjadi modalPopup

Buat File CSS Baru dengan memilih menu WebSite -> Add New Item dan pilih tipe file StyleSheet.

Didalam file css tersebut, ketikkan class CSS berikut :

.modalBackground
{
    background-color:Gray;
}

.modalPopup
{
    background-color:#ffffdd;
    border-width:3px;
    border-style:solid;
    border-color:Gray;
    padding:3px;
    width:150px;
    margin:0;
    position:static;
    float:left;
}

Kemudian modifikasi source code untuk halaman aspx sebagai berikut :

Pada tag head tambahkan perintah untuk menempatkan file CSS sebagai berikut :

	<link
        href="MyStyle.css"
        rel="stylesheet"
        type="text/css"
     />

Pada Code untuk Modal Popup ubah menjadi sebagai berikut :

                <cc1:ModalPopupExtender
                    ID="ModalPopupExtender1"
                    runat="server"
                    PopupControlID="Panel1"
                    TargetControlID="ListBox1"
                    DropShadow="true"
                    X="10" Y="10"
                    BackgroundCssClass="modalBackground">                 </cc1:ModalPopupExtender>

Kemudian double klik ListBox dan masukkan listing berikut :

Image1.ImageUrl = Server.MapPath(“~\”) & _
ListBox1.SelectedValue

Selanjutnya double klik bagian kosong dari halaman web, dan didalam prosedur page_load ketikkan listing berikut :

If Not IsPostBack Then
Dim di As New IO.DirectoryInfo _
(Server.MapPath(“~\”))
Dim fi As IO.FileInfo() = _
di.GetFiles(“*.jpg”)
Dim xTemp As String
For i As Integer = 0 To UBound(fi)
xTemp &= fi(i).Name & _
IIf(i = UBound(fi), “”, “,”)
Next
Dim xTemp2() As String = _
Split(xTemp, “,”)
ListBox1.DataSource = xTemp2
ListBox1.DataBind()
End If

Pada saat loading maka listbox akan diisi oleh seluruh file gambar yang ada dalam folder disolution

Berikutnya double klik Button dan ketikkan listing berikut :

Me.ModalPopupExtender1.Hide()

Nah sekarang bisa kamu test dengan menekan CTRL + F5. Hasilnya kurang lebih sebagai berikut :

Nah mungkin ada tambahan masukan atau pertanyaan? Silahkan posting comment dibawah. Semoga membantu, thanks

Pop Up Control – AJAX Control Toolkit – ASP.NET – Belajar, Tutorial, Contoh Program

Pop Up Control biasanya digunakan untuk menampung berbagai jenis komponen lain sebagai target pop up yang akan muncul saat komponen diklik. Konsep dari komponen ini sesungguhnya adalah sebagai jembatan dari dua buah komponen yang akan ditautkan prosesnya.

Contoh pemakaiannya adalah sebagai berikut :

Pastikan kamu sudah memiliki ASP.NET AJAX Control Toolkit. Jika belum kamu bisa download disini : ASP.NET AJAX Control Toolkit.

Buat solution baru dengan tipe ASP.NET AJAX Web Enabled Website. Kemudian buat folder bin (bisa dengan memilih menu add ASP.NET Folder -> bin saat diklik kanan pada solution explorer) didalam solution. Tambahkan file dll dari AJAX Control Toolkit kedalam folder bin. File AJAXControlToolkit.dll dapat kamu ambil dari folder SampleWebSite/Bin setelah diekstract dari paket hasil download.

Desain tampilan dengan menambahkan Update Panel pada Script Manager. Kemudian tambahkan Popup Control Extender dan 1 buah Textbox dan RadioButtonList. Desainnya adalah sebagai berikut :

Ubah kode program untuk PopupControlExtender pada source code sebagai berikut :

id=”PopupControlExtender1″
runat=”server”
targetcontrolid=”TextBox1″
PopupControlID=”RadioButtonList1″
Position=”Right”>

Kemudian ubah kode program pada RadioButtonList sebagai berikut :

Hasanudin

Imam Bonjol
Yos Sudarso
Diponegoro

Jangan lupa untuk mengeset property AutoPostBack pada RadioButtonList menjadi True

Kemudian klik double klik RadioButtonList dan masukkan kode berikut :

Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList1.SelectedIndexChanged
With Me.RadioButtonList1
If .SelectedIndex >= 0 Then
Me.PopupControlExtender1.Commit(.SelectedValue)
Else
Me.PopupControlExtender1.Cancel()
End If
End With
End Sub

Nah sekarang sudah bisa kamu jalankan dengan menekan Ctrl + F5. Hasilnya kurang lebih adalah sebagai berikut :

Nah mungkin ada tambahan masukan atau pertanyaan? Silahkan posting comment dibawah. Semoga membantu, thanks

Pencarian Data – ASP.NET

<< Sebelumnya : Show Detail Data

Nah ini dia hal yang paling penting disetiap aplikasi berbasis database. Pencarian data sangatlah penting untuk menemukan data untuk kemudian dimanipulasi dengan DML atau membantu user untuk menemukan data spesifik berdasarkan kriteria yang diharapkan. Hal ini sangat berguna ketika data yang ada berjumlah cukup besar. Berikut ini akan aku berikan sebuah contoh sederhana program untuk pencarian data dengan menggunakan bahasa VB.NET di ASP.NET. Sebagaimana pada tulisanku yang sebelumnya database yang akan digunakan masih sama yaitu database dbMusic.mdb.

Yang paling penting pada pembahasan ini adalah metode pencarian yang digunakan. Berikut ada merupakan sebuah fungsi yang akan digunakan untuk melakukan proses pencarian data. Source codenya adalah sebagai berikut :

Sub cariData(Sender as Object, e as eventargs)
dim operatorPilihan as String
dim jenisUrut as String
dim fieldData as String

if cbUrut.Checked then
jenisUrut=” Desc”
else
jenisUrut=” Asc”
end if

Select case ddlNumber.SelectedItem.Value
case “Sama Dengan”
operatorPilihan=” =”
case “Lebih Kecil Dari”
operatorPilihan=” <"
case “Lebih Besar Dari”
operatorPilihan=” >”
case “Tidak Sama Dengan”
operatorPilihan=” <>“
end Select

fieldData=”cdPrice”
dim kriteriaPilih as String = txtKriteria.Text

‘Mulai koneksi ke database
try
BukaKoneksi()
dim strSql as String = “select * From tblCd Where ” _
& fieldData & operatorPilihan & ” ” & kriteriaPilih & ” Order By ” & fieldData & jenisUrut
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
catch
lblPilih.Text=”Silihkan Periksa Kriteria Pilihan Anda”
end try
End Sub

Pada saat fungsi tersebut diproses pertama kali program akan mengecek apakah user memilih checkbox atau tidak. Jika dipilih maka data yang ditampilkan secara Descending (Dari harga besar ke terkecil) dan kebalikanya jika tidak. Kemudian program akan memeriksa operator yang digunakan menggunakan select case. Pada contoh diatas juga disertakan sebuah contoh error handling pada ASP.NET yaitu try – catch yang digunakan untuk menghindari program ngambeg (ga mau jalan) ketika terjadi kesalahan. Kemudian program akan berinteraksi dengan database dan data yang dihasilkan akan ditampilkan kedalam datagrid.

Mungkin kamu heran. Lho? kodingnya sedikit banget???. Dan pas tak coba dirumah ga bisa jalan munculnya error : xxxxxx….. xp???? Ya iyalah, kan belum tak bahas semuane hohoho . Seperti yang aku sebutin diatas tulisan ini adalah lanjutan dari tulisan sebelum-sebelumnya. Jadi aku ga perlu kan ngulang-ngulang terus pembahasannya… hohoho . Nah langsung saja yaw dari pada ribet ni coding lengkap untuk contoh program diatas :

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader

Sub BukaKoneksi()
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
dbConn.Open()
End Sub

Sub Page_Load(Sender as Object, e as EventArgs)
if Not(IsPostBack)
BukaKoneksi()
‘Buat string pilih data dari tblCD”
dim strSql as String
strSql = “Select * from tblCD”
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
End if
End sub

Sub cariData(Sender as Object, e as eventargs)
dim operatorPilihan as String
dim jenisUrut as String
dim fieldData as String

if cbUrut.Checked then
jenisUrut=” Desc”
else
jenisUrut=” Asc”
end if

Select case ddlNumber.SelectedItem.Value
case “Sama Dengan”
operatorPilihan=” =”
case “Lebih Kecil Dari”
operatorPilihan=” <"
case “Lebih Besar Dari”
operatorPilihan=” >”
case “Tidak Sama Dengan”
operatorPilihan=” <>“
end Select

fieldData=”cdPrice”
dim kriteriaPilih as String = txtKriteria.Text

‘Mulai koneksi ke database
try
BukaKoneksi()
dim strSql as String = “select * From tblCd Where ” _
& fieldData & operatorPilihan & ” ” & kriteriaPilih & ” Order By ” & fieldData & jenisUrut
‘Pilih data dari table menggunakan Command
dbCommand = New OleDBCommand(strSql,dbConn)
‘Ambil data yang diambil menggunakan dbCommand dan masukkan ke dbReader
dbReader = dbCommand.ExecuteReader()
‘Tampilkan data ke Datagrid
dgCD.DataSource = dbReader
dgCD.DataBind()
dbReader.Close()
dbConn.Close()
catch
lblPilih.Text=”Silihkan Periksa Kriteria Pilihan Anda”
end try
End Sub

Kriteria harga yang akan dicari :

Mode pengurutan :

Mungkin ada beberapa diantara kamu yang masih ga mudeng dengan beberapa coding diatas bisa belajar lagi pada tulisan saya mengenai ADO.DB – ASP.NET disini.

Nah buat yang uda advance ga ada salahnya kan bagi2 ilmu hi hihi hi Jadi jika ada kritikan atau masukan atau malah pertanyaan silahkan posting dibawah yaw… makasih, semoga membantu

Show Detail Data – ASP.NET

<< Sebelumnya : Menghapus Data

Pada tulisan sebelumnya telah dijelaskan bagaimana cara menghapus data melalui pilihan didalam DropDownList. Nah sekarang kita akan belajar bagaimana cara menampilkan detail data berdasarkan item yang kita pilih. Jika kamu sudah membaca tulisan sebelumnya, tentu kamu tidak akan kesulitan untuk mempelajari tulisan ini. Karena tulisan ini masih berkaitan dengan tulisan sebelumnya.Untuk menampilkan data disini kita akan menggunakan sebuah pilihan item id dengan menggunakan kontrol DropDownList yang ada di ASP.NET.

Id data akan diambil dari database dan akan ditampilkan kedalam DropDownList yang akan digunakan oleh user untuk memilih baris data yang akan ditampilkan. Didalam form yang kita gunakan juga akan ditambahkan sebuah button untuk memanggil fungsi yang memproses penampilan data. Masih seperti didalam pembahasan sebelumnya kita akan menggunakan panel untuk menampung form penampilan data. Perlu kamu ketahui didalam ASP.NET hanya memperbolehkan satu form untuk pemrosesan. Jadi untuk penggabungan semua proses dari insert data sampai delete, akan saya kupas pada tulisan saya yang berikutnya.

Pertama-tama tambahkan dahulu direktif untuk menyertakan namespace yang akan digunakan sebagai berikut :

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

Pada contoh diatas digunakan namaspace System.Data.OleDb karena kita menggunakan database Ms.Access 2003.

Kemudian tambahkan beberapa variabel untuk permrosesan database sebagai berikut :

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader

Keterangan untuk beberapa variabel yang digunakan diatas adalah sebagai berikut :

• dbConn : digunakan untuk menampung koneksi ke database
• dbCommand : digunakan untuk menampung perintah untuk mengakses database
• dbReader : digunakan untuk menampung source data

Untuk koneksi ke database kita menggunakan sebuah prosedur sebagai berikut :

Sub BukaKoneksi()
dbConn = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("database/dbMusic.mdb"))
dbConn.Open()
End Sub

Pada kode diatas kita menggunakan OleDbConnection yang merupakan sebuah method untuk melakukan koneksi kedatabase dalam hal ini adalah Ms.Access 2003. Sedangkan beberapa syntax didalam kurung merupakan OleDbProvider dan alamat dari database. Method Open() digunakan untuk membuka koneksi.

Sekarang tambahkan kode berikut untuk mengisi data pada kontrol DropDownList :

Sub MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub

Kode diatas akan dipanggil pada saat event Page_Load. Kodenya adalah sebagai berikut :

Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub

Kemudian tambahkan fungsi untuk menampilkan data yang telah dipilih. Kodenya adalah sebagai berikut :

Sub TampilkanData(Src as Object, e As EventArgs)
BukaKoneksi()
dim strSql as String
strSql =”Select Count(cdID) From tblCD where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
if dbCommand.ExecuteScalar() <> 0 Then ‘Periksa Apakah dengan ID tersebut diatas ada
strSql = “SELECT * FROM tblCD ” & _
“WHERE cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()

while DBReader.Read()
txtNamaArtist.Text = dbReader(“artistName”) ‘Tampilkan data untuk detail
txtJenisLagu.Text = dbReader(“songType”)
txtJudulLagu.Text = dbReader(“albumTitle”)
txtRelease.Text = dbReader(“yearRelease”)
txtComment.Text = dbReader(“comment”)
txtHarga.Text = cDbl(dbReader(“cdPrice”))
end while
dbReader.Close()
lblPesan.Text=”Menampilkan Data Dengan ID: ” & cdID.SelectedItem.Value & “”
else
lblPesan.Text= “Data dengan ID: ” & cdID.SelectedItem.Value & ” Sudah Tidak Ada!”
end if
End Sub

Pada kode diatas akan dilakukan pengecekan dahulu dengan menggunakan metode ExecuteScalar yang akan mengembalikan nilai jumlah baris data jika data tidak ditemukan maka akan ditampilkan pesan pada lblPesan. Bila data ada akan dilakukan pengambilan data dengan metode ExecuteNonQuery yang akan mengembalikan source data melalui objet DataReader. Kemudian hasil data tersebut akan ditampilkan kedalam isian.

Jangan lupa untuk menambahkan StyleShet untuk tampilan sebagai berikut :

.maintainStyle
{
	background:#CCCCCC;
	margin:5px;
	padding:2px;
	border:1px inset;
	position:absolute;
	left:10px;
	top:200px
	width:400px;
	top: 50px;
	width: 400px;
	}
.labelPesanStyle
{
	position:absolute;
	left:10px;
	top:10px;
}
.style1 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }

Berikutnya adalah kode untuk desain tampilan adalah sebagai berikut :

Menampilkan Data

---

---

Nah lengkap sudah program yang kita bangun

Bila dituliskan secara lengkap kodenya adalah sebagai berikut :

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader

Sub BukaKoneksi()
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
dbConn.Open()
End Sub

Sub MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub

Sub TampilkanData(Src as Object, e As EventArgs)
BukaKoneksi()
dim strSql as String
strSql =”Select Count(cdID) From tblCD where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
if dbCommand.ExecuteScalar() <> 0 Then ‘Periksa Apakah dengan ID tersebut diatas ada
strSql = “SELECT * FROM tblCD ” & _
“WHERE cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()

while DBReader.Read()
txtNamaArtist.Text = dbReader(“artistName”) ‘Tampilkan data untuk detail
txtJenisLagu.Text = dbReader(“songType”)
txtJudulLagu.Text = dbReader(“albumTitle”)
txtRelease.Text = dbReader(“yearRelease”)
txtComment.Text = dbReader(“comment”)
txtHarga.Text = cDbl(dbReader(“cdPrice”))
end while
dbReader.Close()
lblPesan.Text=”Menampilkan Data Dengan ID: ” & cdID.SelectedItem.Value & “”
else
lblPesan.Text= “Data dengan ID: ” & cdID.SelectedItem.Value & ” Sudah Tidak Ada!”
end if
End Sub

Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub

.maintainStyle
{
background:#CCCCCC;
margin:5px;
padding:2px;
border:1px inset;
position:absolute;
left:10px;
top:200px
width:400px;
top: 50px;
width: 400px;
}
.labelPesanStyle
{
position:absolute;
left:10px;
top:10px;
}
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }

Menampilkan Data

---

---

Nah sekian dulu tulisan mengenai pembahasan pemrograman dasar asp.net kali ini. Mungkin ada tambahan masukan atau pertanyaan? Silahkan posting dibawah. Makasih, semoga membantu yaw

Berikutnya : Pencarian Data >>

Menghapus Data – ASP.NET

<< Sebelumnya : Menambah Data

Pada tulisan sebelumnya telah dijelaskan bagaimana cara menambah data melalui beberapa inputan didalam ASP.NET. Nah sekarang kita akan belajar bagaimana cara menghapus data berdasarkan item yang kita pilih. Jika kamu sudah membaca tulisan sebelumnya, tentu kamu tidak akan kesulitan untuk mempelajari tulisan ini. Karena tulisan ini masih berkaitan dengan tulisan sebelumnya.Untuk menghapus data disini kita akan menggunakan sebuah pilihan item id dengan menggunakan kontrol DropDownList yang ada di ASP.NET.

Id data akan diambil dari database dan akan ditampilkan kedalam DropDownList yang akan digunakan oleh user untuk memilih baris data yang akan dihapus. Didalam form yang kita gunakan juga akan ditambahkan sebuah button untuk memanggil fungsi yang memproses penghapusan data. Masih seperti didalam pembahasan sebelumnya kita akan menggunakan panel untuk menampung form penghapusan data. Perlu kamu ketahui didalam ASP.NET hanya memperbolehkan satu form untuk pemrosesan. Jadi untuk penggabungan semua proses dari insert data sampai delete, akan saya kupas pada tulisan saya yang berikutnya.

Pertama-tama tambahkan dahulu direktif untuk menyertakan namespace yang akan digunakan sebagai berikut :

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

Pada contoh diatas digunakan namaspace System.Data.OleDb karena kita menggunakan database Ms.Access 2003.

Kemudian tambahkan beberapa variabel untuk permrosesan database sebagai berikut :

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader

Keterangan untuk beberapa variabel yang digunakan diatas adalah sebagai berikut :

• dbConn : digunakan untuk menampung koneksi ke database
• dbCommand : digunakan untuk menampung perintah untuk mengakses database
• dbReader : digunakan untuk menampung source data

Untuk koneksi ke database kita menggunakan sebuah prosedur sebagai berikut :

Sub BukaKoneksi()
dbConn = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("database/dbMusic.mdb"))
dbConn.Open()
End Sub

Pada kode diatas kita menggunakan OleDbConnection yang merupakan sebuah method untuk melakukan koneksi kedatabase dalam hal ini adalah Ms.Access 2003. Sedangkan beberapa syntax didalam kurung merupakan OleDbProvider dan alamat dari database. Method Open() digunakan untuk membuka koneksi.

Kemudian kita tambahkan sebuah procedure untuk menghapus data sebagai berikut :

Sub hapusData(Src as Object, e As EventArgs)
BukaKoneksi()
Dim strSql As String = “Delete From tblCD Where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbCommand.ExecuteNonQuery
dbConn.Close
lblPesan.Text=”Data Dengan ID: ” & cdID.SelectedItem.Value & ” Telah Dihapus!”
MengisiCombo()
End Sub

Pada kode diatas pertama-tama kita memanggil fungsi BukaKoneksi() untuk melakukan koneksi ke database. Kemudian kita mengisikan perintah SQL ke variabel strSql. Setelah itu perintah dimasukkan kedalam objek Comand.Baru kemudian perintah didalam objek Command diproses menggunakan mode ExecuteNonQuery yang memang diperuntukkan untuk menjalankan perintah SQL. Setelah itu koneksi kita putus/hancurkan dengan method Close() dan menampilkan hasil proses melalaui lblPesan.

Kamu perlu menambahkan code berikut ini untuk menampilkan semua field id kedalam cdId. Codenya adalah sebagai berikut :

Sub MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub

Untuk memasukkan data kedalam cdID kamu perlu menambahkan code berikut pada saat event Page_Load . Codenya adalah sebagai berikut :

Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub

Kemudian kita perlu menambahkan sebuah CSS untuk mendesain tampilan sebagai berikut :

.maintainStyle
{
	background:#CCCCCC;
	margin:5px;
	padding:2px;
	border:1px inset;
	position:absolute;
	left:200px;
	top:200px
	width:400px;
	top: 50px;
	width: 400px;
	}
.labelPesanStyle
{
	position:absolute;
	left:300px;
	top:10px;
}
.style1 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }

Code untuk desain tampilannya adalah sebagai berikut :

  

Bila dituliskan secara lengkap kode diatas akan menjadi seperti berikut :

&

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

dim dbConn as OleDbConnection
dim dbCommand as OleDbCommand
dim dbReader as OleDbDataReader

Sub BukaKoneksi()
dbConn = New OleDbConnection( _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & Server.MapPath(“database/dbMusic.mdb”))
dbConn.Open()
End Sub

Sub MengisiCombo()
cdID.Items.Clear()
BukaKoneksi()
dim strSql as String = “SELECT cdID FROM tblCD ORDER BY cdID”
dbCommand = New OleDbCommand(strSql, dbConn)
dbReader = dbCommand.ExecuteReader()
cdID.DataSource = dbReader
cdID.DataTextField = “cdID”
cdID.DataValueField = “cdID”
cdID.DataBind()
dbReader.Close()
dbConn.Close()
End Sub

Sub hapusData(Src as Object, e As EventArgs)
BukaKoneksi()
Dim strSql As String = “Delete From tblCD Where cdID = ‘” & cdID.SelectedItem.Value & “‘”
dbCommand = New OleDbCommand(strSql, dbConn)
dbCommand.ExecuteNonQuery
dbConn.Close
lblPesan.Text=”Data Dengan ID: ” & cdID.SelectedItem.Value & ” Telah Dihapus!”
MengisiCombo()
End Sub

Sub Page_Load(Sender as Object, e as EventArgs)
MengisiCombo()
End Sub

.maintainStyle
{
background:#CCCCCC;
margin:5px;
padding:2px;
border:1px inset;
position:absolute;
left:10px;
top:200px
width:400px;
top: 50px;
width: 400px;
}
.labelPesanStyle
{
position:absolute;
left:10px;
top:10px;
}
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style4 {font-size: 12px}
.style5 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }

Nah sekian dulu tulisan mengenai pembahasan pemrograman dasar asp.net kali ini. Mungkin ada tambahan masukan atau pertanyaan? Silahkan posting dibawah. Makasih, semoga membantu yaw

Berikutnya : Show Detail Data >>

Menambah Data – ADO.NET- Belajar Pemrograman ASP.NET – VB.NET – Tutorial dan Contoh Program

<< Sebelumnya : Maintenance Database

Tulisan ini merupakan lanjutan dari tulisan sebelumnya mengenai maintenance database dalam ASP.NET. Hal lain yang penting dalam pemeliharaan database adalah menambah dan menghapus data. Bahasa SQL yang digunakan untuk menambah adalah insert dan untuk menghapus adalah delete. Berikut ini akan diberikan contoh program untuk menambah dan menghapus data dalam ASP.NET. Seperti yang telah dijelaskan pada tulisan sebelumnya kita akan menggunakan objek Command untuk menjalankan perintah SQL yang akan di tampung didalam variabel string. Sebenarnya ada beberapa metode eksekusi didalam ADO.NET. Untuk pembahasan mengenai model Execute dalam ADO.NET kamu bisa membaca disini. Disini kita akan menggunakan ExecuteNonQuery karena memang dikhususkan untuk pengeksekusian perintah-perintah SQL seperti Insert, Delete dan Update.

Pada pembahasan kali ini database yang digunakan masih sama seperti dalam pembahasan sebelumnya. Sebelumnya kita tambahkan direktif berikut untuk mengimport namespace dalam menggunakan ADO.DB sesuai dengan database yang digunakan.

Maintenance Database – ADO.NET- Belajar Pemrograman ASP.NET – VB.NET – Tutorial dan Contoh Program

<< Sebelumnya : Penggunaan Database

Yang dimaksudkan dengan maintenance disini adalah tindakan yang dilakukan terhadap database sehingga informasi yang disimpan didalam database tersebut bersifat up to date. Maintenance atau pemeliharaan database tersebut dapat kita lakukan dengan cara update, insert dan delete. Pada tulisan kali ini akan dibahas sebagian kecil cara yang digunakan untuk maintenance database.

Update Database

Untuk pembahasan update database ini kita akan menggunakan contoh dari penggunaan datagrid pada pembahasan sebelumnya. Disini akan diupdate beberapa list data yang sudah ada didatabase. Untuk melakukan update data pada datagrid kamu dapat menambahkan property sebagai berikut :

Penggunaan Data Base – ADO.NET- Belajar Pemrograman ASP.NET – VB.NET – Tutorial dan Contoh Program

<< Sebelumnya : Validasi Data

ADO.NET

ADO.NET merupakan pengganti dari teknologi terdahulunya yaitu ADO. ADO.NET bukanlah merupakan sebuah revisi dari ADO akan tetapi benar-benar merupakan teknologi baru yang dikembangkan Microsoft untuk database manipulation proses. ADO.NET didesain untuk bekerja pada lingkungan disconected data relation sehingga sangat cocok untuk aplikasi berbasis web. ADO.NET bersifat fleksibel karena menggunakan format XML sehingga dapat dikenali disemua platform. Untuk mempelajari lebih lanjut mengenai teknologi ADO.NET dapat kamu baca pada tulisan saya mengenai ADO.NET disini. Dan untuk mengetahui lebih lanjut mengenai proses kerja framework .NET dapat kamu baca disini.

Tutorial dan Contoh Program – Menggunakan Web Service – ADO.NET – VB.NET

<< Sebelumnya : Membangun Web Service

Pada tulisan sebelumnya kita sudah mencoba membangun sebuah web service untuk menghitung hutang. Nah pada tulisan kali ini aku akan memberikan sebuah contoh program kecil yang mengimplementasikan bagaimana cara menggunakan web service. Langkah-langkahnya adalah sebagai berikut :

Buat project baru Windows Application, bahasa yang dipakai adalah Visual Basic. Desain tampilannya adalah sebagai berikut :

Kemudian klik kanan pada nama proyek dijendela solution dan pilih menu Add Web Reference. Hal ini untuk mengambil referensi web yang akan digunakan. Kemudian ketikkan alamat Web Service pada kotak URL sebagaimana yang telah kita buat pada pembahasan sebelumnya yaitu http://localhost/Hitung_Utang/Service.asmx dan klik tombol GO

Masukkan nama web reference yang digunakan misal Hitung_Utang kemudian klik Add Reference. Maka web service yang baru akan ditambahkan ke solution explorer.

Kemudian ketikkan kode-kode berikut pada Button Hitung pada event Click yang akan memanggil Web Service.

Imports System.Math

Public Class Form1
Private Sub btn_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hitung.Click
Dim proses As New Hitung_Utang.Service
Dim bunga, periode, pokok As Double
bunga = CDec(txt_bunga.Text)
periode = CDec(txt_periode.Text)
pokok = CDec(txt_pokok.Text)
txt_angsuran.Text = Format(Round(proses.Utang( _
bunga, periode, pokok), 0), “#,#”)
End Sub
End Class

Sekarang coba kamu jalankan. Hasilnya adalah kurang lebih sebagai berikut :

Mungkin ada tambahan masukan atau pertanyaan? Silahkan posting dibawah ya…. makasih, semoga membantu

Berikutnya : Database Dengan Web Service >>

Tutorial dan Contoh Program – Mengenal Web Service – ADO.NET – VB.NET

Apakah Web Service?

Web service merupakan program yang menyediakan beberapa service di internet, tetapi yang didesain untuk membuat program lain dapat berkomunikasi dengannya.

Bagi developer web service merupakan sebuah modul perangkat lunak yang self describing. Maksudnya bahwa web service berisi fungsi yang mempunyai tugas tertentu yang dibungkus dan diakses melalui protokol standar internet seperti SOAP (simple object access protocol). Bagi user sendiri web service merupakan sebuah pendekatan yang membantu bussiness berhubungan dengan customers, partners, dan employers.

Salah satu keunggulan web service adalah kemudahan dalam melakukan perpindahan informasi pada komputer yang multi platform (Windows, Mac, Linux, Unix, PocketPC dll)

Arsitektur Web Service

Terdapat 3 service utama yang saling berkaitan pada web service sehingga membentuk sebuah arsitektur, yaitu service provider, service registry dan service requestor. Ketiganya berinteraksi dengan menggunakan operasi publish, find dan bind. Prosedurnya adalah sebagai berikut :

• Service profider sebagai penyedia akses pada web service yang mempublikasikan service description pada service registry
• Service requestor yag mencari service description pada service registry dan menggunakan informasi yang ada pada description untuk mengikat service yang digunakan

Gambaran arsitekturnya adalah sebagai berikut :

Komponen Dasar Web Service

Beberapa file yang digunakan didalam web service antara lain :

• ASMX : Merupakan file aplikasi layanan Web ASP.NET
• ASAX : Merupakan file global dari layanan web XML yang akan menangani event-event pada level aplikasi, seperti request dan seccion
• DISCO : (Discovery File) Digunakan untuk membantu pemakai menemukan Web Service. File yang berisi link yang menunjukkan ke layanan file WSDL dibuat dan diekspos ke internet sebagai jalan pertama untuk mengiklankan layanan.

Beberapa spesifikasi yang mendukung web service :

• XML (eXtensible Markup Language) : Digunakan sebagai tag data
• SOAP (Simple Object Access Protocol) : Digunakan untuk transfer data
• WSDL (Web Service Description Language) : Digunakan untuk mendeskripsikan service yang tersedia
• UDDI (Universal Description Discovery and Integration) : Digunakan sebagai daftar Web Service yang ada

Mungkin ada tambahan masukan atau pertanyaan? silahkan posting dibawah…. makasih, semoga membantu

Selanjutnya : Membangun Web Service >>