Foxtable(狐表)用户栏目专家坐堂 → 紧急求助


  共有3175人关注过本帖树形打印复制链接

主题:紧急求助

帅哥哟,离线,有人找我吗?
袁冬
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:592 威望:0 精华:0 注册:2013/7/15 3:28:00
紧急求助  发帖心情 Post By:2014/3/27 17:43:00 [显示全部帖子]

各位好,请问为什么我使用 insert into 语句每次在access数据库里增加的都是两行啊,也就是每次都执行两次插入行,求解

 回到顶部
帅哥哟,离线,有人找我吗?
袁冬
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:592 威望:0 精华:0 注册:2013/7/15 3:28:00
  发帖心情 Post By:2014/3/28 10:28:00 [显示全部帖子]

狐爸好:保存按钮代码如下:

Dim cm As New SQLCommand
cm.CommandText="Insert Into {运单表} (运单号, 日期, 发站, 到站, 发货人, 发货人电话, 发货人地址, 收货人, 收货人电话, 收货人地址, 送货方式, 提货费, 送货费, 运费, 运费小计, 现付, 到付, 回单付, 月结, 回单份数,  经办人, 备注, 代收货款) Values( '" & ydh.text & "','" & Date.Today & "', '" & fz.Text & "', '" & dz.Text & "', '" & fhr.Text & "', '" & fhrdh.Text & "', '" & fhrdz.Text & "', '" & shr.Text & "', '" & shrdh.Text & "', '" & shrdz.Text & "','" & shifou & "' ,'" & thf.Value & "', '" & shf.Value & "', '" & cyf.Value & "', '" & zj.Value & "',' " & xf.Value & "', '" & df.Value & "', '" & hf.Value & "', '" & yj.value & "', '" & hd.Text & "',  '" & jbr.Text & "','" & bz.Text & "', '" & dsf.Value & "')"
cm.C
cm.ExecuteNonQuery
If cm.ExecuteNonQuery = 1 Then
    MessageBox.show("保存成功!","保存",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2014-3-28 10:32:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
袁冬
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:592 威望:0 精华:0 注册:2013/7/15 3:28:00
  发帖心情 Post By:2014/3/28 13:07:00 [显示全部帖子]

多谢有点甜,谢谢了,也谢谢各位了

 回到顶部