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

[مخالف - عنوان غير مناسب :]مشكلتي....عند ربط الأ

مغلق
بدأه حنانو في 2 سبتمبر 2007 · 7 رد · 1,224 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا صممت فورم فيها 2 تكست بوكس وزر ..بحيث ادخل بيانات منها واضغط الزر عشان تدخل البيانات الى الداتا بيس (اكسس) لكن النتيجه انه يكتب في سطر واحد يعني اذا عملت ادخال للبيان مره ثانيه ..يمسح ويكتب فوق اللي كان موجود!! ..انا بحثت كثير ...بس مالقيت اللي ابغى ...محتاجه البرنامج هذا ضروري ...اتمنى مساعدتكم مع العلم ان الكود اللي في الاسفل استخدمته تمام مع sql

code]Dim conn As New OleDb.OleDbConnection]

طبعا هذا اللي فوق عرفته اول الكلاس داخل الفورم

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim insert_str As String = "insert into Table1 values ('" & Me.TextBox1.Text & "' , '" & TextBox2.Text & "')"

If conn.State = Data.ConnectionState.Closed Then

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"

conn.Open()

End If

Dim ocmd As New OleDb.OleDbCommand(insert_str, conn)

ocmd.ExecuteNonQuery()

End Sub

تم تعديل هذه المشاركة بواسطة حنانو في 3 سبتمبر 2007 في 02:30

لا تحسبن المجد تمرا انت آكله **** لن تبلغ المجد حتى تلعق الصبر

*^*^*^*^*^*

اشتدي ازمة تنفرجـــــــــــــــي **** قد آذن فجرك بالبــــــــــــــــــــلج

#2

أخي العزيز لو ضغط الزر مرتين راح يحدث خطأ لآنك لم تقوم بأٌقفال الداتابيز

هذا الشرط If conn.State = Data.ConnectionState.Closed Then لا تحتاجه

ويجب أن يكون هناك ترتيب في البرنامج أولا تبدء بتعريف مسار الداتابيز وفتحها

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"

conn.Open()

ثم تكتب جملة السلكت

Dim insert_str As String = "insert into Table1 values ('" & Me.TextBox1.Text & "' , '" & TextBox2.Text & "')"

ثم تقوم بتنفيذ

Dim ocmd As New OleDb.OleDbCommand(insert_str, conn)

ocmd.ExecuteNonQuery()

ثم تقفل الكوماند و الداتابيز

conn.close()

comd.Dispose()

هذا كله داخل

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

وسوف يشتغل البرنامج بدون أخطأ أن شاء الله

#3

جزاك الله خير انحلت المشكله بس مو بسبب الكود ....لا كان بسبب انه كل مره يعمل رن للبرنامج ينسخ نسخه من الداتا بيس على الموجوده مسبقا داخل ملف bin

وهذا حصل بسبب انه طلع لي مسج يقول (هل تريد كل مره تعمل تشغيل للبروجكت ان ينسخ الداتا بيس لداخل المشروع؟ وكنت اختار نعم وغيرت الكونيكشن واخترت لا)

والحمد لله مشت الامور

بس السؤال ...انا حطيت ملف المشروع + ملف اكسس... داخل ملف واحد يجمعهم

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

لا تحسبن المجد تمرا انت آكله **** لن تبلغ المجد حتى تلعق الصبر

*^*^*^*^*^*

اشتدي ازمة تنفرجـــــــــــــــي **** قد آذن فجرك بالبــــــــــــــــــــلج

#4

اريد اعمل كود لل update و delete

بنفس الكود السابق مع تغيير هذه فقط :

insert into Table1 values

الى :

Dim update_str As String = "update fileTable set الموضوع= '" & TextBox1.Text & "' ,'جهة العمل'= '" & TextBox2.Text & "' ,التاريخ= '" & Me.DateTimePicker1.Value.ToString() & "' , 'نوع المعاملة'='" & Me.ComboBox2.SelectedItem & "' where 'رقم الملف'='" & TextBox3.Text & "' "

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

ارجوا الرد لو تكرمتم

لا تحسبن المجد تمرا انت آكله **** لن تبلغ المجد حتى تلعق الصبر

*^*^*^*^*^*

اشتدي ازمة تنفرجـــــــــــــــي **** قد آذن فجرك بالبــــــــــــــــــــلج

#5

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#6

اخي ...المشرف محمد سامر

انا اعرف قواعد المشاركه ...لكن والله اجتهدت في اختيار الموضوع وماطلع معي غير كذا ...وانا اخترته لاني مااشوف انه مخالف كنت بوضح قدر المستطاع ان الموضوع مشكله عندي مو تعليم ...وفعلا كان عندي مشكله عند الربط بالفورم وانحلت ...واحتجت لاشياء اخرى فقلت افضل اسأل هنا بدل ماكل شوي انزل موضوع ...

لكن صرت غلطانه!!!

لا تحسبن المجد تمرا انت آكله **** لن تبلغ المجد حتى تلعق الصبر

*^*^*^*^*^*

اشتدي ازمة تنفرجـــــــــــــــي **** قد آذن فجرك بالبــــــــــــــــــــلج

#7

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

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 17 سبتمبر 2007 في 23:09

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#8

تأسف إدارة الفريق العربي لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع.

قواعد طرح المشاركات

/index.php?showtopic=29343

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…