[求助]sql语句，遇到特殊字符，该怎么处理？已上传例子（狐爸给力，已解决）！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]sql语句，遇到特殊字符，该怎么处理？已上传例子（狐爸给力，已解决）！

共有7540人关注过本帖树形打印复制链接主题：[求助]sql语句，遇到特殊字符，该怎么处理？已上传例子（狐爸给力，已解决）！

e-png

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2013/6/21 22:12:00 [只看该作者]

这样吧:
Filter = Names(i1) & " = " & Tables(bm).Rows(i)(Names(i1)) ' 下同

另外:
msgbox("保存成功","提示") = > msgbox("保存成功",0)

[此贴子已经被作者于2013-6-21 22:18:42编辑过]

qq121454970

小大 22楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：880 积分：9005 威望：0 精华：3 注册：2012/4/22 18:06:00

回复：（e-png）这样吧: &nbs... 发帖心情

Post By：2013/6/22 8:50:00 [只看该作者]

这些都不是问题的问题，现在的问题不在这一个点呢，首页贴的那段代码，不是要他执行的，只要当成普通字符修改至数据库就好

狐狸爸爸

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/6/22 9:33:00 [只看该作者]

Dim mc As String = e.Form.Controls("textbox1").Value
Dim dm As String = e.Form.Controls("textbox2").Value.replace("'","''")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {代码库} ([Name],[代码]) Values ('" & mc & "','" & dm & "')"
If cmd.ExecuteNonQuery = 1 Then
msgbox("保存成功")
End If

qq121454970

小大 24楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：880 积分：9005 威望：0 精华：3 注册：2012/4/22 18:06:00

Post By：2013/6/22 9:38:00 [只看该作者]

哈，我怎么没想到单引号呢，一直琢磨双引号去了，狐爸，给力图片点击可在新窗口打开查看

don

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/6/22 10:10:00 [只看该作者]

以下是引用狐狸爸爸在2013-6-22 9:33:00的发言：
Dim mc As String = e.Form.Controls("textbox1").Value
Dim dm As String = e.Form.Controls("textbox2").Value.replace("'","''")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {代码库} ([Name],[代码]) Values ('" & mc & "','" & dm & "')"
If cmd.ExecuteNonQuery = 1 Then
msgbox("保存成功")
End If

去掉紅色部分正常,否則報錯:從字符"提示"到Integer轉換錯誤!為何?