¿Qué debo hacer si la selección se filtra durante la inyección de la base de datos de Access? ¿Hay alguna solución?

Si desea escribir datos en la base de datos

, primero debe usar el siguiente código para convertir y luego almacenar

Función CheckStr(byVal ChkStr) ' La comprobación no es un carácter válido

Dim Str: Str=ChkStr

Str=Trim(Str)

If IsNull(Str) Then

CheckStr = ""

Salir de la función

Finalizar si

Dim re

Establecer re=new RegExp

re.IgnoreCase = Verdadero

re.Global=True

re.Pattern="(\r\n){3,}"

Str=re.Replace(Str )Reemplazar( Str,"$1$1$1$1")

Establecer re=Nada

Str = Reemplazar(Str,"'", "''"

Establecer re = Nada

Establecer re=Nada

Str = Reemplazar(Str,"' "''")

Str = Reemplazar(Str," seleccionar", "seleccionar")

Str = Reemplazar(Str, "unir", "unir")

Str = Reemplazar(Str, "union", "union")

Str = Reemplazar(Str, "dónde", "dónde")

Str = Reemplazar(Str, "insertar", "insertar")

Str = Reemplazar(Str , "eliminar", "eliminar")

Str = Reemplazar(Str, "actualizar", "actualizar")

Str = Reemplazar(Str, "me gusta", "me gusta")

Str = Reemplazar(Str, "soltar", "soltar")

Str = Reemplazar(Str, "crear", "crear")

Str = Reemplazar(Str, "modificar", "modificar")

Str = Reemplazar(Str, "renombrar", "renombrar")

Str = Reemplazar(Str , "alterar "."alter")

Str = Reemplazar(Str, "cast", "cast")

CheckStr=Str

Finalizar función

Modificar. . . . Baidu no es compatible.