Private Sub Command1_Click()
select * from sfdata where ye<>0
End Sub



老会报语法错误。

如果不报错才怪。
真是狂晕。

指点一下，我刚学。你只要帮我改成正常就行了。谢谢了！

先认认真真的学，找个vb+数据库的书认认真真的啃一遍，不然的话会笑死斑竹的！！！！1

你的SQL语句没有错

这是你完全不懂vb访问数据库！！！

还是要先好好学

我的全过程是这样的：

Private Sub Command1_Click()
delect from sfdata where ye<>0
End Sub

Private Sub Form_Load()
Dim dbase As Database
Dim rs As Recordset
Set dbase = OpenDatabase(App.Path & "\one5.mdb")
Set rs = dbase.OpenRecordset("sfdata ")
End Sub

注意：
select * from sfdata where ye<>0
它不是VB程序
它是SQL语句
它不运行在VB环境下，它运行在可以使用SQL语句的数据库环境下，比如ACCESS，SQL，VFP等等。
所以它不能以VB程序的形式存在于VB中，只能以字符串的形式存在。
比如：sql="select * from sfdata where ye<>0"

原来是这样呀，怪我看书不认真。我原来是用VF的所以以为VB也可以这样用。谢谢了