错误查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 错误查找

共有2685人关注过本帖树形打印复制链接主题：错误查找

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00

错误查找

Post By：2018/5/23 10:34:00 [只看该作者]

.NET Framework 版本：2.0.50727.8784
Foxtable 版本：2018.3.9.1
错误所在事件：
详细错误信息：
',' 附近有语法错误。

这面这种错误，怎么查找

软件在发布后运行过程过弹出

[此贴子已经被作者于2018/5/23 10:34:37编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 10:39:00 [只看该作者]

这种，应该是sql语句执行的时候报错的。你合成的sql语句不正确吧？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 10:41:00 [只看该作者]

sql语句的错误无法查找。你可以这样变通：每个执行sql语句的前面，加入一个记录，记录执行事件或者函数或者其余信息，如果sql语句报错，那么上一个记录就可以定位到出错位置。

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2018/5/23 10:42:00 [只看该作者]

只有这两种语句

cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values('" & nm & "','" & pf & "',1)"

cmd.CommandText = cmd.CommandText & UserName & "','" & UserName1 & "','" & UserGroup & "','" & Password & "','" & juese & "','" & ygbh & "' )"

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 10:44:00 [只看该作者]

看3楼，把每次合成的sql语句记录一下，以便查询。

4楼的sql语句，如果输入的值有特殊字符，如单引号' 等，就可能照成错误，你要处理一下，如

cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values('" & nm.replace("'", "''") & "','" & pf & "',1)"

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/8/24 9:16:00 [只看该作者]

If e.DataCol.Name = "项目名称" Then

If e.DataRow.IsNull("项目名称") Then

Dim s As String = e.DataRow("备注")

If s.Length > 10 Then '判断字符串长度

Dim s1 As String = s.SubString(2) '删除前面的2个字符

Dim sps() As Char = {"(","投保金","工程款"} '定义数组

Dim Names() As String = s1.Split(sps) '分割数组

Dim xmmc As String = Names(0) '取分割后的第一个字段

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText ="s elect * from {jy_投标立项} where 1=2" '不加载

Dim dt As DataTable=cmd.ExecuteReader()

For Each r As DataRow In e.DataTable.DataRows

Dim dr As DataRow = dt.Find("项目名称='" & xmmc & "'")

If dr IsNot Nothing Then

r("项目名称") = dr("项目名称")

r("简码") = dr("简码")

r.Save

End If

红色代码，后台查找，无效，因字符串长度不相等

xmmc 字符串只有项目名称的一部份，怎么查找取值

有点蓝

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

加好友

发短信

等级：超级版主帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/24 9:18:00 [只看该作者]

Find是前台查找，后台查找使用sqlFind。

模糊查询参考：http://www.foxtable.com/webhelp/topics/0102.htm

Dim dr As DataRow = dt.Find("项目名称 like '%" & xmmc & "%'")

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/8/25 17:12:00 [只看该作者]

Dim url As String = "https://image.baidu.com/search/detail?ct=503316480&z=0&ipn=d&word=%E5%A2%9E%E5%80%BC%E7%A8%8E%E6%99%AE%E9%80%9A%E5%8F%91%E7%A5%A8&step_word=&hs=0&pn=10&spn=0&di=89320&pi=0&rn=1&tn=baiduimagedetail&is=0%2C0&istype=2&ie=utf-8&oe=utf-8&in=&cl=2&lm=-1&st=-1&cs=1982561268%2C3776389616&os=264236788%2C3321030083&simid=0%2C0&adpicid=0&lpn=0&ln=969&fr=&fmq=1566724204242_R&fm=result&ic=&s=undefined&hd=&latest=&copyright=&se=&sme=&tab=0&width=&height=&face=undefined&ist=&jit=&cg=&bdtype=0&oriquery=&objurl=http%3A%2F%2Fn.sinaimg.cn%2Fsinacn%2F20171123%2F56e8-fynwxun0209265.jpg&fromurl=ippr_z2C%24qAzdH3FAzdH3Fv3_z%26e3Bftgw_z%26e3Bv54_z%26e3BvgAzdH3Fw6ptvsjfAzdH3FetjoAzdH3Fmncml98m8bAzdH3F80wj0nkndaa8aacagc&gsm=0&rpstart=0&rpnum=0&islist=&querylist=&force=undefined"

Dim hc As New HttpClient("https://ocrapi-invoice.taobao.com/ocrservice/invoice?url=" & url & "'")

hc.Headers.Add("Authorization","APPCODE e16f08806ef642ccaab6b29bcb216627")

Dim jo As JObject = Jobject.Parse(hc.GetData)

Output.Show(jo.ToString)

老是出现400错误

以下是接口说明

https://market.aliyun.com/products/57124001/cmapi027758.html?spm=5176.2020520132.101.3.36e37218nIj6jC#sku=yuncode2175800000