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

ado.net

مغلق
بدأه yacoo79 في 20 أكتوبر 2004 · 10 رد · 960 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الموضوع بسيط جداً

عايز أعمل update في أكثر من جدول (اعدل بينات صف)

الكوود

Sub up_date()
       Try
           Dim row As DataSet1.edu_bookRow
           row = Me.DataSet11.edu_book.FindByid(Me.ComboBox3.SelectedValue)
            row.B_baber = CInt(Me.TextBox3.Text)
          row.B_name = Me.TextBox1.Text
           row.B_size = Me.TextBox2.Text
          row.des = Me.TextBox6.Text
          Catch ex As Exception
           mes()
        End Try
        End Sub

الكود ده مش عايز يعمل تعديل خالص

برجاء أيجاد كود يقوم بعمل تعديل للبينات

شكرا

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 20 أكتوبر 2004 في 20:04

#2

قم باضافة هذا الكود

OleDbDataAdapter1.Update(Dataset1, "mytable")
Dataset1.mytable.AcceptChanges()

مع تغيير اسم الجدول

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#3

شكراً لردكم الكريم

بسسسسسسسسسس

للأسف مفيش أي تأثير

يا ريت تعطيني مثال كامل فيه كل العميليات علي قاعدة بينات sql

علشان اأنا شاكك في الأصدار الي عندي من ال dot net

و أخيرا

أطلب من حضرتك أن تتكرم و تعطيني مثال في الكريستال ريبورت و يكون كامل يا ريت

و أشكرك لتعاونك معي

#4

بسم الله الرحمن الرحيم

يا أستاذ طارق ابراهيم

الكود أنا عملته و اشتغل

الكود

 
Dim x As String
        x = "update edu_book set B_size =" & Me.TextBox4.Text.Trim & ",B_baber = " & Me.TextBox2.Text.Trim & ",des = " & Me.TextBox1.Text.Trim & " " & "where id = " & Me.ComboBox1.SelectedValue
        Dim ds As New DataSet
        Dim da As New SqlClient.SqlDataAdapter(x, Me.SqlConnection1)
        da.Fill(ds)

بس يا ريت برضة تبعتلي طريقة تانيه

و يا ريت تعطيني نوذج لل كريستال ريبورت

و أشكرك مرة احري

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 21 أكتوبر 2004 في 08:14

#5

يا أحمد الطريقة الاولى بتاعتك تنفع، لكن انت نسيت أهم سطر في الآخر:

DataSet1.Tables("TableName").Rows.Add(row)

بالنسبة للكريستال ريبورت فأنصحك بتحميل درس فيديو رائع لخضر الترزي، الدرس الثاني الذي يتكلم عن التقارير.

رأس الحكمة الإيمان بالله

#6

شكراً يا محمد للتصليح شكلى محتاج اروح اذاكر ado.net من الاول

yacoo79 لا تنسى ان تعمل update للداتا سيت بعد ان تقوم باضافة ال row للجدول ثم تقوم بالموافقه على التغييرات بداخل قاعدة البيانات

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#7

لكل جواد كبوة يا طارق، أساساً أنا مندهش من أحمد، ازاي مياخدش باله من المشكلة و هو أساساً المعلم بتاعي في الـ ADO.Net :)

رأس الحكمة الإيمان بالله

#8

بسم الله الرحمن الرحيم

يا شباب يا شباب أنا منستش الكود يا شباب بس لما باادد ال row بيحصل مشكله تانيه

.................

كل ال rows بتتعدل بمعني أني لما أنا عايز أعدل خليه واحدة في جدلول كل ال عمود الموجودة فيه الخليه ديه بيتعدل ..

مش عارف ليه

.....

و علي العموم يا شباب جربو الطريقة الثانيه بتقدر تتحكم بطريقة أحسن في الداتا بيز

و ممكن تعمل من خللها العمليات كلها

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

بايييييييييييييييييييييي

#9

بالطبع انت تعمل فى Disconnected Enviroment و فى الطريقه الاولى كان كل تعديلك على الداتا سيت و لم تعدل فى الداتابيس الاصليه

اما فى الطريقه الثانيه فانت قد قمت باستخدام ال Data Adapter و قمت بامرار عبارة ال SQL التى هى عبارة ال Update و هى تقوم بتعديل البيانات فى قاعدة البيانات الاصليه

تبعاً لمعيار معين بكلمة Where و بالتالى فهى قامت بتعديل صف واحد فقط و اثر هذا التغيير على قاعدة البيانات الاصليه

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#10

شكرا لردك يا أستاذ طارق .....

اجو الاهتمام بأعاطئي برنامج كامل فيه كل العميليات الي بتحصل علي الداتا سيت ,,,,

وسا سلام لو كان فيه كريستال ريبورت

وشكرا........

#11

هناك مثال على هذا الرابط

/index.ph...ndpost&p=234930

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

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

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