+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
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("تم الحذف بنجاح")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
لو لديك فورم وتريد عمل اي شئ عليه قم بوضعة وسيتم الإفادة بإذن الله