منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم يا اخوان عندي شكلة في قاعدة البيانات و هي انه يرفض التحديث و يرسل لي

إن توليد SQL بشكل ديناميكي لـ DeleteCommand غير معتمد مقابل SelectCommand الذي لا يُرجع معلومات أي عمود مفتاح.

يا ليت تساعدوني

وعليكم السلام

أهلا أخي SonBasel

أرجوا منك وضع تفاصيل أكثر وصور توضح شكل الجدول والأوامر التي تستخدمها 

بهذة الطريقة نحتاج ساحر لمعرفة المشكلة.

إذا لم يخب ظني أن الجدول لا يحتوي على مفتاح أساسي ( primary key )

إذا كان لا يوجد مفتاح أساسي في الجدول ( لن تستطيع إنشاء أوامر الحذف + التحديث ) بشكل ديناميكي

(15-09-18, 11:50 PM)عبدالله الدوسري كتب : [ -> ]إذا لم يخب ظني أن الجدول لا يحتوي على مفتاح أساسي ( primary key )

إذا كان لا يوجد مفتاح أساسي في الجدول ( لن تستطيع إنشاء أوامر الحذف + التحديث ) بشكل ديناميكي

أو قد يكون يحتوي على مفتاح ولكنه استعلم بأعمدة محددة لم يكن بين بينها عمود المفتاح.
مثل

(16-09-18, 12:07 AM)911 كتب : [ -> ]

(15-09-18, 11:50 PM)عبدالله الدوسري كتب : [ -> ]إذا لم يخب ظني أن الجدول لا يحتوي على مفتاح أساسي ( primary key )

إذا كان لا يوجد مفتاح أساسي في الجدول ( لن تستطيع إنشاء أوامر الحذف + التحديث ) بشكل ديناميكي

أو قد يكون يحتوي على مفتاح ولكنه استعلم بأعمدة محددة لم يكن بين بينها عمود المفتاح.
مثل

كود :

SELECT FirstName, LastName From Employees

انا معرف primary key  مع ظهور الصفحه و ما اتوقع ذا الشي ياثر و محدده في الاستعلام

---

(15-09-18, 11:50 PM)عبدالله الدوسري كتب : [ -> ]إذا لم يخب ظني أن الجدول لا يحتوي على مفتاح أساسي ( primary key )

إذا كان لا يوجد مفتاح أساسي في الجدول ( لن تستطيع إنشاء أوامر الحذف + التحديث ) بشكل ديناميكي

يوجد primary key

(17-09-18, 09:31 AM)elgokr كتب : [ -> ]

وعليكم السلام ورحمة الله وبركاته

فضلاً وليس امراً 

بدلاً من التعامل مع التخمين

قم بوضع الاكواد المستخدمة

وصورة لما يظهر لديك من مشكلة

حتى نتمكن من وضع الرد المناسب فيما لديك من مشكلة

تحياتى لك

وتمنياتى لك التوفيق

اسف توقعت اني مرسلها من امس بس طلع النت علق و ما ارسلها

يا ريت توضيح اكثر ويفضل وضع جميع الاكواد لان المشكلة التي ذكرتها اغلب اسبابها
هو المفتاح الرئيسي بالجدول الذي من خلاله تتم عمليات النحديث والحذف

(17-09-18, 09:38 PM)aljzazy كتب : [ -> ]

كود :

Imports System.Data.SqlClient
Public Class WatchList

   Dim sqlcon As New SqlConnection("server=desktop-8ao3o4k\mssqlserver2017; database=DB_WatchList; Integrated security=true")
   'تنفيذ
   Dim Adapter As SqlDataAdapter
   'تخزين
   Dim DT As New DataTable

   Dim cmdb As SqlCommandBuilder

   Private Sub WatchList_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

       DGV.BackgroundColor = Me.BackColor

       Dim query As String = "select ID, Name ,Eps ,TimeTike ,DateStr, DateEnd from TBL_WatchList"
       Adapter = New SqlDataAdapter("select * from TBL_WatchList", sqlcon)

       Adapter.Fill(DT)

       Me.DGV.DataSource = DT

       DGV.Columns(0).HeaderText = "رقم العمل"
       DGV.Columns(1).HeaderText = "اسم العمل"
       DGV.Columns(2).HeaderText = "عدد الحلقات"
       DGV.Columns(3).HeaderText = "الوقت المستغرق"
       DGV.Columns(4).HeaderText = "وقت البدايه"
       DGV.Columns(5).HeaderText = "وقت الانتهاء"

       DGV.Columns(0).Width = 80
       DGV.Columns(1).Width = 330
       DGV.Columns(2).Width = 80
       DGV.Columns(3).Width = 100
       DGV.Columns(4).Width = 100
       DGV.Columns(5).Width = 100

       'ID.Value = 0
       'txtName.Clear()
       'NumEps.Value = 1
       'NumTime.Value = 20
       'DateStr.Value = Now.Date
       'DateEnd.Value = Now.Date

       ' نخليه الممنوع التكرر
       DT.Constraints.Add("primary", DT.Columns("ID"), True)

   End Sub

   Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
       '  add()

       Try

           Dim row As DataRow = DT.NewRow

           row(0) = ID.Value
           row(1) = txtName.Text
           row(2) = NumEps.Value
           row(3) = NumTime.Value
           row(4) = DateStr.Value
           row(5) = DateEnd.Value

           DT.Rows.Add(row)
           cmdb = New SqlCommandBuilder(Adapter)
           Adapter.Update(DT)
           MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "الاضافة")

           txtName.Clear()
           ID.Value = ID.Value + 1
           NumEps.Value = 1
           NumTime.Value = 20
           DateStr.Value = Now.Date
           DateEnd.Value = Now.Date
           txtName.Focus()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub

   Dim oldID As Integer

   Private Sub btndel_Click(sender As System.Object, e As System.EventArgs) Handles btndel.Click
       Try
           Dim row As DataRow = DT.Rows.Find(ID.Value)

           If row Is Nothing Then

               MsgBox("هذا العمل غير موجود", MsgBoxStyle.Exclamation, "الحذف")

           Else

               row.Delete()
               cmdb = New SqlCommandBuilder(Adapter)
               Adapter.Update(DT)
               MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")
               txtName.Clear()
               NumEps.Value = 1
               NumTime.Value = 20
               DateStr.Value = Now.Date
               DateEnd.Value = Now.Date
               txtName.Focus()
           End If
       Catch ex As Exception
           MsgBox(ex.Message,MsgBoxStyle.Exclamation,"خطأ")
       End Try

   End Sub


   '  Sub add()

   '  End Sub

   Private Sub ID_ValueChanged(sender As System.Object, e As System.EventArgs) Handles ID.ValueChanged
       Try
           If ID.Value = Nothing Then

               ID.Value = 1
           Else
               Dim row As DataRow = DT.Rows.Find(ID.Value)
               If row IsNot Nothing Then
                   oldID = row(0)
                   txtName.Text = row(1)
                   NumEps.Value = row(2)
                   NumTime.Value = row(3)
                   DateStr.Value = row(4)
                   DateEnd.Value = row(5)
               ElseIf (ID.Value <> oldID) Then
                   txtName.Clear()
                   NumEps.Value = 1
                   NumTime.Value = 20
                   DateStr.Value = Now.Date
                   DateEnd.Value = Now.Date
               End If
           End If
       Catch ex As Exception
           'MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub btnEdit_Click(sender As System.Object, e As System.EventArgs) Handles btnEdit.Click

       Try
         
           Dim row As DataRow = DT.Rows.Find(oldID)

           row(0) = ID.Value
           row(1) = txtName.Text
           row(2) = NumEps.Value
           row(3) = NumTime.Value
           row(4) = DateStr.Value
           row(5) = DateEnd.Value
           cmdb = New SqlCommandBuilder(Adapter)
           Adapter.Update(DT)

           MsgBox("تمت عملية التحديث", MsgBoxStyle.Information, "التحديث")
           ID.Value = +1
           txtName.Clear()
           NumEps.Value = 1
           NumTime.Value = 20
           DateStr.Value = Now.Date
           DateEnd.Value = Now.Date
           txtName.Focus()

       Catch ex As Exception

       End Try

   End Sub

End Class

يا ريت توضيح اكثر ويفضل وضع جميع الاكواد لان المشكلة التي ذكرتها اغلب اسبابها
هو المفتاح الرئيسي بالجدول الذي من خلاله تتم عمليات النحديث والحذف

مو فاهم قصدك بالتوضيح لكن ذا الاكواد كلها

الكود الذي وضعتة لا يشرح شيء في شكل الجدول الموجود في قاعدة البيانات

برجاء ضع صورة لشكل الجدول الموجود في قاعدة البيانات ( شكل التصميم  ) لو سمحت.

طولتها على نفسك وهي قصيرة

صورة وحدة بس