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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]外部数据表

共有6562人关注过本帖树形打印复制链接主题：[求助]外部数据表

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

[求助]外部数据表 发帖心情

Post By：2020/7/10 7:39:00 [显示全部帖子]

老师好，怎样把数据库的一个表赋值给修改窗口表。

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = ----------------------

Dim dst As Table = Tables("修改_Table1")

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/10 12:33:00 [显示全部帖子]

老师，标出的地方直接加载外部数据表 Sel ect * FR OM {库存商品}，不加载查询表

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "execute 商品库存"

Dim dst As Table = Tables("修改_Table1")

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/10 22:17:00 [显示全部帖子]

老师好，项目里面的绑定窗口保存按钮设置不好（代码是论坛上摘来的）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.rar

此主题相关图片如下：image 1.png

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/12 5:44:00 [显示全部帖子]

老师好，通过窗口控件修改后台数据，然后进行保存。老师提供的写入方法不会用，谢谢老师帮忙。（窗口控件已绑定每个列了）

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.Add("@客户","01")
cmd.Parameters.Add("@日期",Date.Today)
cmd.Parameters.Add("@订单编号",100)
cmd.ExecuteNonQuery

[此贴子已经被作者于2020/7/12 5:45:23编辑过]

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 10:09:00 [显示全部帖子]

老师好，还是不理解。

此主题相关图片如下：image 1.png

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 10:30:00 [显示全部帖子]

老师，暂时不想更新，还是用过时代码吧。谢谢老师帮忙。

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 11:25:00 [显示全部帖子]

老师

此主题相关图片如下：image 1.png

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 12:38:00 [显示全部帖子]

老师，下面代码没有修改行而是增加了一行。

Dim cmd As New SQLCommand

cmd.C

With e.form

If .Controls("TextBox2").Value Is Nothing Then

MsgBox("货品编码不能为空!",64,"提示")

Else

cmd.CommandText = "Insert Into 库存商品 (货品编码, 货品类型, 计量单位) Values('" & Tables("修改_Table1").current("货品编码") & "', '" & Tables("修改_Table1").current("货品类型") & "','" & Tables("修改_Table1").current("计量单位") & "')"

cmd.ExecuteNonQuery

.Close()

End If

End With