منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

أعمل على 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)

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

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

قلت لعل احد يفيدنا.

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصطفى_ظيمة

سعود

مصطفى_ظيمة

سعود

مصطفى_ظيمة

سعود

مصطفى_ظيمة

مصطفى_ظيمة