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

Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Help] Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi
• Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

• Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  toidjtjmtoi > 25-04-20, 01:06 PM

  Chào mọi người ạ
  
  Em đang gặp vấn đề rắc rối với code này 
  
  Private Sub Form_BeforeUpdate(Cancel As Integer)
      WriteChanges
  End Sub
  
  Public Function WriteChanges()
  
      Dim frm As Form
      Dim ctl As control
      Dim frmname As String, USER As String, sql As String, changes As String
      Dim db As DAO.Database
  
      Set frm = Screen.ActiveForm
      Set db = CurrentDb
  
      frmname = Screen.ActiveForm.Name
      USER = hamlaytenthat()
      changes = ""
  
      sql = "INSERT INTO tblUpdate " & _
          "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
          "VALUES (#" & Now & "#,'" & frmname & "', '" & USER & "', "
     
      For Each ctl In frm.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acOptionGroup
                If IsNull(ctl.OldValue) And Not IsNull(ctl.Value) Then
                    changes = changes & _
                    ctl.Name & "--" & "BLANK" & "--" & ctl.Value & _
                    vbCrLf
                ElseIf IsNull(ctl.Value) And Not IsNull(ctl.OldValue) Then
                    changes = changes & _
                    ctl.Name & "--" & ctl.OldValue & " --" & "BLANK" & _
                    vbCrLf
                ElseIf ctl.Value <> ctl.OldValue Then
                    changes = changes & _
                    ctl.Name & ": " & ctl.OldValue & "--> " & ctl.Value & _
                    vbCrLf
                End If
        End Select
      Next ctl
  
    sql = sql & "'Thaydoi :" & frm.khachhang & changes & " ');"
      db.Execute sql, dbFailOnError
  
      Set frm = Nothing
      Set db = Nothing
  
  
  Trong chuỗi changes mà có ký tự đặc biệt ví dự như " , ) .... thì nó bị lỗi 
  
  Giờ em phải sửa cái đoạn này như thế nào để nó hiểu đó là cả chuỗi như nào ạ

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  tranthanhan1962 > 25-04-20, 01:40 PM

  Đổi cặp "" (nháy kép) thành '' Nháy đơn ";" =>';'

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  toidjtjmtoi > 25-04-20, 03:43 PM

  (25-04-20, 01:40 PM)tranthanhan1962 Đã viết: Đổi cặp "" (nháy kép) thành '' Nháy đơn ";" =>';'

  
  Anh ơi em sửa thử không được nó báo lỗi khác too few parameters. expected 2

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  ongke0711 > 25-04-20, 03:56 PM

  Bạn sửa lại câu này xem:
  
  frm.Khachhang này là cái gì?
  
  sql = sql & "'Thaydoi :" & frm.khachhang & changes & " ');"
  
  --> sql = sql & "'Thaydoi :" & frmname & changes & "')"

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  toidjtjmtoi > 25-04-20, 04:17 PM

  (25-04-20, 03:56 PM)ongke0711 Đã viết: Bạn sửa lại câu này xem:
  
  frm.Khachhang này là cái gì?
  
  sql = sql & "'Thaydoi :" & frm.khachhang & changes & " ');"
  
  --> sql = sql & "'Thaydoi :" & frmname & changes & "')"

  
  Vẫn ko được anh ơi
  Đoạn dữ liệu em muốn thay đổi nó như này 
  -Sales of these products are subject to Givaudan's General Conditions of Sales (attached hereto or available at  www.givaudan.com), which the buyer acknowledges to have received, read, understood and accepted by submitting its order.
  
  Nhưng lúc em thay đổi save lại nó sẽ báo lỗi runtime error 3075 syntax error (comma) in query expression
  khi em thay sql = sql & "'Thaydoi :" & frmname & changes & "')"

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  ongke0711 > 25-04-20, 04:50 PM

  (25-04-20, 04:17 PM)toidjtjmtoi Đã viết: Vẫn ko được anh ơi
  Đoạn dữ liệu em muốn thay đổi nó như này 
  -Sales of these products are subject to Givaudan's General Conditions of Sales (attached hereto or available at  www.givaudan.com), which the buyer acknowledges to have received, read, understood and accepted by submitting its order.
  
  Nhưng lúc em thay đổi save lại nó sẽ báo lỗi runtime error 3075 syntax error (comma) in query expression
  khi em thay sql = sql & "'Thaydoi :" & frmname & changes & "')"

  
  Cái chuỗi dài sọc với một đống dấu phẩy "," thì câu lệnh Insert Into nó hiểu sai là đúng rồi, sau mỗi dấu phẩy đại diện cho 1 Field.
  Bạn thử cách này, nếu không được thì tôi potay, chỉ có cách xử lý chuỗi thay dấu phẩy thành dấu khác trước khi đưa vô câu lệnh SQL.
  
  sql = sql & Chr(34) & "Thaydoi :" & frmname & changes & Chr(34) & ")"
  
  Bỏ luôn dấu nháy đơn.

• RE: Ghi Chuỗi có ký tự đặc biệt vào SQL báo lỗi

  toidjtjmtoi > 26-04-20, 09:58 AM

  (25-04-20, 04:50 PM)ongke0711 Đã viết:

  (25-04-20, 04:17 PM)toidjtjmtoi Đã viết: Vẫn ko được anh ơi
  Đoạn dữ liệu em muốn thay đổi nó như này 
  -Sales of these products are subject to Givaudan's General Conditions of Sales (attached hereto or available at  www.givaudan.com), which the buyer acknowledges to have received, read, understood and accepted by submitting its order.
  
  Nhưng lúc em thay đổi save lại nó sẽ báo lỗi runtime error 3075 syntax error (comma) in query expression
  khi em thay sql = sql & "'Thaydoi :" & frmname & changes & "')"

  
  Cái chuỗi dài sọc với một đống dấu phẩy "," thì câu lệnh Insert Into nó hiểu sai là đúng rồi, sau mỗi dấu phẩy đại diện cho 1 Field.
  Bạn thử cách này, nếu không được thì tôi potay, chỉ có cách xử lý chuỗi thay dấu phẩy thành dấu khác trước khi đưa vô câu lệnh SQL.
  
  sql = sql & Chr(34) & "Thaydoi :" & frmname & changes & Chr(34) & ")"
  
  Bỏ luôn dấu nháy đơn.

  Nuột rồi anh ơi , thanks anh ạ
• Bài trước Bài tiếp