• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

مصطفى_ظيمة

اعضاء
  • عدد المشاركات

    209
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة مصطفى_ظيمة

  1. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته  عندى مشكلة فى كود الترقيم التلقائى  حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل 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("تم بنجاح استعادة تسلسل السجلات", "نجاح") ولكم جزيل الشكر مقدماً
  2. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته   سؤالى بخصوص   انا لدى جدول Tab1 به id و Name و PhoneNu وجدول آخر Tab2  به id و Picture كيف يمكن ربطهما ببعض بحيث يمكن إضافة أكثر من صورة لنفس الشخص بمعنى اذا كان لدى فى الجدول الأول سجل لشخص اسمه محمد ومحمد له اكثر من عدد 3 صور كيف اضيف الثلاثة صور الخاصة بمحمد فى نفس السجل الذى به اسمه والتنقل بينها ؟ ياريت حد يساعدنى فى ذلك ولكم جزيل الشكر
  3. بسم الله الرحمن الرحيم طرحت منذ شهر تقريبا هذا الطلب فى الموضع التالى   ربط جدولين وجلب صور   ولم يتفضل احد من الاخوة بمساعدتى رجاء المساعدة ضرورى
  4. ربط جدولين وجلب صور

    فين الخبرا يا جماعة
  5. ربط جدولين وجلب صور

    أين ذهب القوم
  6. ربط جدولين وجلب صور

    تفضل يا اخى هذه مثال لما اعمل عليه مرفق المثال Multipic.rar
  7. ربط جدولين وجلب صور

    سارفق لحضرتك المثال الذى اعمل عليه واتمنى منك التعديل عليه كما اوضحت فى سؤالى
  8. ربط جدولين وجلب صور

    up
  9. رائع اخى الكريم جزاك الله خيرا ونفع بك
  10. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اهل المنتدى الرائع الذى تعلمت منه الكثير لدى مشكلة بسيطة حيث كنت استخدم هذا الكود فى vb6 لعد تكرار البيانات dim Ks As New ADODB.Recordset If Ks.State = ADODB.ObjectStateEnum.adStateOpen Then Ks.Close() Ks.Open("SELECT * FROM [tb] WHERE [name] LIKE '%" & Trim(Text2.Text) & "%'", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic) If Ks.RecordCount > 0 Then MsgBox("الاسم موجود مسبقا ؟") End If If MsgBox("هـل تريـد الحفـظ على أى حال ؟", MsgBoxStyle.Question + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.YesNoCancel, "رسالة") = MsgBoxResult.Yes Then ثم كود الحفظ حاولت أن احوله إلى  vb 2010  .Net  ولكن لم يفلح رججاء مساعدتى جزاكم الله خيرا
  11. كيف حفظ الصورة فى جدول أخر استدعاءها

    فين المساعدة يا جماعة
  12. بسم الله الرحمن الرحيم الحقيقة هذا المنتدى له فضل كبير على بعد الله سبحانه وتعالى فى حل كثير من مشاكلى البرمجية على مدى سنوات فتحياتى لعباقرة هذا المنتدى   مشكلتى الجديدة تتمثل فى الآتى لدى جدول 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رجاء مساعدتى جزاكم الله خيرا وتحياتى وشكرى مقدما لكل من يتفضل بمساعدتى تحياتى
  13. كيف حفظ الصورة فى جدول أخر استدعاءها

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

     شكرا لك اخ حسام وشكرا لذوقك خالص تحياتى
  15. كيف يمكن تحويل كود عدم التكرار

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

      وما الذى تنصحنى به  من واقع خبراتك ؟
  17. كيف يمكن تحويل كود عدم التكرار

    شكرا جزيلا  يا اخ حسام الكود اشتغل تمام الحمد لله  بالنسبة للتنبيه : ابحث بـ Like .. ولكن لماذا ؟
  18. كيف يمكن تحويل كود عدم التكرار

    يبدو أنى ما اعرفتش اوضح طلبى بصورة تصل للجميع انا مثلا استخدمت هذا الكود ولكن لم يضبط معى نهائياً Dim sqlds As New SqlDataAdapter("SELECT name FROM tb WHERE name LIKE '" & Trim$(TextBox2.Text) & "'", con) MsgBox("هـذا الاسم موجـود مسبقاً") If MsgBox("هـل تريـد الحفـظ على أى حال ؟", MsgBoxStyle.Question + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.YesNoCancel, "رسالة") = MsgBoxResult.Yes Thenثم كود الحفظ هل يمكن التعديل على هذا الكود ؟
  19. كيف يمكن تحويل كود عدم التكرار

    معقولة 32 مشاهدة وما فيش رد واحد ايه الموضوع صعب انا لم اعهد ذلك فى المنتدى
  20. ما الخطأ فى كود الحفظ ... رجاء الدخول

    تم والحمد لله حل المشكلة
  21. كود الحفظ التالى يعطى رسالة خطأ عند محاولة الحفظ الكود Try Dim dr As SqlDataReader If Trim(TextBox2.Text) = "" Then MsgBox("عفـوا... يجـب إدخـال رقـم القـرار ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Message") TextBox2.Focus() Exit Sub End If Dim cmd1 As SqlCommand = New SqlCommand("SELECT nu from tb order by nu", con) If con.State = ConnectionState.Open Then con.Close() con.Open() dr = cmd1.ExecuteReader() If dr.HasRows() Then MsgBox(" الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ") If MsgBox(" الرقم التسلسلي التالي موجود من قبل ...هل تريد تحديث البيانات ", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "تنبيه") = MsgBoxResult.Cancel Then Exit Sub End If End If If TextBox2.Text = "" Then 'كود اضافة سجل جديد Dim Add_NewRow As DataRow = SQLDataSet1.Tables("tb").NewRow() If TextBox2.Text = "" Then Add_NewRow("nu ") = DBNull.Value Else Add_NewRow("nu ") = TextBox2.Text.Trim If ComboBox1.Text = "" Then Add_NewRow("adress") = DBNull.Value Else Add_NewRow("adress") = ComboBox1.Text.Trim SQLDataSet1.Tables("tb").Rows.Add(Add_NewRow) 'كود حفظ الاضافة Validate() SQLDataAdapter1.Update(SQLDataSet1, "tb") SQLDataSet1.AcceptChanges() 'تحديث قاعدة البيانات con.Open() SQLDataSet1.Clear() SQLDataAdapter1.Fill(SQLDataSet1, "tb") con.Close() 'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات Me.BindingContext(SQLDataSet1, "tb").Position = Me.BindingContext(SQLDataSet1, "tb").Count - 1 MsgBox("تم الاضافة بنجاح", 64, "نجاح") End If Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Tryصورة رسالة الخطأ
  22. ما الخطأ فى كود الحفظ ... رجاء الدخول

    ياسيدى الفاضل انا قلت فى المشاركة السابقة على مشاركتك ان الجدول به بيانات كثيرة حوالى 3000 سجل
  23. ما الخطأ فى كود الحفظ ... رجاء الدخول

    أخى الفاضل أسأل الله العظيم رب العرش العظيم أن يشفى لك والدك شفاء لا يغادره سقم أما عن ردك فالجدول به بيانات كثيرة والكود On Erorr Resume Next  فلم يقدم ولم يؤخر المشكلة تختفى عند حذف كود الفلترة للبيانات المكررة فما سبب ظهور هذا الخطأ رجاء المساعدة وشكراً مقدماً لمن يتفضل بالمساعد
  24. بسم الله الرحمن الرحيم عند محاولة فتح Visual Basic 2010 تظهر رسالة الخطأ الموضح فى الصورة       ما الحل افادكم الله