Mendapatkan data yang bulan atau tahunnya tertentu

Index Konsultasi Delphi || Arsip Pertanyaan

Mendapatkan data yang bulan atau tahunnya tertentu [Akhai]

Salam sejahtera, perkenalkan nama saya Budiman. Saya menggunakan Delphi 5 dan saya mencoba untuk membuat aplikasi database. Tetapi saya mempunyai beberapa masalah, yaitu:

1. Jika memakai Editmask pada komponen TDBEdit, mengapa selalu dalam keadaan overwrite mode pada saat editing. Tetapi tidak menggunakannya, TDBEdit tidak bisa menggunakan overwrite mode (dengan menekan tombol Insert). Apakah ada cara untuk mengatasi hal ini ?
2. Bagaimana bentuk perintah SELECT (SQL INTERBASE) untuk mendapatkan data yang bulan atau tahunnya tertentu saja pada field type

DATE/DATETIME (misalnya bulan 8 pada field/column name TGL_TRANS).

Harapan saya semoga Pengasuh dapat membantu saya, karena program saya terhenti ditengah jalan. Terimah kasih.

Jawaban

1. Saya kurang jelas dengan maksud dan tujuan anda, sepertinya memang sudah sifat dari komponent ybs spt itu, mungkin anda bisa menjelaskan lebih jelas apa yg anda inginkan.
2. Coba kode berikut ini :

with IBQuery1/IBSQL1 do

begin

Close;

SQL.Text := 'SELECT * FROM TABLENAME WHERE TGL_TRANS>=:p0 and

TGL_TRANS<=:p1';

//Ini untuk mengambil data bulan tertentu

ParamByName('p0').AsDateTime := StrToDate('1/8/2001');

ParamByName('p1').AsDateTime := StrToDate('31/8/2001');

//Ini jika ingin mengambil data tahun tertentu

ParamByName('p0').AsDateTime := StrToDate('1/1/2001');

ParamByName('p1').AsDateTime := StrToDate('31/12/2001');

Open;

end;

Semoga membantu...:)

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------