Dear bro-bro smua saya nemuin kesulitan neh, tolong para pakar yg ada disini bantuin saya ya. saya kan sudah membuat query misal Select TBarang.KodeBarang, TJenis.NamaJenis from TBarang, TJenis Where TBarang.KodeJenis = TJenis.KodeJenis nah saya bermaksud menampilkan ROW ke 1 dari hasil query tersebut pada edit text. itu bagaimana ya caranya ?? trus bagaimana syntaxnya apabila saat menjalankan aplikasi, Query tersebut langsung dijalankan. help me please... thanks buat semuanya.

Seperti inikah yang dimaksut ato bukan?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := ADOQuery1.FieldValues['KodeBarang'];
  Edit2.Text := ADOQuery1.FieldValues['NamaJenis'];
end;

ketik aja code ini di event onCreate dan onActive dari form itu. ini kodenya: (ini pake komponen ADOQuery ma ADOConnection ya...! ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select TBarang.KodeBarang, TJenis.NamaJenis from TBarang, TJenis Where TBarang.KodeJenis = TJenis.KodeJenis '); ADOQuery1.Open; Edit1.Text := ADOQuery1.FieldByName('KodeBarang').Value; Edit2.Text:= ADOQuery1.FieldByName('NamaJenis').value; moga bermanfaat.... :D

wah kok waktu mau ngaktifin ADOQuery1-nya muncul kotak user & password database login. padahal saya kan tidak memakai sistem client & server. jadi pake local (database paradox). trus bagaimana donk ? apa ada cara lain ? makasih sebelumnya

di komponen databsenya property loginpromt-nya diset false

bisa gak kalo tanpa menggunakan komponon ADOQUERY dan ADOCONNECTIOn ? misal menggunakan komponen QUERY dan DATASOURCE saja ?? kalo gini bisa gak ya ? Query1.SQL.Add('Select TBarang.KodeBarang, TJenis.NamaJenis from TBarang, TJenis Where TBarang.KodeJenis = TJenis.KodeJenis '); Query1.Open; Edit1.Text := Query1.FieldByName('KodeBarang').Value; Edit2.Text:= Query1.FieldByName('NamaJenis').value;

kalo gini bisa gak ya ? Query1.SQL.Add('Select TBarang.KodeBarang, TJenis.NamaJenis from TBarang, TJenis Where TBarang.KodeJenis = TJenis.KodeJenis '); Query1.Open; Edit1.Text := Query1.FieldByName('KodeBarang').Value; Edit2.Text:= Query1.FieldByName('NamaJenis').value;

ya dicoba sendiri aja kok....malah nanya disini sih................ [bs pake component TQuery pd Tb BDE]

@flamade: sebelum bertanya gunakan logika anda dulu (sedikit pengetahuan tentang koneksi database akan sangat membantu). xxxQUERY pasti membutuhkan sebuah connection untuk berinteraksi dengan PL/SQL / table... sudah tahu jawabannya-kan?

@DelphiExpert: @flamade: sebelum bertanya gunakan logika anda dulu (sedikit pengetahuan tentang koneksi database akan sangat membantu). xxxQUERY pasti membutuhkan sebuah connection untuk berinteraksi dengan PL/SQL / table... sudah tahu jawabannya-kan?

sudah bisa kok bos tapi kk DelphiExpert... koneksi ke database kan gak melulu nmenggunakan ADOQuery dan ADO connection (abisnya belon ngerti cara kerja komponen yg dua ini hi hi hi...) kan bisa menggunakan komponen tabel, datasource,query begitu loh maksud saya kk DelphiExpret.. aniwei... thanks atas bantuanya. udah bisa tuh. ntar kalo ada trouble lagi, saya nanya lagi ke kk-2 semua...