جستجوی یک فیلد در دیتابیس و حذف آن

[shafie-rayaneh]

سلام خسته نباشید
من میخوام چند فیلد که یک شماره فاکتور یکسان دارند را در یک تیبل در دیتابیس جستجو کنم و همه آنها را حذف کنم دستوری که نوشتم اینه:

If Adodc3.Recordset.EOF Then '3
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.Fields!Factor_ID = IDF
Adodc3.Recordset.Delete
Adodc3.Recordset.MoveNext
Loop
Adodc3.Recordset.Close
Else
Do While Adodc3.Recordset.Fields!Factor_ID = IDF
Adodc3.Recordset.Delete
Adodc3.Recordset.MoveNext
Loop
Adodc3.Recordset.Close
End If

مشکل من اینه که شماره ای که داخل متغیر IDF هست رو نمیخونه و رد میکنه
ممنون میشم اگه راهنمایی کنید.

[vbhamed]

سلام
Delete * From Table1 Where Factor_ID = 1000

[shafie-rayaneh]

آقا حامد سلام خسته نباشید
من میخوام اون فیلد هایی که ای دی شون با IDF یکی هست رو پیدا کنه و همه رو حذف کنه این کد رو زدم ولی ارور میده میشه کامل کد ها شو برام بزارید. ممنون

[vbhamed]

سلام
Dim cnn As New ADODB.Connection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\test.mdb" & ";Persist Security Info=False"
cnn.Open
cnn.Execute "Delete * From Table1 Where Factor_ID = " & IDF
cnn.Close

ConnectionString رو باید مطابق بانک خودتون تنظیم کنید، این نمونه برای یک فایل mdb است.