[مصطفى_ظيمة]

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

اعمل على حفظ بيانات فى جدولين
وفى أحد الجدولين يتم حفظ عدة صور

تم الربط بين الجدولين بواسطة الكود ويعمل تمام الحمد لله

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

أعمل على vb 2010
قاعد البيانات Access 2003

الخطأ كما فى الصورة

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

[سعود]

وعليكم السلام ورحمة الله وبركاته
كيف عبات الداتاست؟
اكتب جملة الاستعلام لعل الخطا فيها او لعل الحل بطريقة اخرى.

[مصطفى_ظيمة]

(05-05-15, 05:50 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
كيف عبات الداتاست؟
اكتب جملة الاستعلام لعل الخطا فيها او لعل الحل بطريقة اخرى.

تفضل يا أخى

كود :

Dim cmd As OleDbCommand = New OleDbCommand("SELECT Tab.id,Tab.name,Tab.phone,Tab.datee,Tab1.idnam,Tab1.pic  from Tab,Tab1 where Tab.id=Tab1.id", con)

[سعود]

اكيد بس هذا الكود؟؟
اذا نعم فهذا السبب لانه لم تتم تعبئة الداتاست dataset1 بعد!!!
ام انك اسندت  selectcommand هذا  لمكيف البيانات؟

---

شوف الموضوع هذا
https://msdn.microsoft.com/en-us/library...-snippet-1

[مصطفى_ظيمة]

(05-05-15, 07:28 PM)سعود كتب : اكيد بس هذا الكود؟؟
اذا نعم فهذا السبب لانه لم تتم تعبئة الداتاست dataset1 بعد!!!
ام انك اسندت  selectcommand هذا  لمكيف البيانات؟

---

شوف الموضوع هذا
https://msdn.microsoft.com/en-us/library...-snippet-1

الحقيقة أخى لم افهم شئ من الرابط

فعلا الجدول Tab1 فارغ من السجلات

هذا كود الاتصال بقاعدة البيانات

كود :

Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=12345")

هذا باقى الكود لملء الـ Dataset1

كود :

'Dim cmd As OleDbCommand = New OleDbCommand( "Select * From Tab Inner Join Tab1 On Tab1.id = Tab.id Where Tab.id = 1",con)
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT Tab.id,Tab.name,Tab.phone,Tab.datee,Tab1.idnam,Tab1.pic  from Tab,Tab1 where Tab.id = Tab1.idnam", con)
       'Dim cmd As OleDbCommand = New OleDbCommand("SELECT id,name,phone,datee  from Tab order by ID ", con)
       DataAdapter = New OleDbDataAdapter(cmd)
       Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter)

       con.Open()
       DataSet1 = New DataSet

       DataAdapter.Fill(DataSet1, "Tab")

       con.Close()



       Label1.DataBindings.Add("Text", DataSet1, "Tab.id")
       TextBox1.DataBindings.Add("text", DataSet1, "Tab.name")
       TextBox2.DataBindings.Add("text", DataSet1, "Tab.phone", 2, 2)
       TextBox3.DataBindings.Add("text", DataSet1, "Tab.datee", 2, 2)

وممكن ابعتلك مثال لو تحب

[سعود]

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

---

اذا لم تجد حل مارايك تشوف الموضوع هنا
http://vb4arb.com/vb/Thread-%D9%85%D8%B4...9%8A%D8%AF
وهي مجرد حيلة قد لا تنفع

[مصطفى_ظيمة]

هاجرب اللى فى الرابط وارد عليك
شكرا اخى سعود
تعبتك معايا

[مصطفى_ظيمة]

تم حل المشكلة وجزاكم الله خيرا