关于数据库 sql 追加记录中带有特珠符号

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:49:33
Private Sub Form_Load()
Dim 数据库 As Database
Dim kKk As String
Dim sJ1 As String
Dim sJ2 As String
Dim str_tj As String
sJ1 = "完全写入@\/?.<<>原来的数据并&^%$#$#$^*()带有其它符号'-|\'"
sJ2 = "测试"

Set 数据库 = DBEngine(0).CreateDatabase("c:\TEST.mdb", dbLangChineseSimplified, dbVersion30)
kKk = " create table mp3(xvhao counter,geming text,lujing text,daxiao text)"
数据库.Execute kKk
str_tj = "INSERT INTO mp3(geming,lujing) values('" & sJ1 & "','" & sJ2 & "')"
数据库.Execute str_tj
数据库.Close
End Sub
以上通过DAO 的代码 如果变量sJ1中没有特珠符号可正常写入,但有却出错,如何解决,前提是写入的原文不变。

str_tj = "INSERT INTO mp3(geming,lujing) values('" &Replace(sJ1,"'","''")& "','" & sJ2 & "')"
加一个'转译就可以了,其他的特殊符号不用转译

太专业了
这个不懂

找个替换函数替换一下特殊符号,看行不行

Private Sub Form_Load()
Dim 数据库 As Database
Dim kKk As String
Dim sJ1 As String
Dim sJ2 As String
Dim str_tj As String
sJ1 = "完全写入@\/?.<<>原来的数据并&^%$#$#$^*()带有其它符号'-|\'"
sJ2 = "测试"
Set 数据库 = DBEngine(0).CreateDatabase("c:\TEST.mdb", dbLangChineseSimplified, dbVersion30)
kKk = " create table mp3(xvhao counter,geming text,lujing text,daxiao text)"
数据库.Execute kKk

Dim rs As Recordset
Set rs = 数据库.OpenRecordset("select * from mp3")
rs.AddNew
rs.Fields("geming") = sJ1
rs.Fields("lujing") = sJ2
rs.Update

数据库.Close
End Sub

本地测试通过,