以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教，通过表单添加数据库数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32795)
--  作者：cqyanglm
--  发布时间：2013/5/8 13:11:00
--  求教，通过表单添加数据库数据

求教，谢谢了

现在，设计好一个窗口，窗口内有一个表A及添加按钮，当在表A内输入数据后

按添加按钮，数据可被保存在数据库对应的字段内。

如图：图1表A  ，图2 ACCESS数据库

 


图片点击可在新窗口打开查看此主题相关图片如下：03.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：04.jpg
图片点击可在新窗口打开查看
--  作者：don
--  发布时间：2013/5/8 13:25:00
--  
大概如此:

For  r1 as row In Tables("A").Rows
   Dim SQL as string ="UPDATE {订单} SET 当月用电量 =" & r1("当月用电量") & "," & "当月用水量 =" & r1("当月用水量") & " WHERE 工序 = \'" & r1("工序") & "\'"
    Dim cmd As New SQLCommand
    cmd.ConnectionName = "region"

   cmd.CommandText = SQL

   cmd.ExecuteNonQuery()
Next


DataTables("订单").Load