Web Service – Dataset – Latihan 1 Bagian 5

Tingkatan	Menengah
Kategori	Web Service
Sub Kategori	Dataset
Judul	Mengakses Web Service dan menghubungkannya dengan database MS Access.
Oleh	Nama Eko Indriyawan Domisili Surabaya – Darmo Satelit Delphi Delphi 2007 for Win32 YM eko_elits Email eko_elits@yahoo.com Telp 031 – 605 384 36
Referensi	Program oleh Eko Indriyawan
	Web Service dari http://www.xmethods.net
Tujuan	Mengajarkan kepada para Delphier tentang bagaimana cara mengimplementasikan web service dan menghubungkannya kedalam database MS Access.
	spasi
Overview	Pembahasan pada artikel ini merupakan bagian terakhir dari latihan 1 tentang web service tepatnya dalam sub kategori dataset. Dengan diberikan wawasan tentang integrasi kedalam database MS Access diharapakan para Delphier bisa mengembangkan untuk database yang lain atau membuat program aplikasi sejenis yang lebih kompleks. Pada bagian contoh program yang siap anda download juga sudah disertakan file-file untuk transformasi dan file database MS Access dengan nama Contoh.mdb. Diharapkan dengan file-file tersebut dapat mempermudah anda dalam mengimplementasikan dari artikel yang diberikan ini. Saya mengucapkan banyak terimakasih kepada rekan – rekan delphier yang senantiasa selalu menemani perkembangan blog ini demi kemajuan delphier di Indonesia.
	spasi
Petunjuk :	Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
	spasi
Langkah 1	Silahkan anda bukan program aplikasi yang sudah dibuat pada bagian 4.
Langkah 2	Tambahkan beberapa object kedalam form hingga didapatkan tampilan form seperti ditunjukkan berikut ini.
Langkah 3	Fokuskan perhatian anda pada object AdoConnection1.
Langkah 4	Silahkan anda tentukan property untuk ConnectionString-nya dengan data seperti berikut ini.
	Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Contoh.mdb;Persist Security Info=False;
Langkah 5	Lanjutkan menentukan property untuk LoginPrompt-nya dengan nilai False.
Langkah 6	Selanjutnya anda tentukan property untuk Provider-nya dengan data.
	Microsoft.Jet.OLEDB.4.0
Langkah 7	Fokuskan perhatian anda pada object ADOStoredProc1.
Langkah 8	Pada bagian property untuk Connection, silahkan anda tentukan nilainya dengan ADOConnection1.
Langkah 9	Tentukan property untuk ProcedureName-nya dengan nilai ‘Input Data‘.
Langkah 10	Lanjutkan dengan menambahkan beberapa parameter kedalam object ADOStoredProc1 dengan parameter-parameter sebagai berikut.
	Nama Size DataType Parameter_PostingDate 15 ftString Parameter_Titile 100 ftString Parameter_Category 50 ftString Parameter_Url 100 ftString Parameter_Company 50 ftString Parameter_Location 100 ftString
Langkah 11	Setelah itu, anda tentukan property untuk Prepared-nya dengan nilaiTrue.
Langkah 12	Fokuskan perhatian anda pada object ADOTable1.
Langkah 13	Silahkan anda tentukan property Connection dengan nilai ADOConnection1.
Langkah 14	Lanjutkan dengan menentukan propertyTableName-nya dengan nilai Data.
Langkah 15	Fokuskan perhatian anda pada object DataSource2.
Langkah 16	Silahkan anda tentukan property Dataset dengan nilai ADOTable1.
Langkah 17	Fokuskan perhatian anda pada object DBGrid2.
Langkah 18	Silahkan anda tentukan property DataSource-nya dengan nilai DataSource2.
Langkah 19	Lanjutkan dengan mengklik 2x tombol simpan dan isikan kode program didalam event OnClick.Untuk lebih jelasnya, silahkan anda lihat potongan kode program berikut ini.
	… … procedure TForm1.Button7Click(Sender: TObject); begin with ClientDataSet1 do begin Close; Open; First; whilenot Eof do begin with ADOStoredProc1 do begin Parameters[0].Value := ClientDataSet1.FieldValues['PostingDate']; Parameters[1].Value := ClientDataSet1.FieldValues[' Title']; Parameters[2].Value := ClientDataSet1.FieldValues[' Category']; Parameters[3].Value := ClientDataSet1.FieldValues[' Url']; Parameters[4].Value := ClientDataSet1.FieldValues[' Company']; Parameters[5].Value := ClientDataSet1.FieldValues[' Location']; ExecProc; end; Next; end; end; end; … …
Langkah 20	Kemudian anda lanjutkan dengan mengklik 2x tombol Tampilkan dan isikan kode program didalam event OnClickseperti terlihat pada potongan kode program dibawah ini.
	… … procedure TForm1.Button8Click(Sender: TObject); begin with ADOTable1 do begin Close; Open; end; end; … …
Langkah 21	Silahkan anda compile program aplikasi anda dengan menekan tombol Ctrl + F9.
Langkah 22	Lanjutkan dengan menekan tombol F9hingga program aplikasi siap dijalankan.
Langkah 23	Silahkan anda tekan tombol GetLocationshingga didapatkan tampilan seperti berikut ini.
Langkah 24	Silahkan pilih data lokasi Albertadan klik 2x hingga didapatkan tampilan seperti berikut ini.
Langkah 25	Lanjutkan dengan menekan tombol Simpan.
Langkah 26	Setelah itu, silahkan anda tekan tombol Tampilkanhingga didapatkan tampilan seperti berikut ini.
Langkah 27	Akhirnya proses pembuatan program sudah selesai
Langkah 28	Silahkan anda lanjutkan dengan menutup program aplikasinya.
Download	Dataset – Latihan 1 Bagian 5 Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32. Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan. Atas perhatiannya, saya mengucapkan banyak terimakasih.
	spasi
Link terkait	Latihan 1       Web Service JobsWs   WSDL http://ws.cisa.ca/WehireWS/JobsWs.asmx?WSDL         Bagian 1       Mengambil Web Service dengan WSDL     Bagian 2       Menambil data XML dan membuet file transformasi     Bagian 3       Menampilkan data lewat Dataset     Bagian 4       Mengimplementasikan seluruh method yang ada didalam web service     Bagian 5       Mengakses Web Service dan menghubungkannya dengan database MS Access
Disarankan baca	Latihan 2       Web Service ICodeCentralWS   WSDL http://cc.codegear.com/ccws/cc.asmx?WSDL         Bagian 1       Mengambil Web Service dengan WSDL     Bagian 2       Menambil data XML dan membuet file transformasi     Bagian 3       Membuat aplikasi login codegear
Buku panduan	Dasar First Step To Be A Programmer Menengah Pemrograman Database dengan Delphi dan MS SQL Server Menengah Membangun database MLM
Jika anda mau berusaha dan punya semangat, jangan biarkan waktu anda lari begitu saja. By Eko Indriyawan