kenapa ya kok error "SQLQueryDetailHasil : cannot modify read only dataset" pada hal sudah diopen; With SQLQueryDetailHasil Do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM detail_hasil'); ExecSql; End; SQLQueryDetailHasil.open; SQLQueryTransaksi.Open; SQLQueryTransaksi.First; WHILE Not SQLQueryTransaksi.Eof Do Begin SQLQueryDetailHasil.Insert; SQLQueryDetailHasil.Fields[0].AsDateTime := SQLQueryTransaksi.Fields[0].AsDateTime; SQLQueryDetailHasil.Fields[1].AsString := SQLQueryTransaksi.Fields[2].AsString ; SQLQueryDetailHasil.Fields[2].AsString := SQLQueryTransaksi.Fields[5].AsString ; SQLQueryDetailHasil.Fields[3].AsString := SQLQueryTransaksi.Fields[9].AsString ; SQLQueryTransaksi.Next; End; apa da yang kurang ya....

ga perlu execsql

kalo masukan data nya ke SQLQueryDetailHasil pake query aja gmn?

WHILE Not SQLQueryTransaksi.Eof Do
Begin
  SQLQueryDetailHasil.SQL.Text := 'insert into ................';
  SQLQueryDetailHasil.Params[0].AsDateTime := SQLQueryTransaksi.Fields[0].AsDateTime;
  SQLQueryDetailHasil.Params[1].AsString   := SQLQueryTransaksi.Fields[2].AsString ;
  SQLQueryDetailHasil.Params[2].AsString   := SQLQueryTransaksi.Fields[5].AsString ;
  SQLQueryDetailHasil.Params[3].AsString   := SQLQueryTransaksi.Fields[9].AsString ;
  SQLQueryDetailHasil.ExecSql;
  SQLQueryTransaksi.Next;
End;

@arjuna_1982: kenapa ya kok error "SQLQueryDetailHasil : cannot modify read only dataset" pada hal sudah diopen; With SQLQueryDetailHasil Do Begin Close; [/b:ca1bf7232d] //yang ini dihapus aza SQL.Clear; SQL.Add('SELECT * FROM detail_hasil'); ExecSql; // ganti sama Open; Open; End; [b:ca1bf7232d]SQLQueryDetailHasil.open; SQLQueryTransaksi.Open; // hapus aza yah :D SQLQueryTransaksi.First; WHILE Not SQLQueryTransaksi.Eof Do Begin SQLQueryDetailHasil.Insert; SQLQueryDetailHasil.Fields[0].AsDateTime := SQLQueryTransaksi.Fields[0].AsDateTime; SQLQueryDetailHasil.Fields[1].AsString := SQLQueryTransaksi.Fields[2].AsString ; SQLQueryDetailHasil.Fields[2].AsString := SQLQueryTransaksi.Fields[5].AsString ; SQLQueryDetailHasil.Fields[3].AsString := SQLQueryTransaksi.Fields[9].AsString ; SQLQueryTransaksi.Next; End; // diinputnya pake table aza om..., gmn apa da yang kurang ya....

gmn bisa g? heu.." CMIIW..

4 mas AndyK podo wae mas... ora biso....

ADOTable1.close; ADOTable1.open; tambahin setelah insert

okray buat semuanya..... biso2.....

BAGEUUSS................ yang benernya dunk tampilin lagi,lumayan buat elmu,heu.." sukses..

skrang da permaslahan lagi nih... td khan dari tabel detail_hasil....(dah beres) skrang dari tabel hasil.jadi tabel hasil ini hanya meyimpan record Tanggal,jam,no_rm,kode_ruangan,id_dokter,diagnosa ------------ Hasil ------------ Tgl jam No_rm Kode_ruangan Id_Dokter Diagnosa -------------- -------------- Detail_hasil ---------------- Tgl No_Rm Kd_jns_periksa Hasil jadi intinya kedua tabel tersebut berasal dri satu tabel & struktur tabelx seperti ini ------------- ambil_pemeriksaan ------------- Tgl jam No_rm Kd_ruangan Id_Dokter Kd_jns_periksa Diagnosa Hasil trus yang jadi permasalahan.. sya mau mengambil record pada tabel ambil_pemeriksaan untuk sy kopikan ke tabel hasil.tp yang sya ambil cuma satu record saja.dan pengambilanx/copy berdasarkan 1 tanggal yang berlaku.