Office中国论坛/Access中国论坛

标题: 关于插语语句问题的求助 [打印本页]

作者: yuzhusisi 时间: 2009-10-20 15:02
标题: 关于插语语句问题的求助
本帖最后由 yuzhusisi 于 2009-10-20 16:03 编辑

我做了一个插入语句,向一个表里添加数据,如下:

DoCmd.RunSQL ("INSERT INTO overtime([startime],[endtime],[lunch],[supper],[pay_times],[com_name],[overtime_p],[work_date]) VALUES (Forms![work]![work_sub]![startime],Forms![work]![work_sub]![endtime],Forms![work]![work_sub]![lunch],Forms![work]![work_sub]![supper],Forms![work]![work_sub]![pay_times],Forms![work]![work_sub]![com_name],Forms![work]![work_sub]![Combo29],Forms![work]![work_sub]![work_date])")

我的操作系统上可以正确的向表里添加一条数据,可是用同事的操作系统执行此语句,添加的是一条空白的记录,这是怎么回事呀,各位有没有遇到过此类现象,我用我的2003和xp全部试过来,结果是一样的都没问题,有没有其它可替换语句呀
附有附件中的例子,各位给瞧瞧

作者: todaynew 时间: 2009-10-20 16:16
本帖最后由 todaynew 于 2009-10-20 16:32 编辑

可用记录集试试：

Dim myctls as controls
Dim rs As New ADODB.Recordset
Dim ssql As String
Set myctls=Forms("work").controls("work_sub").Form.controls
ssql = "select * from overtime"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Add
rs("startime")=myctls("startime").Value
rs("endtime")=myctls("endtime").Value
.....
rs("work_date")=myctls("work_date").Value
rs.update
rs.close

作者: yuzhusisi 时间: 2009-10-20 16:27
我试一下,谢谢

作者: yuzhusisi 时间: 2009-10-20 16:44
可以了耶,非常感谢

作者: todaynew 时间: 2009-10-20 17:05
祝贺成功，不必客气。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)