Private Sub Command1_Click() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ado\test.mdb;Persist Security Info=False" cn.Open cn.Execute ("delete from table where riqi=#" & Text1.Text & "#") End Sub
sql="delete * from table where format(riqi,'YYYY-MM-DD')='"& format(TEXT1.TEXT,"YYYY-MM-DD")&"'"
"delete from table where riqi=#" & Text1.Text & "#"
dim rs as new adodb.recordset dim cn as new adodb.connection cn.ConnectionString ="..." rs.open "select * from 表名 where 日期字段 = #" & Format(Text1.text, "mm/dd/yyyy") & "#",cn,adOpenDynamic, adLockOptimistic rs.delete rs.update rs.close
dim rs as new adodb.recordset dim cn as new adodb.connection cn.ConnectionString ="..." rs.open "select * from 表名 where 日期字段 = #" & cdate(Text1.text) & "#",cn,adOpenDynamic, adLockOptimistic rs.delete rs.update rs.close
dim db as Dao.database set db=opendatabase("c:\mdb.mdb")db.execute "delete * from table where format(riqi,'YYYY-MM-DD')='"& format(TEXT1.TEXT,"YYYY-MM-DD")&"'"
delete from table where riqi>=#" & cdate(Text1.Text) & "# AND riqi<=#" & cdate(Text2.Text) & "#"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ado\test.mdb;Persist Security Info=False"
cn.Open
cn.Execute ("delete from table where riqi=#" & Text1.Text & "#")
End Sub
dim cn as new adodb.connection
cn.ConnectionString ="..."
rs.open "select * from 表名 where 日期字段 = #" & Format(Text1.text, "mm/dd/yyyy") & "#",cn,adOpenDynamic, adLockOptimistic
rs.delete
rs.update
rs.close
dim cn as new adodb.connection
cn.ConnectionString ="..."
rs.open "select * from 表名 where 日期字段 = #" & cdate(Text1.text) & "#",cn,adOpenDynamic, adLockOptimistic
rs.delete
rs.update
rs.close
set db=opendatabase("c:\mdb.mdb")db.execute "delete * from table where format(riqi,'YYYY-MM-DD')='"& format(TEXT1.TEXT,"YYYY-MM-DD")&"'"
:)