تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال
#1
السلام عليكم

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

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

delete from item


المطلوب : كود  حذف البيانات من الجدول item   في قاعدة سيكوال سيرفر من خلال واجهة فجوال بيسك 
مع الشكر والتقدير للجميع
الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
تفضل:
كود :
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("تم الحذف بنجاح")
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#3
TRUNCATE TABLE item
Don't Be The Perfect one
be the right one
الرد
تم الشكر بواسطة:
#4
للاسف صديقي لم يفلح الكود ---- قاعدة البيانات سيكوال سيرفر

قمت بتنفيذ الكود التالي :
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
لكن المشكلة ان تنفيذ الكود في عملية الحذف بطيء جدا في عملية حذف البيانات ارجو من الخبراء التعديل لتكون عملية الحذف سريعة
الرد
تم الشكر بواسطة:
#5
لو لديك فورم وتريد عمل اي شئ عليه قم بوضعة وسيتم الإفادة بإذن الله
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اتصال بقاعدة البيانات عمور2016 14 427 منذ 5 ساعة مضت
آخر رد: عمور2016
  [سؤال] انشاء تقرير Crystal report يأخذ البيانات من عدة جداول محمد العامر 6 139 منذ 10 ساعة مضت
آخر رد: DR.YASER
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 79 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  مساعدة في هذا الكود ahmedfa71 0 46 01-07-20, 02:50 PM
آخر رد: ahmedfa71
  اضافة اصفار للرقم علي يسار لتخزين في قاعدة البيانات cordava 1 88 27-06-20, 12:16 PM
آخر رد: kiki
Heart التعديل على استعلام التحديث في قاعدة البيانات alshandodi 3 115 22-06-20, 12:45 AM
آخر رد: alshandodi
  طلب تعديل الكود ahmedramzyaish 2 126 19-06-20, 01:42 AM
آخر رد: ahmedramzyaish
  تحديث عمود واحد فقط في الداتاقريد فيو وتخزين البيانات في sql جيولوجي مبتدئ 3 142 18-06-20, 11:00 AM
آخر رد: جيولوجي مبتدئ
Exclamation [سؤال] مشكلة في ربط قاعدة البيانات Access 2007 مع مشروع vb2010 Hamza lads 11 450 18-06-20, 05:11 AM
آخر رد: Hamza lads
  [VB.NET] تحويل القيمة فارغة الي صفر في قاعدة البيانات sql Codack 2 129 16-06-20, 06:43 PM
آخر رد: kiki

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم