Delphi for delphier

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
eko-indriyawan-png.png   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.

   

menengahwebservicedataset00028.png

   

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.

   

menengahwebservicedataset00029.png

   

Langkah 24

Silahkan pilih data lokasi Albertadan klik 2x hingga didapatkan tampilan seperti berikut ini.
   

menengahwebservicedataset00030.png

   

Langkah 25

Lanjutkan dengan menekan tombol Simpan.
   

Langkah 26

Setelah itu, silahkan anda tekan tombol Tampilkanhingga didapatkan tampilan seperti berikut ini.
   

menengahwebservicedataset00031.png

   

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

6 Komentar

  1. lho lho… koq sowong 😀

    Komentar oleh Indra Gunawan — Februari 18, 2008 @ 3:49 pm

  2. masih proses….

    Komentar oleh ekoindri — Februari 18, 2008 @ 3:53 pm

  3. Tambah Seep Aeee….., Bagus3x buat latihan…. ~::~ maju terus untuk berkarya ~::~

    Komentar oleh Idrouz — Februari 19, 2008 @ 4:17 pm

  4. weks,,,cepat sekali updatenya!!mantab!saran kalo bisa buat yang local host donk
    tapi itu juga kalo sempat atau lagi g banyak kerjaan!!

    Komentar oleh darvesth — Februari 20, 2008 @ 12:18 am

  5. terus berkaryra ‘ko…..kontribusimu sangat bermanfaat buat delphier, sajian yang sangat inovatif…BRAVO….!

    Komentar oleh devy — Februari 22, 2008 @ 1:36 pm

  6. 😀

    Komentar oleh abdellah — Februari 25, 2008 @ 8:15 pm


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: