Ðề: Lỗi khi thêm dữ liệu vào CSDL Access
Gửi bởi
tronggiapt
Mình có một vấn đề như sau: Khi thêm một bản ghi vào trong CSDL dùng cách sau
Set db = currentDB
Set rs = db.OpenRecordset("tblPhuongAnKT")
rs.AddNew
rs.Fields("NgayThangNam").Value = txtNgayThangNam
rs.Fields("TenKhachHang").Value = txtTenKhachHang
rs.Fields("TenHang").Value = txtTenHang
rs.Fields("MaHang").Value = txtMaHang
rs.Fields("SoDangKy").Value = txtSoDangKy
rs.Fields("KichThuocVi").Value = txtKichThuocVi
rs.Fields("GiayIn").Value = txtGiayIn
rs.Fields("DacTinh").Value = txtDacTinh
rs.Fields("KhoGiay").Value = txtKhoGiay
rs.Fields("BoTriMay").Value = txtBoTriMay
rs.Fields("LoaiOng1").Value = txtLoaiOng1
rs.Fields("ChuViOng1").Value = txtChuViOng1
rs.Fields("Mau11").Value = txtMau11
rs.Fields("Mau12").Value = txtMau12
rs.Fields("LoaiOng2").Value = txtLoaiOng2
rs.Fields("ChuViOng2").Value = txtChuViOng2
rs.Fields("Mau21").Value = txtMau21
rs.Fields("Mau22").Value = txtMau22
rs.Fields("YeuCauKT").Value = txtYeuCauKT
rs.Fields("GhiChu").Value = txtGhiChu
rs.Fields("MauChuan").Value = oleMauChuan
rs.Fields("SoMau").Value = n
rs.Update
rs.Close
Câu lệnh trên được viết trên sự kiện “cmdLuu_click()” trên form nhập dữ liệu của Access. Các câu lệnh thực hiện thì OK nhưng có một vấn đề xảy ra là khi số bản ghi trong bảng nhiều (trên 20 bản ghi) thì một số bản ghi tự động bị xoá mất dữ liệu hoặc bị bản ghi mới add vào đè lên. Bạn nào đã có kinh nghiệm xử lý vấn đề này xin chỉ giúp mình với.
Thank very much.
Lỗi là cái chắc. Nếu muốn AddNew thì làm như thế này :
C1:
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]....
[/COLOR][COLOR=#0000BB]rs[/COLOR][COLOR=#007700]![/COLOR][COLOR=#0000BB]NgayThangNam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]txtNgayThangNam
rs[/COLOR][COLOR=#007700]![/COLOR][COLOR=#0000BB]TenKhachHang [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]txtTenKhachHang
[/COLOR][COLOR=#007700]....[/COLOR]
C2
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]...
[/COLOR][COLOR=#0000BB]rs[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Fields[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]txtNgayThangNam
rs[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Fields[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]txtTenKhachHang
[/COLOR][COLOR=#007700]....[/COLOR]
Thân mến
Epson - một trong những tập đoàn công nghệ hàng đầu thế giới, đã khẳng định vị thế tiên phong của mình trong lĩnh vực máy chiếu. Với bề dày lịch sử và sự đổi mới không ngừng, Epson không chỉ mang đến...
Lịch sử hình thành và phát triển của thương hiệu máy chiếu Epson