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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语句执行错误

共有4002人关注过本帖树形打印复制链接主题：语句执行错误

有点蓝

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

加好友

发短信

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

Post By：2018/10/8 20:24:00 [显示全部帖子]

打开数据库，日志表结构截图看看

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 21:28:00 [显示全部帖子]

如果是access数据库，时间列不支持毫秒，要格式化一下，

cmd.Parameters.Add("@时间",format(Date.Now,"yyyy-MM-dd HH:mm:ss"))

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 22:07:00 [显示全部帖子]

不支持

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 22:35:00 [显示全部帖子]

必须按照这里指定的列的顺序，不能打乱

"Insert Into {日志}(日期,操作,文件名,时间)

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 22:48:00 [显示全部帖子]

这种自己测试有没有问题就知道了

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 22:49:00 [显示全部帖子]

报什么错？

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 23:00:00 [显示全部帖子]

检查列的名称，顺序和数量是否和参数的一致，问号的数量是否和列数量一致

有点蓝

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

加好友

发短信

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

Post By：2018/10/9 23:28:00 [显示全部帖子]

很多问题！

1、

Dim txt As String = FileSys.ReadAllText(ProjectPath & "\xz\DZ0107" & d1 & ".o",Encoding.Default)

cmd.CommandText = "Insert Into {生成}(银行代码,还款类型,罚息金额,归还日期,本金,利息,逾期,贷款余额,余额正负,借款人姓名,银行机构代码,银行机构代码前8位,机构数字) Values(?,?,?,?,?,?,?,?,?,?,?,?,?)"

Dim ary() As String = txt.split("|")

For i As Integer = 3 To ary.Length-1

cmd.Parameters.clear()

If (i-3) Mod 17=0

……

2、假如不符合条件，那么下面这些参数就不会添加，这是不允许的，上面所有列都必须和Parameters的参数一一对应，不能多，也不能少

If (i-3) Mod 17=0

' sc=DataTables("生成").AddNew

cmd.Parameters.Add("@银行代码","20")

cmd.Parameters.Add("@还款类型","02")

cmd.Parameters.Add("@罚息金额","0")

cmd.Parameters.Add("@归还日期",ary(i).Substring(0,4) & "-" & ary(i).Substring(4,2) & "-" & ary(i).Substring(6,2))

End If

有点蓝

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

加好友

发短信

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

Post By：2018/10/10 11:05:00 [显示全部帖子]

这个代码不可能会出错。怎么用的，贴出你完整的代码

有点蓝

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

加好友

发短信

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

Post By：2018/10/10 12:19:00 [显示全部帖子]

请重新贴出你完整的代码

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：语句执行错误