حذف سطرهای خالی فایل اکسل از محیط وی بی

[SlowCode]

سلام
خب مسیر دیتابیس رو اول تنظیم کن بعد این کد رو بنویس :

adodc1.recordsource="select * from table1 where field1='' or field2='' or field3=''"

adodc1.refresh

with adodc1.recordset

for i=1 to .recordcount

.delete

.movenext

next

End with

اگه با adodb وصل میشی میتونی از این کد استفاده کنی:

Delete * from table1 where field1='' or field2='' or field3=''