| Author |
Message |
dody |
| Location: |
|
Post subject: Gimana Sich Sintak select
 Posted: 13/Nov/2008 12:47
|
|
onNovice
Joined: 23-Oct-2008
Posts: 15
Status: Offline
|
|
Dear,semua programer Delphi...
Saya bingung nich...
Cara penulisan sintak di query bde itu gmn y?
contoh :
select * xxx from xxx where aaa IN (bbbbb,ccccc,dddd)
Please...
Untuk yang master delphi pasti dah tau...
Help me  
Thx b-4 |
|
|
| |
|
|
|
 |
|
|
|
Post subject: RE: Gimana Sich Sintak select
Posted: 13/Nov/2008 13:54
|
|
onSkilled
Joined: 03-Sep-2008
Posts: 78
Location: -
|
|
| secara tidak langung itu udah ada scritpnya di atas ? |
|
|
| |
|
|
|
|
|
dody |
| Location: |
|
|
Post subject: RE: Gimana Sich Sintak select
Posted: 13/Nov/2008 14:10
|
|
onNovice
Joined: 23-Oct-2008
Posts: 15
Status: Offline
|
|
Upps Sorii,maksud saya gini loh,saya mw tampilkan berdasarkan beberapa nm barang:
procedure TForm1.btampiltglClick(Sender: TObject);
var
tawal, takhir :tDateTime;
items,data :string;
a,b,c,d :integer;
begin
tawal:=date1.Date;
takhir:=date2.Date;
b:=table1.RecordCount;
for a:=0 to check1.Items.count-1 do
begin
if check1.Checked[a] then
begin
items:=items+'check1.Items.Strings[a]'+',';
end;
end;
c:=length(items);
for b:=1 to (c-1) do
begin
data:=data+items[b];
end;
label4.Caption:=data;
if date1.Date>date2.Date then
begin
showmessage('Format tersebut salah');
exit;
end;
query2.SQL.Clear;
query2.SQL.Add('Select*from'+QuotedStr('mutasi.db'));
Query2.SQL.Add('Where nm_product IN('+QuotedStr(label4.Caption)+')');
Query2.SQL.Add('and tanggal >=:tawal And tanggal <=:takhir');
//buat parameter
//query2.ParamByName('data').AsString:=data;
Query2.ParamByName('tawal').AsDate:=tawal;
Query2.ParamByName('takhir').AsDate:=takhir;
query2.Active:=true;
end;
klo tuk dua nama nm_productna jadi blank...
Please help me.. |
|
|
| |
|
|
|
|
|
|
|
|
