15-02-15, 11:53 PM
On Error Resume Next
Set rs = Nothing
If rs.State = adStateOpen Then rs.Close
rs.Open "delete table1 where field1 like '" & Text1.Text & "'", Adodc1.ConnectionString, 1, 3
حسب المعطيات داخل حقل text
اذا اردت حذف الحقل كامل استخدم
delete table1
بدون الشرط where
rs.Open "delete table1", Adodc1.ConnectionString, 1, 3
Set rs = Nothing
If rs.State = adStateOpen Then rs.Close
rs.Open "delete table1 where field1 like '" & Text1.Text & "'", Adodc1.ConnectionString, 1, 3
حسب المعطيات داخل حقل text
اذا اردت حذف الحقل كامل استخدم
delete table1
بدون الشرط where
rs.Open "delete table1", Adodc1.ConnectionString, 1, 3
