Reset کردن جداول دیتابیس

[masoudcarpet]

لطفا راهنمائی کنید چرا وقتی با این کد تمام رکوردهای جدول را پاک میکنم

PublicSub reset_masoud()

If d.tools("delete * from t1 ") Then

MsgBox(" ", MsgBoxStyle.OkOnly, " ")

Else

MsgBox(" ", MsgBoxStyle.OkOnly, " ")

EndIf

EndSub

با این پیغام روبرو میشم:
Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

[masoudcarpet]

البته اگه امکان داره راه حلش رو هم برام بنویسید

[masoudcarpet]

بالاخره جواب این سوال و ریست کردن AutoNumber در Sql با Vb.net پیدا نشد که نشد .....!!!!!

[C#‎-man]

اگه می خوای یک چدول رو کلا خالی کنی و Auto Number رو هم ریست کنی و بذاری دوباره از صفر یا یک شروع شود باید جدول رو ترانکیت کنی.ولی نباید جدولت با جدول های دیگه relation داشته باشه.کد زیر رو بنویس
Truncate table tablename

[DoDoklak]

با کد زیر میتونی اینکار رو انجام بدی

Dim strselect AsString = "Alter Table TableName Alter COLUMN ID counter(1)"

Dim CmdInsert AsNew OleDbCommand

AccessCon.Open()

CmdInsert = New OleDb.OleDbCommand(strselect, AccessCon)

CmdInsert.ExecuteNonQuery()

AccessCon.Close()

TableName:نام تیبلتونو به جاش بزارید
ID:نام فیلدی که باید صفر شود که اغلب همون ID نام گذاری میشه

برای SQL SERVER سورس تقریبا همونه با یکم تغییر ولی باید باید Query عوض بشه.

Query مخصوص SQL SERVER

DBCC CHECKIDENT ("Schema.TableName", RESEED, 1);