UC知道关于数据库 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中没有特珠符号可正常写入，但有却出错，如何解决，前提是写入的原文不变。
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
本地测试通过,