Arsip: baca data adoquery

 
user image
more 16 years ago

megan

halo teman2.... mohon bantuannya dong..misal trerdapat syntaks berikut: CariQ1('selectfrom thama'); if adoQuery1.isempty then showmessage('Data hama kosong') else begin while not adoquery1.eof do begin kd_hm := Adoquery1.fieldbyname(kd_hama).asstring; cariQ2('select from TGhama where ' + 'k_h = ' kd_hm); if adoQuery2.isempty then adoquery1.next else begin memo1.text := adoquery2.fieldbyname(k_g).asstring; end; end; end; [color=blue]permasalahannya ketika adoquery2.isempty benilai =true mengapa adoquery1.next tidak melakukan aksinya. yang saya maksudkan aksi disini adalah : adoquery1 membaca kd_hama berikut. karena pada tabel tGhama k_h bernilai kosong.[/color] mohon sekali bantuan dari rekan2 sekalian.syntaks apa yang harus saya tambahkan pada permrograman diatas. .trims..trims..trims
user image
more 16 years ago

ImanD

@megan menurut diriku kemungkinan saat ada data pada adoquery2, adoquery1 tidak berjalan maka lebih baik adoquery1.next tidak disimpan pada seleksi.

CariQ1('SELECT  FROM thama'); 
if ADOQuery1.IsEmpty then 
  ShowMessage('Data hama kosong') 
else
begin 
  while not ADOQuery1.Eof do 
  begin 
    kd_hm:=ADOQuery1.FieldByName(kd_hama).AsString; 
    cariQ2('SELECT   FROM TGhama WHERE k_h = '+QuotedStr(kd_hm)); 
    if not ADOQuery2.IsEmpty then       
      Memo1.Text := ADOQuery2.FieldByName(k_g).AsString; 
    ADOQuery1.Next;    
  end; 
end;
user image
more 16 years ago

megan

nti ta coba ya mas ImanD.trims
user image
more 16 years ago

ImanD

oia u/

Memo1.Text := ADOQuery2.FieldByName(k_g).AsString;
lebih baik memnggunakan Memo1.Lines.Add dihawatirkan nanti data yg tersimpan di Memo adalah hanya data yg terakhir yg tersimpan hasil dari ADOQuery2

CariQ1('SELECT kd_hama FROM thama'); 
if ADOQuery1.IsEmpty then 
  ShowMessage('Data hama kosong') 
else
begin 
  while not ADOQuery1.Eof do 
  begin     
    cariQ2('SELECT k_g FROM TGhama WHERE k_h = '+QuotedStr(ADOQuery1.FieldByName(kd_hama).AsString)); 
    if not ADOQuery2.IsEmpty then       
      Memo1.Lines.Add(ADOQuery2.FieldByName(k_g).AsString); 
    ADOQuery1.Next;    
  end; 
end;
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com