Ini yang ditanyakan:
(1) result query?
atau
(2) syntax SQL query didalam property ADOQuery.SQL.Text?
Kalo sebab (1): result query untuk hasil yang numpuk saya belum pernah
ketemu,
Cuma mungkin maksudnya:
ADOQuery.Close;
ADOQuery.Open;
Kalo record updated bisa: ADOQuery.Requery;
Kalo sebab (2): metodanya gini..
ADOQuery.SQL.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('SELECT * FROM TABLENAME'); // ganti dengan macam2
query;
ADOQuery.SQL.Open;
Kalo lebih aman saya create function RunQuery, untuk hanya yang membaca,
bukan menulis bisa dgn spt ini:
function RunQuery(const ASQLQuery: String; const ADBName: TADODatabase):
Boolean;
var Aquery: TADOQuery;
begin
Aquery := TADOQuery.Create(self); //
Aquery.Database := ADBName;
Aquery.SQL.Clear;
Aquery.SQL.Add(ASQLQuery);
Aquery.SQL.Open;
Result := Aquery.DataSet.RecordCount > 0;
Aquery.Free;
end;
fungsi ini return valuenya adalah FALSE jika hasil total record query =
0
dan TRUE jika total record query > 0
moga2 bisa membantu..
rgrds,
= timox =
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of herry
Sent: Tuesday, November 11, 2008 1:09 PM
To: [email protected]
Subject: [ITCENTER] Dear All Master Delphi.. Tolongin yach
Yap, teman2x..
Saya mau minta tolong untuk diberikan solusi, bekenaan dengan query yg
digunakan di Delphi.
Informasi yg ada:
- Menggunakan Komponen ADOQuery
- Menggunakan SQL Server
- Menggunakan Delphi 7
Permasalahan
- Pada saat menggunakan satu query secara berulang-ulang dengan
syntax query yg berbeda, sering kali data yang diperoleh, bukan
merupakan
data update terbaru dari perintah query yg terakhir.
- Seringkali hasilnya adalah gabungan dari query yg lama kemudian
ditambah dengan query yg terbaru, jadi menumpuk.
Langkah2x Yang Pernah Dilakukan Tetapi Tidak berhasil:
- Menggunakan perintah ADOQuery1.Close
- Menggunakan perintah ADOQuery1.Open
- Jadi saya tutup kemudian di buka lagi. Akan tetapi data tdk
update, bahkan kadang yang muncul adalah data yang lama atau data yg
double.
Mohon bantuannya.
Tq.
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
------------------------------------
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ITCENTER/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
