مصطفى_ظيمة

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته  عندى مشكلة فى كود الترقيم التلقائى  حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة  وهذا هو الكود المستحدم فى عملى استعادة الترقيم  If SQLBindingSource1.Count = 0 Then Beep() : Exit Sub Application.DoEvents() Dim cmd As New SqlCommand("", con) con.Open() 'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه cmd.CommandText = "ALTER TABLE Tab1 DROP CONSTRAINT PrimaryKey" cmd.ExecuteNonQuery() ' ID كود حذف حقل الترقيم التلقائي الي اسمه cmd.CommandText = "ALTER TABLE Tab1 DROP COLUMN ID " cmd.ExecuteNonQuery() 'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه cmd.CommandText = "ALTER TABLE Tab1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key " cmd.ExecuteNonQuery() 'تغيير نوعية الحقل من ترقيم تلقائي الى رقم cmd.CommandText = "ALTER TABLE Tab1 ALTER COLUMN ID Long" cmd.ExecuteNonQuery() con.Close() 'تحديث قاعدة البيانات SQLDataSet1.Clear() SQLDataAdapter1.Fill(SQLDataSet1, "Tab1") DataGridView1.AllowUserToAddRows = False MsgBox("تم بنجاح استعادة تسلسل السجلات", "نجاح") ولكم جزيل الشكر مقدماً

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

فين الخبرا يا جماعة

أين ذهب القوم

تفضل يا اخى هذه مثال لما اعمل عليه مرفق المثال Multipic.rar

سارفق لحضرتك المثال الذى اعمل عليه واتمنى منك التعديل عليه كما اوضحت فى سؤالى

up

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته   سؤالى بخصوص   انا لدى جدول Tab1 به id و Name و PhoneNu وجدول آخر Tab2  به id و Picture كيف يمكن ربطهما ببعض بحيث يمكن إضافة أكثر من صورة لنفس الشخص بمعنى اذا كان لدى فى الجدول الأول سجل لشخص اسمه محمد ومحمد له اكثر من عدد 3 صور كيف اضيف الثلاثة صور الخاصة بمحمد فى نفس السجل الذى به اسمه والتنقل بينها ؟ ياريت حد يساعدنى فى ذلك ولكم جزيل الشكر

رائع اخى الكريم جزاك الله خيرا ونفع بك

فين المساعدة يا جماعة

ماشاء الله 32 مشاهدة وما فيش رد واحد يارب الفرج من عندك

بسم الله الرحمن الرحيم الحقيقة هذا المنتدى له فضل كبير على بعد الله سبحانه وتعالى فى حل كثير من مشاكلى البرمجية على مدى سنوات فتحياتى لعباقرة هذا المنتدى   مشكلتى الجديدة تتمثل فى الآتى لدى جدول tb به  حقول Id و name ولدى Form1  بها TextBoxs للحقلين السابقين وبالفورم أيضا PictureBox   ولدى جدول أخر tbpic لحفظ الصورة ومن ثم استعداءها فى الـ PictureBox  على الـ Form1 الهدف هو حفظ اكثر من صورة فى نفس الحقل وبالتالى التنقل بينها بأزرار الأول والتالى والسابق والأخير   قمت بحفظ الصورة واستدعاءها مؤقتا فى جدول tb  بالكود التالى Dim imgByteArray() As Byte Dim Row_Num As Integer = Me.BindingContext(SQLDataSet1, "tb").Position imgByteArray = SQLDataSet1.Tables("tb").Rows(Row_Num).Item("pic") If (imgByteArray.Length > 0) Then Dim Stream As New MemoryStream(imgByteArray, True) Dim Img As System.Drawing.Image = New Bitmap(Stream) PictureBox1.Image = Img Stream.Close() End Ifرجاء مساعدتى جزاكم الله خيرا وتحياتى وشكرى مقدما لكل من يتفضل بمساعدتى تحياتى

 شكرا لك اخ حسام وشكرا لذوقك خالص تحياتى

  ساراعى ذلك ... واشكرك شكرا جزيلا على مساعدتك لى ونصيحتك وشكرا لكل من حاول مساعدتى   الاخ حسام لدى مشكلتين اخريين فى برنامجى  ... احداهما بسيطة والاخرى صعبة بالنسبة لى فهل ترجح ان اطرحها عليك هنا ام اطرحها فى موضوع جديد حتى لا اخل بتنظيم المنتدى ولتحقيق اكبر استفادة للجميع مع مراعاة ان هدفى من طرحها هنا ان تساعدنى انت شخصيا فى حلها :) الراى لك .. فى انتظار ردك وشكرا لك مرة اخرى وجزاكم الله خيرا

  وما الذى تنصحنى به  من واقع خبراتك ؟