Arsip: da yang salah g' dengan source code Q

more 14 years ago
arjuna_1982
mohon bantuannya..
sy mau input data.datax sebagian juga ada di dbgrid
yang jd mslah.gmna caranya nyimpan data yang ada di dbrid dan jumlahnya pun da 50 record pada dbgrid.
Var
K : Integer;
Kode : String;
Hasil : String;
Tanggal : String;
begin
Tanggal := Copy(ETanggal.Caption,7,4)+'-'+
Copy(ETanggal.Caption,4,2)+'-'+
Copy(ETanggal.Caption,1,2);
For K := 0 to Dbgrid1.Columns.Count - 1 do
Begin
Kode := DbGrid1.Fields[0].AsString;
Hasil := DbGrid1.Fields[2].AsString;
With SQLDataSet Do
Begin
CommandText := 'INSERT INTO detail_hasil VALUES("'+Tanggal+'","'+ENoRM.Text+'","'+Kode+'","'+Hasil+'"';
ExecSQL;
End;
End;
dan stlh sy load keluar error
"Check........ mysql server version for the right syntax to use near " at line 1'.
process stopped..."
kira2... apanya ya.....
bantuin donggg..... buat yang bs...

more 14 years ago
mas_kofa
1.
@arjuna_1982: mohon bantuannya.. sy mau input data.datax sebagian juga ada di dbgrid yang jd mslah.gmna caranya nyimpan data yang ada di dbrid dan jumlahnya pun da 50 record pada dbgrid.kalo menurut saya jangan biasakan ambil data dr table / query...tp ambillah dari dataset nya...bukan kah dbgrid sebagai visual dr table / query... 2. menurut analisa ku kesalahan ada pada kesalahan proses konversi tanggal, untuk antipasi kesalahan konversi data pakailah parameter... [Sorry Jika Jawaban ku ada yang salah]

more 14 years ago
arjuna_1982
terima kasih... atas sarannya
trz mas_kofa punya saran ..
misalnya pake komponen pengganti.. ato punya saran lg...
help me....
tp perasaan mbak meskipun tnpa tanggal jg sama errorx... dah sy coba..

more 14 years ago
arjuna_1982
sya dbx pake mysql
trus struktur tabel x:
DETAIL_HASIL:
Tanggal : date
No_RM : int(10)
Kode_Jenis_Pemeriksaan_laborat : int(6) >>>> pemeriksaanx ada macam2x (inputnya dr Dbgrid)
Hasil : Varchar(10)
jd gmn caranya nyimpan data yang ada di Dbgrid stelah HAsilnya diinputkan.gitu lho mbak....
please ya mbak.. kasih jalan dong...
is primary key

more 14 years ago
mas_kofa
@arjuna_1982: sya dbx pake mysql jd gmn caranya nyimpan data yang ada di Dbgrid stelah HAsilnya diinputkan.gitu lho mbak.... please ya mbak.. kasih jalan dong...Terus terang aku masih bingung dengan pernyataanmu di atas... bukankah data yang udah ada di DBGrid adalah data yang sudah masuk/disimpan ke database...jd buat apa kamu simpan lagi..

more 14 years ago
elva_ivana
@arjuna1982: begin Tanggal := Copy(ETanggal.Caption,7,4)+'-'+ Copy(ETanggal.Caption,4,2)+'-'+ Copy(ETanggal.Caption,1,2);sy belum tahu format tanggal (string) kamu, tapi saran saya kamu fake Tdatetimepifcker ada di Tab System truzz pake format sesuai format tgl mysql formatdatetime('yyyy-mm-dd',datetimepicker1.date), secara format yyyy-mm-dd adalah format default nya mySQL... semoga membantu

more 14 years ago
cyber_hecker
pada saat membuka query DETAIL_HASIL, gunakan sistem cache, atau kalo ado batch. isikan datanya seperti biasa, pada saat simpan data baru update NO_RM secara keseluruhan sesuai dengan NO_RM pada tabel PASIEN.
karena entri datanya sudah menggunakan DBGrid, jadi tidak lagi diperlukan kode dibawah ini, karena sewaktu peng-isi an data sudah langsung didatabase.
For K := 0 to Dbgrid1.Columns.Count - 1 do
Begin
Kode := DbGrid1.Fields[0].AsString;
Hasil := DbGrid1.Fields[2].AsString;
With SQLDataSet Do
Begin
CommandText := 'INSERT INTO detail_hasil VALUES("'+Tanggal+'","'+ENoRM.Text+'","'+Kode+'","'+Hasil+'"';
ExecSQL;
End;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- [HINT] Trigger dan Store Procedure In mySQL.
by cyber_hecker in MySQL more 15 years ago - Inser tanggal selama 1 tahun
by delphi1st in Tip n Trik Pemrograman more 16 years ago - Customer Display Via USB
by dania in Network, Files, I/O & System more 14 years ago - kill process
by ichall in Tip n Trik Pemrograman more 16 years ago - Membuat Set Timer penjadwalan hidup lampu otomatis
by akib in Network, Files, I/O & System more 10 years ago - contoh program delphi dengan algoritma rc6
by ilhuna in Hal umum tentang Pascal Indonesia more 12 years ago - Buku-bukureferensi belajar data base dengan delphi???
by fongers in Enginering more 14 years ago - Zeos di Turbo Delphi 2006 => Firebird 2.0 embedded
by albertpratama in FireBird more 15 years ago - Rumus PMT excel di delphi
by dney in Bedah Kasus more 15 years ago - Masalah di DBGrid yang memakai lebih dari 1 TQuery
by Random in Hal umum tentang Pascal Indonesia more 15 years ago