Arsip: [HELP] SORTING DBGRID-INTERBASE

more 8 years ago
vahnkrist
Permisi mau bertanya
melakukan sorting records DBGrid dengan clicking di column title,
tapi menggunakan Interbase set database.
ada yang tahu?
thanks for ur answer.... :)

more 8 years ago
halimanh
Ini adalah tutorial sorting dbgrid pake ado, kalo pake interbase tinggal disesuaikan. http://delphi.about.com/od/usedbvcl/l/aa042203a.htm

more 8 years ago
vahnkrist
disesuaikannya gimana? di tuker IBdataset(IBQuery,IBtable) ADODatasetnya ??? sorry nda mudeng...masih newbie :)

more 8 years ago
halimanh
iya. Dan kalo propery/methodnya beda tinggal disesuaikan. saya nggak pake interbase, dan nggak install interbase servernya, jadi nggak bisa liat.

more 8 years ago
kyk ga kenal identifier "Sort".... :(
kumaha iyeuh ey...owalah.
sy pake Delphi 7 + Interbase 6.5
(komponen DBnya IBdatabase, IBTransaction, IBquery, DataSource)<<< dalam form data module bukan frm barang
cuman tggal sortir doang.....meni hese ey diteang2 te :( [/code]
vahnkrist


more 8 years ago
halimanh
Kalo nggak ada sortnya, yah nggak bisa pake itu. Ada lagi post disini http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_11771698.html

more 8 years ago
halimanh
Dari expert exchange
Ok, I did some testing. If you have some higher versions of Delphi, you can use TClientDataSet.
Below is my test case:
1. Drop TIBDatabase, TIBTransaction, TIBDataSet, TClientDataSet, TDataSource, and TDBGrid on a form.
2. Set TIBDatabase, and TIBTransaction properties so that you can connect the database.
3. Set TIBDataSet's SelectSQL property to get your data.
4. Right click ClientDataSet1 and select Assign Local data from the menu. Select IBDataSet1 from the list. (There shouldn't be more, anyway :-)).
5. Eventually, specify FileName for the local file.
6. In my case, things were somewhat slow, but see my notes below.
7. Assign DataSource1's Dataset to ClientDataSet1 and finally, set DBGrid's DataSource to ClientDataSet1.
8. Write an event handler to DBGrid1's OnTitleClick event:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ClientDataSet1.IndexFieldNames := Column.Title.Caption;
end;
That's all. Tested on some 40,000 records table (The table had 20 Columns, mostly numeric (double precision)). The response time was good (always less than 1 sec, obviously 200-300 msec). Tested with IB 6, D 5 Ent,
Pentium II 300 MHz / 128 MB.

more 8 years ago
hendrang67
@vahnkrist:Untuk sort kalau pakai IBTable, isi indexfieldnames nya sesuai dgn field yg akan disort, kalau kalau pakai IBQuery lakukan query ulang. Contoh : Pakai TIBTable procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin IBTable1.IndexFieldNames:= Column.FieldName; //IBTable1.IndexName:= Column.FieldName; // Kalau code di atas tdk bisa, coba aktifkan code ini end; Pakai TIBQuery procedure TForm1.DBGrid1TitleClick(Column: TColumn); var FldName: String; begin FldName:= Column.FieldName; IBQuery1.Close; IBQuery1.SQL.Text:= 'Select * from noperk order by '+ fldName; IBQuery1.ExecSql; end; Saya juga tidak pakai Interbase jadi tdk bisa test.kyk ga kenal identifier "Sort".... :( kumaha iyeuh ey...owalah. sy pake Delphi 7 + Interbase 6.5 (komponen DBnya IBdatabase, IBTransaction, IBquery, DataSource)<<< dalam form data module bukan frm barang cuman tggal sortir doang.....meni hese ey diteang2 te :( [/code]

more 8 years ago
hendrang67
@hendrang67: [quote:6d6bdc2cc3="vahnkrist"]Pakai TIBQuery procedure TForm1.DBGrid1TitleClick(Column: TColumn); var FldName: String; begin FldName:= Column.FieldName; IBQuery1.Close; IBQuery1.SQL.Text:= 'Select from <nama file> order by '+ fldName; IBQuery1.ExecSql; end;kyk ga kenal identifier "Sort".... :( kumaha iyeuh ey...owalah. sy pake Delphi 7 + Interbase 6.5 (komponen DBnya IBdatabase, IBTransaction, IBquery, DataSource)<<< dalam form data module bukan frm barang cuman tggal sortir doang.....meni hese ey diteang2 te :( [/code][/quote:6d6bdc2cc3] Untuk sort kalau pakai IBTable, isi indexfieldnames nya sesuai dgn field yg akan disort, kalau kalau pakai IBQuery lakukan query ulang. Contoh : Pakai TIBTable procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin IBTable1.IndexFieldNames:= Column.FieldName; //IBTable1.IndexName:= Column.FieldName; // Kalau code di atas tdk bisa, coba aktifkan code ini end; Pakai TIBQuery procedure TForm1.DBGrid1TitleClick(Column: TColumn); var FldName: String; begin FldName:= Column.FieldName; IBQuery1.Close; IBQuery1.SQL.Text:= 'Select from noperk order by '+ fldName; IBQuery1.ExecSql; end; Saya juga tidak pakai Interbase jadi tdk bisa test.
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Edit Data Di mYsql
by felax in MySQL more 12 years ago - aplikasi dengan db mysql
by skeith in Tutorial & Community Project more 10 years ago - cara disable cd-rom/dvd-rom?
by not_programmer in Network, Files, I/O & System more 14 years ago - DBGRID
by desidian in Form Enhancement & Graphical Controls more 9 years ago - query di delphi
by budi_sleman in Tip n Trik Pemrograman more 11 years ago - Form Transparan
by mas_kofa in Enginering more 14 years ago - Buat sistem database biar ngak bisa dibajak orang
by EkoIndri in Tip n Trik Pemrograman more 15 years ago - Cara disable tombol keyboard
by budi_sleman in Tip n Trik Pemrograman more 11 years ago - Help
by ian_lenovo in Hal umum tentang Pascal Indonesia more 10 years ago - Koneksi Delphi MySql
by MRRecycleBean in Hal umum tentang Pascal Indonesia more 14 years ago