PDA

View Full Version : Reset کردن جداول دیتابیس



masoudcarpet
پنج شنبه 26 آذر 1388, 21:32 عصر
لطفا راهنمائی کنید چرا وقتی با این کد تمام رکوردهای جدول را پاک میکنم

Public Sub reset_masoud()
If d.tools("delete * from t1 ") Then
MsgBox(" ", MsgBoxStyle.OkOnly, " ")
Else
MsgBox(" ", MsgBoxStyle.OkOnly, " ")
End If
End Sub

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

masoudcarpet
پنج شنبه 26 آذر 1388, 21:33 عصر
البته اگه امکان داره راه حلش رو هم برام بنویسید

masoudcarpet
جمعه 27 آذر 1388, 10:33 صبح
بالاخره جواب این سوال و ریست کردن AutoNumber در Sql با Vb.net پیدا نشد که نشد .....!!!!!:عصبانی++:

c#-man
جمعه 27 آذر 1388, 18:07 عصر
اگه می خوای یک چدول رو کلا خالی کنی و Auto Number رو هم ریست کنی و بذاری دوباره از صفر یا یک شروع شود باید جدول رو ترانکیت کنی.ولی نباید جدولت با جدول های دیگه relation داشته باشه.کد زیر رو بنویس
Truncate table tablename

DoDoklak
شنبه 28 آذر 1388, 11:02 صبح
با کد زیر میتونی اینکار رو انجام بدی

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);