كود الاضافة في vb

ضع الكود اخي الكريم!

شكرا على الاهتمام

شكرا على الاهتمام

add.txt

add.txt

حياك الله يا أخي الكريم

Adodc1.Recordset.AddNew
Adodc2.Recordset.AddNew
Adodc3.Recordset.AddNew


Adodc1.Recordset![aircode] = Val(Text1.Text)
Adodc1.Recordset![airline_name] = Text2.Text

Adodc2.Recordset![city_code] = Val(Text3.Text)
Adodc2.Recordset![city_name] = Text4.Text
Adodc2.Recordset![country] = Text5.Text

Adodc3.Recordset![aircraft_code] = Val(Text6.Text)
Adodc3.Recordset![Source] = Text7.Text
Adodc3.Recordset![destination] = Text8.Text
Adodc3.Recordset![depth_time] = Val(Text9.Text)
Adodc3.Recordset![Type] = Text10.Text
Adodc3.Recordset![journey_his] = Val(Text11.Text)

اخي وين الـ Update????

Adodc1.Recordset.Update

Adodc2.RecordSet.Update

Adodc3.RecordSet.Update

يجب إضافة السابق لكي يتم حفظ البيانات !!

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

Adodc1.Recordset.AddNew

Adodc2.Recordset.AddNew

Adodc3.Recordset.AddNew

Adodc1.Recordset![aircode] = Val(Text1.Text)

Adodc1.Recordset![airline_name] = Text2.Text

Adodc2.Recordset![city_code] = Val(Text3.Text)

Adodc2.Recordset![city_name] = Text4.Text

Adodc2.Recordset![country] = Text5.Text

Adodc3.Recordset![aircraft_code] = Val(Text6.Text)

Adodc3.Recordset![source] = Text7.Text

Adodc3.Recordset![destination] = Text8.Text

Adodc3.Recordset![depth_time] = Val(Text9.Text)

Adodc3.Recordset![Type] = Text10.Text

Adodc3.Recordset![journey_his] = Val(Text11.Text)

Adodc1.Recordset.Update

Adodc2.Recordset.Update

Adodc3.Recordset.Update

MsgBox " saved", vbMsgBoxRight + vbMsgBoxRtlReading, "it is saved"

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

شاكر للجميع

اخي الكريم ..

لا تحفظ قواعد البيانات بدون وجود Update ... فوجودها حتمي ... والا كانت النتيجة هشوائيه .. بمعنى قد يحفظ وقد لا يحفظ.. وان غيرت فيها غير في السجل الحالي عى أعتبار بأنك تريد التعديل عليه.. وان اغلقت قد يكون اهر تعديل علها هو اللي تم وقد يكون الموضوع به عشوائيه بدونها..

ولكن .. الكود الموجود سليم.. مالم يكن هناك معطيات اخرى قد تؤثر عليه.... فأن ظهرت رسالة خطأ او خطأ في الحفظ فتأكد انها ليس من هذا الكود بل من كود اخر أثر عليه...

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

شكرا على تعاونك

اذا حسب كلامك لا يوجد خطاء بالكود

B) وسوف احاول تطبيق ماقلته