Arsip: ModifySQL u/ data yg sama di MySQL 5.0.45 bermasalah!

 
user image
more 13 years ago

bugan

halo, temen-2 pakar delphi, aku mo nanya juga nih, aku pake delphi 6 mysql 5.0.45, lagi coba-2 pake komponen TUpdateSQL di dalam DBGrid untuk InsertSQL dan DeleteSQL sih lancar-2 aja, tapi kalo ModifySQL selalu muncul error 'Update failed', itu terjadi kalo kita ubah data dengan data yg sama, kalo datanya beda sih ok-2 aja, kenapa ya? Please dong pencerahannya ... Rolling Eyes
user image
more 13 years ago

onsir

coba kamu kirim kode nya ke sini biar rekan-rekan yg lain bisa kasih masukan.
user image
more 13 years ago

bugan

Ini source codenya ModifySQL-nya, yg aku pasang di komponen TUpdateSQL : UPDATE Employee SET emp_no = :emp_no, first_name = :first_name, last_name = :last_name, phone = :phone, salary = :salary, hire_date= :hire_date WHERE emp_no = :OLD_emp_no; NB: Syntax SQL diatas kalo digunakan MS SQL Server 2000 tidak ada masalah ! Thanks sebelumnya...
user image
more 13 years ago

saysansay

Emp_no Bukan Primary Keynyakan..Coba Dirimu Menambahkan Sebuah ID So Saya Menambahkan Idemp Dan Saya Coba Berhasil Dengan Delphi7 Dan ZeosComponent Serta MysqL 5

UPDATE Employee
SET
emp_no = :emp_no,
first_name = :first_name,
last_name = :last_name,
phone = :phone,
salary = :salary,
hire_date= :hire_date
WHERE
IDemp= :id; 
Dan Yang ini Juga Berhasil Syntax Punya Om @Bugan

UPDATE Employee
SET
emp_no = :emp_no,
first_name = :first_name,
last_name = :last_name,
phone = :phone,
salary = :salary,
hire_date= :hire_date
WHERE
emp_no= :empno_old;
Sebelum Di UPDATE Setlaha DiUPDATE Click Disini Ajah Berhubung nga Bisa Upload Di Delphi-id http://www.photo-host.org/v/friendship/581674ibk2.jpg Syntax Table yg DImodify Sedikit
CREATE TABLE t_emp (
  IDemp int(10) unsigned NOT NULL auto_increment,
  First_Name varchar(25) default NULL,
  Last_Name varchar(25) default NULL,
  Phone varchar(16) default NULL,
  Salary float default NULL,
  Hir_date datetime default NULL,
  Emp_No varchar(20) NOT NULL,
  PRIMARY KEY  (IDemp)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
NB: Kemungkinan Besar kesalahan Pada Struktur Table Anda Silahkan Dikoreksi Lagi
user image
more 13 years ago

bugan

mr.saysansay Kebetulan emp_no adalah primary key yg aku mau pakai ! Supaya tidak ada no.karyawan yg double. Aku udah coba yg pakai syntax yg :emp_no_old, terus muncul error 'Field 'empno_old' is of unknown type'. Aku pakai Delphi 6, koneksinya pakai ODBC MySQL 3.5.1. Zeos komponen untuk Delphi 6 ada/tidak ya? Thanks beratz. NB: Struktur table sepertinya udah ok!
user image
more 13 years ago

nurez

UPDATE Employee SET emp_no = :emp_no, // klo emp_no = Pkey yg inii krna Pkey.. jd ga bis di update maszz.. harusna : UPDATE Employee SET first_name = :first_name, last_name = :last_name, phone = :phone, salary = :salary, hire_date= :hire_date WHERE emp_no = :emp_no truss field empno_old untuk apa..? klo field rujukan tabel lain..? yaa pakai "...inner join.." i hope bermanfaat... hanya menambahkan omm san... :) koreksi yha :) met puasa
user image
more 13 years ago

bugan

mr. nurez aku dah coba, sarannya, masalahnya tetap sama, yaitu: - kalau data di-ubah dgn data yg berbeda, ok lancar tidak muncul error. misal: salary = 100 -> diubah jadi salary = 200, ok lancar tidak muncul error, tapi kalau salary = 100 -> diubah jadi salary = 100, begitu qryEmployee.ApplyUpdates muncul error 'Update failed'. procedure penyimpanan data-nya spt ini : procedure TForm1.btnSimpanClick(Sender: TObject); begin with DM do begin AksiApplyData(qryEmployee); end; end; procedure TDM.AksiApplyData(pNmQuery: TQuery); begin if (pNmQuery.UpdatesPending) then begin if not dbMain.InTransaction then dbMain.StartTransaction; try pNmQuery.ApplyUpdates; dbMain.Commit; except on E: EDatabaseError do begin dbMain.Rollback; raise; end; end; pNmQuery.CommitUpdates; end; end;
user image
more 13 years ago

nurez

wah cara sy dgn yg mas pakai.. aga berbeda.. :) ngga pakai commit / rollback atw commitupdate :) saya pakai " find trs update deh .. tp pke ADO :) hehhe.. ada sih rollback / commitnya /...tp ngga prnah di pakai.. ngga tau kegunannnya :( atau salah satu dari ketiga itu ada yg di ilangin... mungkin >> dbMain.Rollback yaa dicoba.. ngga ada salahnya.. :).. on E: EDatabaseError do showmessage(' master2nya lgg puasa conding kalii... hehhehehe');
user image
more 13 years ago

saysansay

mr.saysansay Kebetulan emp_no adalah primary key yg aku mau pakai ! Supaya tidak ada no.karyawan yg double. Aku udah coba yg pakai syntax yg :emp_no_old, terus muncul error 'Field 'empno_old' is of unknown type'. Aku pakai Delphi 6, koneksinya pakai ODBC MySQL 3.5.1. Zeos komponen untuk Delphi 6 ada/tidak ya? Thanks beratz. NB: Struktur table sepertinya udah ok!
Zeos Komponen Ada Untuk Delphi 6 NB : Catatan untuk mengupdate Primarykey Jarang sekali Dilakukan sepengetahuan saya,dan saya juga tidak mengerti apakah para master delphier sering mengupdate field yg diacu sbg Primary Key. Saran : Lebih banyak belajar bagaimana menentukan struktur table yg baik,himbauan ini juga berlaku untuk diri saya sendiri..Semangat Mr.Bugan
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com