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编辑过]