• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi khi chèn dữ liệu vào Table

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • [Lỗi] Lỗi khi chèn dữ liệu vào Table
• Lỗi khi chèn dữ liệu vào Table

• Lỗi khi chèn dữ liệu vào Table

  tqcuong > 22-08-14, 10:17 PM

  Mình thiết kế 1 form khi click vào nút bấm thì nó sẽ lưu thông tin USER nhập ở khung Text0, PASS nhập ở khung text2, TIME ngày giờ hệ thống vào table LOG
  
  Code:
  Private Sub Command4_Click()
  Dim MySQL As String
  Dim LDate As String
  LDate = Date
  MySQL = "INSERT INTO LOG (USER, PASS, TIME) VALUES(TEXT0, TEXT2, LDATE)"
  DoCmd.RunSQL MySQL
  End Sub
  
  Các bạn giúp mình xem nó cứ báo lỗi

• RE: Lỗi khi chèn dữ liệu vào Table

  MTNQ > 25-08-14, 04:25 PM

  Câu SQL của bạn có 3 vấn đề:
  1. Không nên đặt tên trường, đối tượng hay biến trùng với các từ khóa đặc biệt như Date, time ...
  Nểu đã đặt như vậy thì khi gọi ta phải đặt trong dấu []
  -Tham khảo thêm tại đây: http://support.microsoft.com/kb/286335
  2.Lưu ý khi đưa giá trị của một biến vào chuỗi:
  VD:
  ta không thể viết :
  "... VALUES(TEXT0, TEXT2, LDATE)"
  Mà phải viết là:
  "... VALUES('" & TEXT0 & "', '" & TEXT2 & "', '" & LDate & "');"
  3.Nếu dùng DoCmd.RunSQL thì trước đó phải tắt cảnh báo của Access bằng câu: DoCmd.SetWarnings False
  
  Thủ tục của bạn mình sửa lại như sau:
  
  

  Mã PHP:

  Private Sub Command14_Click()
    Dim MySQL As String
    Dim LDate As String
    LDate = Date
    MySQL = "INSERT INTO LOG(USER, PASS, [TIME]) VALUES('" & TEXT0 & "', '" & TEXT2 & "', '" & LDate & "');"
   
    DoCmd.SetWarnings False
    DoCmd.RunSQL MySQL
    DoCmd.SetWarnings True
End Sub 


  
  Hoặc:
  
  

  Mã PHP:

  Private Sub Command14_Click()
    Dim MySQL As String
    Dim LDate As String
    LDate = Date
    MySQL = "INSERT INTO LOG(USER, PASS, [TIME]) VALUES('" & TEXT0 & "', '" & TEXT2 & "', '" & LDate & "');"
    CurrentDb.Execute MySQL
End Sub 

• Bài trước Bài tiếp