| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 错误查找 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119344) |
| -- 作者：zoyong -- 发布时间：2018/5/23 10:34:00 -- 错误查找 .NET Framework 版本：2.0.50727.8784
这面这种错误，怎么查找 软件在发布后运行过程过弹出 [此贴子已经被作者于2018/5/23 10:34:37编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/5/23 10:39:00 -- 这种，应该是sql语句执行的时候报错的。你合成的sql语句不正确吧？ |
| -- 作者：有点甜 -- 发布时间：2018/5/23 10:41:00 -- sql语句的错误无法查找。你可以这样变通：每个执行sql语句的前面，加入一个记录，记录执行事件或者函数或者其余信息，如果sql语句报错，那么上一个记录就可以定位到出错位置。 |
| -- 作者：zoyong -- 发布时间：2018/5/23 10:42:00 -- 只有这两种 语句
cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values(\'" & nm & "\',\'" & pf & "\',1)"
cmd.CommandText = cmd.CommandText & UserName & "\',\'" & UserName1 & "\',\'" & UserGroup & "\',\'" & Password & "\',\'" & juese & "\',\'" & ygbh & "\' )" |
| -- 作者：有点甜 -- 发布时间：2018/5/23 10:44:00 -- 看3楼，把每次合成的sql语句记录一下，以便查询。
4楼的sql语句，如果输入的值有特殊字符，如 单引号\' 等，就可能照成错误，你要处理一下，如
cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values(\'" & nm.replace("\'", "\'\'") & "\',\'" & pf & "\',1)" |
| -- 作者：zoyong -- 发布时间：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 Next End If End If End If 红色代码，后台查找，无效，因字符串长度不相等 xmmc 字符串只有项目名称的一部份，怎么查找取值
|
| -- 作者：有点蓝 -- 发布时间：2019/8/24 9:18:00 -- Find是前台查找，后台查找使用sqlFind。 Dim dr As DataRow = dt.Find("项目名称 like \'%" & xmmc & "%\'")
|
| -- 作者：zoyong -- 发布时间：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=©right=&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
|
| -- 作者：有点蓝 -- 发布时间：2019/8/25 20:27:00 -- …… Dim hc As New HttpClient("https://ocrapi-invoice.taobao.com/ocrservice/invoice") hc.Headers.Add("Authorization","APPCODE e16f08806ef642ccaab6b29bcb216627") hc.C Dim jo As new JObject jo("url") = url hc.Content = jo.ToString Dim ret = hc.GetData Output.Show(ret ) |
| -- 作者：zoyong -- 发布时间：2019/8/26 14:04:00 -- 9楼 hc.Content = 被屏蔽了
|