الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل على datagrid و لكن disconnected

مغلق
بدأه moh1983 في 19 أبريل 2006 · 4 رد · 572 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

عندي datagrid اريد ان اقوم بتعديل البيانات الموجودة فيها و لكن بأستخدام disconnected و ليس بأستحدام sqldata و sql connection wizard tools و لكي اقرب الفكره اليكم التالي

زر بحث يوجد فيه الكود الاتي

Private Sub Button1_CLICK(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next

        DGDataResult.Visible = True

        Dim ConnStr As New SqlClient.SqlConnection
        ConnStr.ConnectionString = "server=(local);database=pc;trusted_connection=yes"
        Dim Sql As String

        Dim txte As String = txtsearch2.Text
        Dim txtd As String = txtsearch.Text


        Sql = "select Name,Type,Price_Sale,Drawer,Other,Notes,Category from joker where name like '" + txtd + "%' and type like '" + txte + "%' order by NAME"
        Dim adp As New SqlClient.SqlDataAdapter(Sql, ConnStr)
        Dim dt As New DataTable
        adp.Fill(dt)

         Me.DGDataResult.DataSource = dt

و عندي 2 textbox يتم ادخال القيمة المراد البحث عنها

و عندي داتاجريد لأظهار النتائج

فهل من الممكن التعديل على الحقل الذي تظهر نتيجته بعد عملية البحث

ارجو المساعدة بأقرب وقت ممكن :)

#2

نعم يمكن

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

والفكرة انه يكون عندك ف احد اعمدة الداتا قريد رقم البرايمري كي وممكن تجعله مخفي او تجعل خاصية readonly = true

ومن ثم عند الضغط على تحديث تقرأ القيم صف صف وتعدلها في قاعدة البيانات

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#3

مشكور بس ممكن توضيح أكثر أو ارسال الكود لاني منتقل من asp.net الى vb.net ارجو المعذرة

#4

اوكي

عندي داتا قريد اسمها dgfloor

هذا الكود عند الضغط على زر حفظ التعديل

If CheckFloors() Then
            For Each dgr As DataGridViewRow In dgfloors.Rows
                UpdateFloors(dgr)
            Next
        End If
'هذي الدالة اللي يتم استدعاءها من داخل الكود تبع زر الحفظ
Private Function UpdateFloors(ByVal r As DataGridViewRow) As Boolean
        Try
            Dim StatusValue As Int16 = 0
            If r.Cells("Status").Value Then StatusValue = 1
            Dim sql As String = "update Floors set " & _
            "floor_Name = '" & r.Cells("Floor_Name").Value & "'," & _
            "Status = '" & StatusValue & "' " & _
            "where Floors_Id=" & r.Cells("Floors_Id").Value
            Dim cmd As New OleDb.OleDbCommand(sql, Conn)
            cmd.ExecuteNonQuery()
            UpdateFloors = True
        Catch ex As Exception
            UpdateFloors = False
            MsgBox(ex.Message)
        End Try

    End Function

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

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#5

مشكور بس في أغلاط كثيرة بالكود يا اخي مثل

CheckFloors() ليس لها تعريف

DataGridViewRow كذلك

ارجو توضيح ما قمت به في هذه الخطوة اذا امكن و مشكور

هذا الموضوع مغلق.

مواضيع مشابهة