الســـــــــــــــلام عليكم محتاحة لكم ........

[طيـف]

:smailes7: اخوي واستاذي المبرمج المشرف على القسم ادري اثقلت عليكم بكثرة طلبي ولكن قدرو ضروفي ما اعرف مبرمجين يتجاوبون معي الاانتم ولذلك اقوم الان بطرح موضوعي الا وهو ..اني صلحت برنامج ادخال بيانات (اضافة للاكسس) صلحت كل شي ولاظهرلي اي خطأ وبعد مانفذت طلع عندي لون اخظر في كود فتح الاتصال شوف اخوي وش الحل وهذا الكود..
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection
i.CommandText = "insert into book
(اسم الموظف,تاريخ التجديد,تاريخ إدخال البيانات,معلومات المرض,غير ذلك,غير مزمن,مزمن,هاتف العمل,هاتف المنزل,عنوان السكن,عنوان الوحدة,الوحدة,المستوى التعليمي,الرقم العــام,الرتبة/المرتبة,طالب,متقاعد،متعاقد،معار،مدني،عسكري،مكان الميلاد،السجل المدني،اسم المريض،رقم الملف الطبي)values(" & TextBox1.Text & ", " & TextBox2.Text & ", " & TextBox3.Text & " ," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & "," & TextBox10.Text & "," & TextBox11.Text & "," & TextBox12.Text & "," & TextBox13.Text & "," & TextBox14.Text & "," & TextBox15.Text & "," & TextBox16.Text & "," & TextBox17.Text & "," & TextBox18.Text & "," & TextBox19.Text & "," & TextBox20.Text & "," & TextBox21.Text & "," & TextBox22.Text & "," & TextBox23.Text & ")"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")

[يــس]

وعليكم السلام
أختي لم أستطع أن أنفذ الكود حتى أتمكن من معرفة مكان الخطأ -لغياب قاعدة البيانات والفورم-
لدا ضعي الكود بين العبارتين Try وCatch كالشكل التالي:
Try
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection
i.CommandText = "insert into book (اسم الموظف,تاريخ التجديد,تاريخ إدخال البيانات,معلومات المرض,غير ذلك,غير مزمن,مزمن,هاتف العمل,هاتف المنزل,عنوان السكن,عنوان الوحدة,الوحدة,المستوى التعليمي,الرقم العــام,الرتبة/المرتبة,طالب,متقاعد،متعاقد،معار،مدني،عسكري،مك ان الميلاد،السجل المدني،اسم المريض،رقم الملف الطبي)values(" & TextBox1.Text & ", " & TextBox2.Text & ", " & TextBox3.Text & " ," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & "," & TextBox10.Text & "," & TextBox11.Text & "," & TextBox12.Text & "," & TextBox13.Text & "," & TextBox14.Text & "," & TextBox15.Text & "," & TextBox16.Text & "," & TextBox17.Text & "," & TextBox18.Text & "," & TextBox19.Text & "," & TextBox20.Text & "," & TextBox21.Text & "," & TextBox22.Text & "," & TextBox23.Text & ")"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try

ونفذي المشروع وأخبريني بالرسالة التي سيعطيكــ
موفقة إن شاء الله

[طيـف]

اخوي يعطيك الف عافية كتبت الكود وطلعت الرسالة هذي
The Connection String Property has not been initialized

[يــس]

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

ولقد صححته في الكود أعلى
لدا ضعي الكود الذي وضعته لكـ فوق كمثال مكان الكود بتاعكـ

بالتوفيق

[طيـف]

اسفة على الازعاج اخوي انا وضعت الكود اللي انت كاتبة لي يعني سويت " نسخ " وطلعتلي الرسالة

[يــس]

أختي ما نوع الحقول كاملة في الداتابيس ؟

هل كلها text أم لا ؟

[طيـف]

أختي ما نوع الحقول كاملة في الداتابيس ؟

هل كلها text أم لا ؟

نعم كلها text اشكرك الرد السريع انا بانتظارك

[يــس]

طيب أختي

يلزمكـ أن تضيفي العلامة (') قبل وبعد كتابة قيمة الحقل في نص CommandText
- الكود:

Try
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection
i.CommandText = "insert into book (اسم الموظف,تاريخ التجديد,تاريخ إدخال البيانات,معلومات المرض,غير ذلك,غير مزمن,مزمن,هاتف العمل,هاتف المنزل,عنوان السكن,عنوان الوحدة,الوحدة,المستوى التعليمي,الرقم العــام,الرتبة/المرتبة,طالب,متقاعد،متعاقد،معار،مدني،عسكري،مكان الميلاد،السجل المدني،اسم المريض،رقم الملف الطبي)values('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "' ,'" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "'," & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox16.Text & "','" & TextBox17.Text & "','" & TextBox18.Text & "','" & TextBox19.Text & "','" & TextBox20.Text & "','" & TextBox21.Text & "','" & TextBox22.Text & "','" & TextBox23.Text & "')"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try

تذكري جيدا أنه عندما تريدين إضافة قيمة حقل نصي خلال التعامل مع أي قاعدة بيانات يلزمك إضافة العلامة (') قبل وبعد كتابتها

بالتوفيق

[طيـف]

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

[يــس]

أختي الكريمة إرفعي لي الفورم وحدها في مشروع جديد وقاعدة البيانات
وإن شاء الله أشوف المشكلة فين

تحياتي

[طيـف]

اخوي وشلون ارسلك البرنامج مافية مرفقات والا ارسلك صورة الفورم بس كيف ادرج الصورة انا واثقة انك ان شاء الله تبي تحل مشكلتي علشان كذا انا متحمسة بس كيف ودي ارسلك البرنامج
هو عبارة عن فورم واحد بس لكن التكستات 23 ......... :smailes63:

[طيـف]

C:\********s and Settings\dec\Desktop\الفورم.JPG هذا صورة من الكود انتمنى ان تظهر

[يــس]

أختي إرفعي المشروع بعدما تعملي له ضغط إلى الموقع التالي :
www.9q9q.net

لأن الصورة لن تفيد بشيء

[طيـف]

http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/KmiRQpKnI/----------.rar.html)

[يــس]

أختي لم أركي تعملين ربط لقاعدة البيانات
فكيف لك أن تضيفي بيانات دون ربط قاعدة البيانات بالبرنامج

لدا أضيفي هذا الكود مباشرة بعد العبارة Try :
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data source=" & Application.StartupPath & "\SSS.mdb;"

وعدلي هذا السطر :
Dim oledbconnection1 As New OleDbConnection

بهذا :
Dim oledbconnection1 As New OleDbConnection(ConStr)

وقومي بهذه العملية لجميع الكوند اللي عندكـ

لم أستطع أختي التعديل على البرنامج لأنه ليس لدي العربية بالفيجوال دوت نت

بالتوفيق

[طيـف]

اخوي والله عذبتك معي طلع لي رسالة خطاء في جملة insert into مع العلم اني وجدت خطأ عندي اني كاتبة اسم الجدول book وهو في الاصل B وصلحته لكن برضوا مانفذ طلعت الرسالة ..

[يــس]

اخوي والله عذبتك معي طلع لي رسالة خطاء في جملة insert into مع العلم اني وجدت خطأ عندي اني كاتبة اسم الجدول book وهو في الاصل B وصلحته لكن برضوا مانفذ طلعت الرسالة ..

مافي مشكلــة أختي

بس إنتي قلتي لي أن جميع الحقول في الجدول من نوع Text وعندما رأيت الداتابيس لاحظت أنه يوجد مجموعة من الحقول من نوع Numerique

لدا أختي عدلي في جملة insert بنزع العلامة (') من قبل وبعد الحقول التي من نوعية Numerique وعوضيها بالدالة Val كأن تعملي :

& Val(text1.text) &
ملحوظـــة :الحقل تاريخ الميلاد وجميع الحقول التي تمثل تاريخ ما مايلزم تكون من نوع Numérique ادا كان المستخدم سيدخل التاريخ كاملا -يوم/شهر/سنة
لدا ضعيه من نوع Date/Heure أو Text

[طيـف]

http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/qRN37ZXUt/----------.rar.html) اخوي هذا البرنامج مرة ثانية جميع الحقول عندي تكستات مادري ليش يطلع لك غير لذا حملته مرة ثانية شوف........

[يــس]

http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/qRN37ZXUt/----------.rar.html) اخوي هذا البرنامج مرة ثانية جميع الحقول عندي تكستات مادري ليش يطلع لك غير لذا حملته مرة ثانية شوف........

لا أختي أنا بتكلم عن الحقول في الداتابيس

يإما تعدليهم كلهم إلى Texte في الداتابيس وتتركي الكود كما هو
أو تخلي الدتابيس كما هي وتعدلي الكود كما قلت لكـ في المشاركة السابقة

[طيـف]

http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/iJFwTtx1w/---.rar.html)

[يــس]

السلام عليكم

أختي أنا أتكلم عن قاعدة البيانات SSS.mdb حيث توجد حقول من نوع Numérique وأنت قلتي لي أن جميع الحقول من نوع Texte لدا عدلي نوعيتهم الى Texte في الداتابيس أو عدلي في الكود كما شرحت لكــ في المشاركات السابقة

أرجو أن تكون وصلت الفكرة

[طيـف]

وعليكم السلام.. يـــــــــــــــــــــــــــــارب ينفذ معاي البرنامج والله موراضي يتصلح شوو الحل..اخوي والله ازعجتك معاي اخوي الله يسهلك كل امرعسير..اميـــــــــــــن.. وضعت اللي قلتلي وطلعت لي رسالة:smailes12:
The Connection String Property has not been initialized
وشوف هذا الكود بعد التعديل
Try
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection
i.CommandText = "insert into book (اسم الموظف,تاريخ التجديد,تاريخ إدخال البيانات,معلومات المرض,غير ذلك,غير مزمن,مزمن,هاتف العمل,هاتف المنزل,عنوان السكن,عنوان الوحدة,الوحدة,طالب,متقاعد،متعاقد،معار،مدني،عسكري،م كان الميلاد،تاريخ الميلاد,السجل المدني،اسم المريض،رقم الملف الطبي)values( & Val(text1.text) & , '" & TextBox2.Text & "', & Val(text3.text) & , & Val(text4.text) & ,'" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "'," & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "', & Val(text15.text) & , & Val(text16.text) & ,'" & TextBox17.Text & "','" & TextBox18.Text & "','" & TextBox19.Text & "','" & TextBox20.Text & "', & Val(text20.text) & , & Val(text22.text) & ,'" & TextBox23.Text & "')"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[يــس]

أختي لم أركي تعملين ربط لقاعدة البيانات
فكيف لك أن تضيفي بيانات دون ربط قاعدة البيانات بالبرنامج

لدا أضيفي هذا الكود مباشرة بعد العبارة Try :
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data source=" & Application.StartupPath & "\SSS.mdb;"

وعدلي هذا السطر :
Dim oledbconnection1 As New OleDbConnection

بهذا :
Dim oledbconnection1 As New OleDbConnection(ConStr)

وقومي بهذه العملية لجميع الكوند اللي عندكـ

لم أستطع أختي التعديل على البرنامج لأنه ليس لدي العربية بالفيجوال دوت نت

بالتوفيق

أختـــــاه ماذا عن هذا التعديل الدي طلبته منكــ
لم أركـ فعلتيه

[طيـف]

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

Try
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data source=" & Application.StartupPath & "\SSS.mdb;"
Dim i As New OleDbCommand
Dim oledbconnection1 As New OleDbConnection(ConStr)
i.CommandText = "insert into B (اسم الموظف,تاريخ التجديد,تاريخ إدخال البيانات,معلومات المرض,غير ذلك,غير مزمن,مزمن,هاتف العمل,هاتف المنزل,عنوان السكن,عنوان الوحدة,الوحدة,طالب,متقاعد،متعاقد،معار،مدني،عسكري،م كان الميلاد،تاريخ الميلاد,السجل المدني،اسم المريض،رقم الملف الطبي)values( & Val(text1.text) & , '" & TextBox2.Text & "', & Val(text3.text) & , & Val(text4.text) & ,'" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "'," & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "', & Val(text15.text) & , & Val(text16.text) & ,'" & TextBox17.Text & "','" & TextBox18.Text & "','" & TextBox19.Text & "','" & TextBox20.Text & "', & Val(text20.text) & , & Val(text22.text) & ,'" & TextBox23.Text & "')"
i.Connection = oledbconnection1
oledbconnection1.Open()
i.ExecuteNonQuery()
oledbconnection1.Close()
MessageBox.Show("تم اضافة سجل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[يــس]

أختي الكريمة لم تعملي بهذه المشاركة التي قدمتها لكــ في طلبكـ الأول في موضوع آخر من كم يوم وهي :

*أختي الكريمة
عندي ملاحظة أولية حاولي تصححيها وجربي إن مشى معاكـ الحال أو لا
وهي أننا نستعمل العلامة -,- للفصل بين حقول الجدول وليس العلامة -،-
إنتي استعملتي العلامة الأولى فقط لتفريق الحقلين الأولين أما الباقي لأ
صححي هذا الخطأ وبعدين ردي عليٌ

بالتوفيــــــق

ثانيا حاولي أن تضعي الترتيب الصحيح للحقول في العبارة insert وتأكدي من كتابة الحقول كما هي موجودة في الداتابيس
على سبيل المثال -الحقل مكان الميلاد - لا يكتب هكذا : م كان الميلاد
صححي مثل هاته الأخطاء وإن شاء الله يمشي معاكـ الحال
لأن الخطأ الآن محصور في العبارة insert فقط

بالتوفيق