[momani33]

السلام عليكم

ارجو المساعده في تنفيذ استعلام حذف البيانات من جدول في قاعدة بيانات سيكوال سيرفر  من خلال زر كوماند في فجوال بيسك دوت نت

حيث اني اقوم بحذف جميع البيانات من خلال تنفيذ الاستعلام التالي لحذف جميع البيانات من خلال سيكوال سيرفر :

delete from item


المطلوب : كود  حذف البيانات من الجدول item   في قاعدة سيكوال سيرفر من خلال واجهة فجوال بيسك 
مع الشكر والتقدير للجميع

[اسامه الهرماوي]

وعليكم السلام...
تفضل:

كود :

Try
               TextBox1.Text = datagridview1.CurrentRow.Cells(0).Value.ToString()
           Catch ex As Exception

           End Try

           If con.State = ConnectionState.Closed Then
               con.Open()
           End If

           Dim cmd1 As New sqlCommand
           cmd1.Connection = con
           cmd1.CommandType = CommandType.Text
           cmd1.CommandText = "DELETE FROM الجدول WHERE عمود_الترقيم_التلقائي = " & Val(TextBox1.Text) & ""

           cmd1.ExecuteScalar()
           con.Close()
           MsgBox("تم الحذف بنجاح")

[boudyonline]

TRUNCATE TABLE item

[momani33]

للاسف صديقي لم يفلح الكود ---- قاعدة البيانات سيكوال سيرفر

---

قمت بتنفيذ الكود التالي :
Dim flag As Boolean = Me.Button1.Enabled = True
55:
' The following expression was wrapped in a checked-statement
If flag Then

While True
Dim num As Integer = 0
Dim num2 As Integer = 0
Dim selectCommandText As String = "select * from item"
Dim sqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(selectCommandText, Module1.sqlconn)
Dim dataSet As DataSet = New DataSet()
sqlDataAdapter.Fill(dataSet)
Dim dataTable As DataTable = dataSet.Tables(0)
Dim dataRow As DataRow = dataTable.Rows(0)
dataRow.Delete()
Dim sqlCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(sqlDataAdapter)
sqlDataAdapter.Update(dataTable)
num += 1
Dim numx As Integer = num
num2 = 50000
If numx > num2 Then
GoTo 55
End If
End While
End If
لكن المشكلة ان تنفيذ الكود في عملية الحذف بطيء جدا في عملية حذف البيانات ارجو من الخبراء التعديل لتكون عملية الحذف سريعة

[اسامه الهرماوي]

لو لديك فورم وتريد عمل اي شئ عليه قم بوضعة وسيتم الإفادة بإذن الله