以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样从界面保存数据到数据库中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25055)
--  作者：jamesten
--  发布时间：2012/10/30 11:57:00
--  [求助]怎样从界面保存数据到数据库中
 我在界面上定义了个字段：Txt_AcceptDocumentNo
我想通过SAVE按钮把用户录入的数据保存到数据库中，这样写法出错!,正确写法是怎样的呢?
另外，如果界面上的另外一个字段Dtp_RequestDate界面上是DateTimePicker类型，相对应的数据库字段是RequestDate,我需要转换字符处理么？

  Dim kz As String="Txt_AcceptDocumentNo,Dtp_RequestDate"
     Dim sql As String="Insert Into [AcceptDocumentHeader] (AcceptDocumentNo,RequestDate)"
     sql=sql & " Values(\'.Controls("Txt_AcceptDocumentNo").Value\',\'.Controls("Dtp_RequestDate").Value\')"

  cmd.CommandText = sql

     cmd.ExecuteNonQuery()
--  作者：lin_hailun
--  发布时间：2012/10/30 12:02:00
--  
需要改成这样子。 &的意思是连接两个字符串的值。

  sql=sql & " Values(\'" & .Controls("Txt_AcceptDocumentNo").Value & "\',\'" & .Controls("Dtp_RequestDate").Value & "\')"

http://www.foxtable.com/help/topics/1284.htm

http://www.foxtable.com/help/topics/0691.htm
[此贴子已经被作者于2012-10-30 12:04:48编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/10/30 12:05:00
--  

Dim kz As String="Txt_AcceptDocumentNo,Dtp_RequestDate"
Dim sql As String="Insert Into [AcceptDocumentHeader] (AcceptDocumentNo,RequestDate)"
sql = sql & " Values(\'" & e.Form.Controls("Txt_AcceptDocumentNo").Value & "\', #" & e.Form.Controls("Dtp_RequestDate").Value & "#)"
cmd.CommandText = sql
cmd.ExecuteNonQuery()
 
如果是外部数据源，记得指定数据源的名称：
http://www.foxtable.com/help/topics/2344.htm


 
如果是SQL Server，记得日期用\'括起来，所以上面代码的#应该改为\'
 
不过不明白，干嘛整得这么复杂？ 你将输入框绑定到表中的字段，不是很简单的事情吗？ 一行代码而已。
 

[此贴子已经被作者于2012-10-30 12:06:01编辑过]
--  作者：jamesten
--  发布时间：2012/10/30 12:25:00
--  

谢谢各位，测试了，可以录入数据了。

 

当初这样是因为考虑到还有一个单据号码的字段需要根据规则产生，怕直接绑定表的字段不好操作。

 

我会再试下表绑定的方式。