تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال (/showthread.php?tid=34961) |
تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - momani33 - 26-05-20 السلام عليكم ارجو المساعده في تنفيذ استعلام حذف البيانات من جدول في قاعدة بيانات سيكوال سيرفر من خلال زر كوماند في فجوال بيسك دوت نت حيث اني اقوم بحذف جميع البيانات من خلال تنفيذ الاستعلام التالي لحذف جميع البيانات من خلال سيكوال سيرفر : delete from item المطلوب : كود حذف البيانات من الجدول item في قاعدة سيكوال سيرفر من خلال واجهة فجوال بيسك مع الشكر والتقدير للجميع RE: تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - اسامه الهرماوي - 27-05-20 وعليكم السلام... تفضل: كود : Try RE: تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - boudyonline - 27-05-20 TRUNCATE TABLE item RE: تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - momani33 - 28-05-20 للاسف صديقي لم يفلح الكود ---- قاعدة البيانات سيكوال سيرفر قمت بتنفيذ الكود التالي : 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 لكن المشكلة ان تنفيذ الكود في عملية الحذف بطيء جدا في عملية حذف البيانات ارجو من الخبراء التعديل لتكون عملية الحذف سريعة RE: تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال - اسامه الهرماوي - 28-05-20 لو لديك فورم وتريد عمل اي شئ عليه قم بوضعة وسيتم الإفادة بإذن الله |