السلام عليكم
ارجو المساعده في تنفيذ استعلام حذف البيانات من جدول في قاعدة بيانات سيكوال سيرفر من خلال زر كوماند في فجوال بيسك دوت نت
حيث اني اقوم بحذف جميع البيانات من خلال تنفيذ الاستعلام التالي لحذف جميع البيانات من خلال سيكوال سيرفر :
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("تم الحذف بنجاح")
للاسف صديقي لم يفلح الكود ---- قاعدة البيانات سيكوال سيرفر
قمت بتنفيذ الكود التالي :
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
لكن المشكلة ان تنفيذ الكود في عملية الحذف بطيء جدا في عملية حذف البيانات ارجو من الخبراء التعديل لتكون عملية الحذف سريعة
لو لديك فورم وتريد عمل اي شئ عليه قم بوضعة وسيتم الإفادة بإذن الله