Arsip: mohon masukan...

 
user image
more 11 years ago

arjuna_1982

saya punya sourcode : With SQLDataSetUmum Do Begin CommandText := 'SELECT ambil_pemeriksaan.No_Rm,pasien.nama,ambil_pemeriksaan.Tanggal,jenis_pasien.nama_jenis_pasien,ambil_pemeriksaan.Kode_jenis_pemeriksaan '+ 'FROM ambil_pemeriksaan,pasien,jenis_pasien '+ 'WHERE ambil_pemeriksaan.No_Rm="'+ENoRM.Text+'"'; open; ENama.Caption := Fields[1].AsString; EJenis.Caption := Fields[3].AsString; SQLDataSetUmum.First; While Not ModulRsalRamelan.SQLDataSetUmum.Eof Do Begin //data bs tampil di Listbox ListBox1.Items.Add(SQLDataSetUmum.Fields[4].AsString); //code biar datax bisa tampil di DBRID. :D sy g tahu listing codex mungkin tmen2 pny slusi DbGrid1. ????????? :cry: :cry: :cry: SQLDataSetUmum.Next; ENd;
user image
more 11 years ago

arjuna_1982

Sorry da yg keliru listingx.slah klik tombol maunya preview ehh.. tombol submit yg kepencet (he.. :)... lg bingung) While Not ModulRsalRamelan.SQLDataSetUmum.Eof Do seharusnya While Not SQLDataSetUmum.Eof Do mohon arahanya...
user image
more 11 years ago

mas_kofa

mas @arjuna bukankah untuk menampilkan data di DBGRID tdk diperlukan koding....tinggal kita tentukan datasource nya doang,,,
user image
more 11 years ago

asiyrob

maksudnya gini kali @mas_kofa [code =pascal]ListBox1.Items.Add(SQLDataSetUmum.Fields[4].AsString);[/code] data nama pasien data table jenis pasien mo di tampilkan dalam listbox ga' perlu kali DBEdit1.????? buat apa-an tuh??.gini aja udah bisa kali?? :roll: :roll:

SQLDataSetUmum.First;
While Not SQLDataSetUmum.Eof Do
Begin
ListBox1.Items.Add(SQLDataSetUmum.Fields[4].AsString);
SQLDataSetUmum.Next;
End;
user image
more 11 years ago

arjuna_1982

oooo iya... ya.. mas kofa.betul... td wktu sy habis posting trz nyuci2 eh.. bru inget ngapain dikoding khan cukup disetting propertynya khan bisa... ;) via Dtsourc
more ...
  • Pages:
  • 1
Share to

Random Topic

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