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

جملة الشرط في في الـربط

بدأه munita في 26 يونيو 2011 · 7 رد · 505 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

وآجهتي هي للأطبآء فيها داتا جريد فيو .. تعرض معلومات الأطباء من الداتا بيس

وإذا حدث اي تغيير على القاعدة يتم حفظ التغييرات وإرسالها إلى قاعدة البيانات على السيرفر

كود عرض البيانات

Dim cmd As New SqlClient.SqlCommand
    Dim ds1 As New DataSet
    Dim da As New SqlClient.SqlDataAdapter

        cmd.Connection = ramacon
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "select* from dbo.Doctors"
        Try
            da.SelectCommand = cmd
            ds1.Tables.Add(New DataTable("doc"))
            ds1.Tables(0).BeginLoadData()
            da.Fill(ds1.Tables(0))
            ds1.Tables(0).EndLoadData()
            DataGridView1.DataSource = ds1.Tables(0).DefaultView
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

لكن كود حفظ التغييرات لم استطع حله .. ياريبت مساعدتكم !!

ويعطيكم العآفيه ..

#2

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

اختي اين كود التعديل ليتم حفظ التغييرات؟!!

.:: Wish to become better and better ::.

#3

هذآ هو .. بس ماني عآرفه طريقته حآولت فيه زي ما شرحت التيشر بس فشلت

وكل ما شغلت البرنامج يقول فيه خطأ !!

 Dim row As DataRow
        If (ds1.HasChanges(DataRowState.Modified)) Then
            Dim ds As DataSet = ds1.GetChanges(DataRowState.Modified)
            For Each row ds1 
                Dim er As String
                er = "current title is " & row("title", data row virsion.current)
                MessageBox.Show(er, "modifid rows")
            Next


        End If

انتظر مسآعدتكـ اخوي ^^

تم تعديل هذه المشاركة بواسطة munita في 27 يونيو 2011 في 01:19

#4

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

اختي ممكن تحددي في اي سطر يظهر الخطأ؟ وايش رسالته؟

.:: Wish to become better and better ::.

#5

اوكي الخطأ في ::: For Each row ds1 >>> هنآ آنا ماني عارفه اي دآتا ست احدد الأصلية ام النسخه !!

والخطأ الثاني هنآ ..:: er = "current title is " & row("title", data row virsion.current) في كلمة row مع اني عرفتها في بدآية الكود بس لا آعرف ما المشكلة !!

#6

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

اختي عدلي السطر التالي For Each row ds1 الى

For Each row As DataRow In ds1.Tables(0).Rows

.:: Wish to become better and better ::.

#7

يعطيك العآآآآآآآآآآآآفيه اخوي .. مشى الحآآل

مشكور وما قصرت ^^

#8

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

لاشكرا على واجب اختي .. بالتوفيق ..

.:: Wish to become better and better ::.

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