Arsip: [ask]menampilkan data dari dua table dalam satu from

 
user image
more 9 years ago

kepiss

temen-temen saya lagi belajar delphi ne..mohon pertolongan procedure TFpotongan.EnipChange(Sender: TObject); var query: string; begin with dm.querypegawai do with dm.queryjabatan do begin close; sql.Clear; sql.Add('select * from pegawai,jabatan where pegawai.nip=jabatan.nip=:kd '); parameters.ParamByName('kd').Value:=(enip.Text); dm.querypegawai.Open; if not eof then enama.Text:=fieldbyname('nama_pegawai').AsString; ekantor.Text:=fieldbyname('kantor').AsString; ejabatan.Text:=fieldbyname('jabatan').AsString; dengan code diatas ane mau nampilin data daritable pegawai dan jabatan dengan memasukan NIP pegawai di Tedit...gak ada errornya tapi kok datanya gak mau muncul ya....semoga ada yang bisa bantu saya..amien..
user image
more 9 years ago

madi

coba dulu ya siapa tahu ada yg salah :D [sql] with ADOQuery1 do begin close; SQL.Text := 'SELECT A.NAMA_PEGAWAI,B.JABATAN,A.KANTOR FROM PEGAWAI A, JABATAN B '+ ' WHERE A.NIP = B.NIP AND A.NIP = '+ QuotedStr(enip.text) + ' AND B.NIP = '+ QuotedStr(enip.text); open; end; enama.Text:=fieldbyname('nama_pegawai').AsString; ekantor.Text:=fieldbyname('kantor').AsString; ejabatan.Text:=fieldbyname('jabatan').AsString;[/sql]
user image
more 9 years ago

ihfan_wa2w

koreksi sedikit sql nya, coba begini: select p.nip,p.nama,j.jabatan from pegawai p,jabatan j where p.nip=j.nip and p.nip=:nip semoga membantu.
user image
more 9 years ago

kepiss

makasih...semuanya...... udah sukses ternyata... :D
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com