Dim MyCon As New OleDbConnection
Dim MyCmd As New OleDbCommand
MyCon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\vbprint\lpjk.mdb "
MyCon.Open()
MyCmd.Connection = MyCon
MyCmd.CommandText = "delete from yw_95tmp"
MyCmd.ExecuteNonQuery() '''此处报错,提示信息是无法删除!郁闷中。请高手指点!感谢!
MyCon.Close()
Dim MyCmd As New OleDbCommand
MyCon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\vbprint\lpjk.mdb "
MyCon.Open()
MyCmd.Connection = MyCon
MyCmd.CommandText = "delete from yw_95tmp"
MyCmd.ExecuteNonQuery() '''此处报错,提示信息是无法删除!郁闷中。请高手指点!感谢!
MyCon.Close()
Dim MyCon As New ADODB.Connection
MyCon.Open "provider=microsoft.jet.oledb.4.0;data source=D:\vbprint\lpjk.mdb"
MyCom.Execute "delete from yw_95tmp"
MyCon.Close()表 yw_95tmp 是否存在?