Foxtable(狐表)用户栏目专家坐堂 → [求助]用sql语句插入用部分数据没有进去


  共有3211人关注过本帖平板打印复制链接

主题:[求助]用sql语句插入用部分数据没有进去

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


加好友 发短信
等级:幼狐 帖子:67 积分:533 威望:0 精华:0 注册:2020/5/18 10:00:00
[求助]用sql语句插入用部分数据没有进去  发帖心情 Post By:2020/5/22 18:26:00 [只看该作者]

我用的是关联表在窗口中,对于关联表的数据录入,我是直接插入到子表的如图

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
点击新增录入数据

图片点击可在新窗口打开查看此主题相关图片如下:新增.png
图片点击可在新窗口打开查看
这是保存的点击事件代码: 用插入语句写的
Dim mj As WinForm.ComboBox = e.Form.Controls("mj")
Dim sbdh As WinForm.TextBox = e.Form.Controls("sbdh")
Dim wh As WinForm.TextBox = e.Form.Controls("wh")
Dim wjrq As WinForm.DateTimePicker = e.Form.Controls("wjrq")
Dim wjtm As WinForm.TextBox = e.Form.Controls("wjtm")
Dim xh As WinForm.TextBox = e.Form.Controls("xh")
Dim yh As WinForm.TextBox = e.Form.Controls("yh")
Dim ys As WinForm.TextBox = e.Form.Controls("ys")
Dim zrz As WinForm.TextBox = e.Form.Controls("zrz")
Dim bgqx As WinForm.ComboBox = e.Form.Controls("bgqx")
Dim bz As WinForm.TextBox = e.Form.Controls("bz")
Dim jh As WinForm.TextBox = e.Form.Controls("jh")
Dim nd As WinForm.TextBox = e.Form.Controls("nd")

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into wada_jnxx (室编档号,年度,文件题名,责任者,文件日期,页号,页数,序号,密级,保管期限,备注,文号,件号)Values(?,?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@室编档号",sbdh.Text)
cmd.Parameters.Add("@年度",nd.Text)
cmd.Parameters.Add("@文件题名",wjtm.Text)
cmd.Parameters.Add("@责任者",zrz.Text)
cmd.Parameters.Add("@文件日期",Date.Today)
cmd.Parameters.Add("@页号",yh.Text)
cmd.Parameters.Add("@页数",ys.Text)
cmd.Parameters.Add("@序号",xh.Text)
cmd.Parameters.Add("@密级",mj.Text)
cmd.Parameters.Add("@保管期限",bgqx.Text)
cmd.Parameters.Add("@备注",bz.Text)
cmd.Parameters.Add("@文号",wh.Text)
cmd.Parameters.Add("@件号",jh.Text)
cmd.ExecuteNonQuery
这是保存之后的数据:

图片点击可在新窗口打开查看此主题相关图片如下:保存.png
图片点击可在新窗口打开查看


 回到顶部