请教一个问题，错在哪？

初学者　发表于：2010-07-29 15:21:13 　

Private Sub Command5_Click()
Dim strSQL As String
strSQL = "DELETE yeb.*" _
& "FROM yeb" _
& "WHERE (((yeb.日期) ＝#2010-7-1#));"
DoCmd.RunSQL strSQL
End Sub

Top

煮江品茶发表于：2010-07-29 15:27:42

错在缺少空格来分割语句吧？

Top

煮江品茶发表于：2010-07-29 15:30:05

strSQL = "DELETE yeb.* "

strSQL =strSQL & "FROM yeb "

strSQL =strSQL & "WHERE (((yeb.日期) ＝#2010-7-1#));"

Top

初学者发表于：2010-07-29 16:46:58

还是不对啊

Top

煮江品茶发表于：2010-07-29 16:51:21

不会吧？每一句引号中有空格吗？

用msgbox strSQL看看出来的sql语句有没有问题。

Top

红尘如烟发表于：2010-07-30 20:24:27

Private Sub Command5_Click()
Dim strSQL As String
strSQL = "DELETE FROM yeb WHERE 日期=#2010-7-1#"
DoCmd.RunSQL strSQL
End Sub

Top

麥田发表于：2010-07-30 20:39:31

strSQL = "DELETE yeb.* " _
& "FROM yeb " _
& "WHERE (((yeb.日期) ＝#2010-7-1#));"

Top

钱玉炜发表于：2010-07-31 08:35:22

你干脆些到一行算了，不要分开写了

Top

Victor Duane 发表于：2010-07-31 19:38:12

呵呵，很显然是没有空格引发的错误

Top

何华发表于：2010-08-02 14:26:15

好东西啊，好好学习

Top

初学者发表于：2010-08-10 16:31:35

Private Sub Command5_Click()
Dim strSQL As String
strSQL = "DELETE yeb.* " _
& "FROM yeb " _
& "WHERE (((yeb.日期) ＝#2010-7-1#));"
DoCmd.RunSQL strSQL
End Sub

Top

初学者发表于：2010-08-10 16:39:24

红尘如烟的例子能过，但我就是搞不明白哪里出错了

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

[5分]请教一个问题，错在哪？