• الإعلانات

    • فيصل الحربي

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

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

mzgr2013

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

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

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

كل شيء نشر بواسطة mzgr2013

  1. السادة الكرام المشرقين والزملاء    تحية طيبة ::::: وضعت هذة المشاركة بعد ان بحثت كثير ا راجينا ان الجد الحل عندكم    مشكلتي اني عندي برنامج مبيعات مصممه ب vb6 مرنبط بقاعدة بينات  اكسس  فجاءة قاعدة البينات فقدة الاتصال و صارة فيها مشكلة  فقدت بعض الجداول  وفقدت البيانات من البعض الاخر  والمشكلة بها بيانات سنة كاملة ومهمة جدا جدا    كيف اصلحها او اعيدها لتاريخ سابق او اي حل    ارجوا المساعدة    بحثت كثيرا ولم اجد شيا     
  2. شكر علي اهتمامك سيد تيجر بس ما نفع معاها وتعطي مسج  لايمكن اصلاح قاعدة البياتات او انها ليست ملف قاعدة بيانات صحيح   امشكلة انو القاعدة كبيرة لم استطع رفعها هنا  لو مش ممنوع تعطيني اميلك ارفعهالك    مشكورين 
  3. بارك الله فيك اخي  بس باي اصدار المثال ما اشتغل عندي استخدم vb2008 مشكور انا مهتم بالموضوع جدا
  4. السادة اعضاء المنتدي  نحبة طيبة  انا مبرمج vb6 وانتقلت الي الدوت نت بس واجهتني مشاكل ارجوا منكم مساعدني    مثلا 1- استخدم الكود التالي لاسترجاع البيانات من القاعدة لعرضها في مربعات النص  فعندما تكون القاعدة فارغة او بها احد الحقول فارغ  يعلق البرنامج  فكبف اعدل في الكود بحيث يجتاز الكود اذا وجد الحقول فارغة       cmd = New SqlCommand("Select * From emp where id_num = " & TextBox1.Text & " ", con)            con.Open()            dr = cmd.ExecuteReader                        While dr.Read()                Me.TextBox2.Text = dr(0)                Me.TextBox3.Text = dr(2)                Me.TextBox4.Text = dr(3)                Me.TextBox6.Text = dr(4)                Me.dtp1.Text = dr(5)                Me.ComboBox1.Text = dr(6)                Me.ComboBox2.Text = dr(7)                Me.ComboBox3.Text = dr(8)                Me.TextBox7.Text = dr(9)                Me.TextBox8.Text = dr(10)                Me.TextBox9.Text = dr(11)                Me.TextBox10.Text = dr(12)                Me.PictureBox1.ImageLocation = (Form1.TextBox6.Text & "\pic\" & TextBox1.Text & ".jpg")             End While            dr.Close()            con.Close()
  5. السلام عليكم ورحمة الله  اخوتي الاعزاء  لدي مشروع مبرمج بواسطة vb2008 وقاعدة بيانات sql 2005  وضعت في الواجهة الرئيسية  lable وجعلته يتحرك لعمل مثل الشريط الاخباري  تبقي لي ان اجعل خاصية text لليبل تمتلئ من عمود موجود بقاعدة البيانات به اكثر من خلية  الجدول اسمه مثلا note  والحقل اسمة  مثلا data _n  يوجد بالخلية الاولي  لا تنسي ذكر الله  والثانية                اشغل وقتك بالاستغفار  والتالثة                 سبحان الله      اريد ان يظهر في  lable   هاكذا    لا تنسي ذكر الله  * اشغل وقتك بالاستغفار * سبحان الله     ويبداء من جديد    ارجوا ان اكون قد وفقت في الشرح    ارجوا المساعدة 
  6. اشكرك اخي ابو حازم وفي انتظارك    اما عن الكود فراجعته واشتغل بس اصبح العكس لا يجلب السجل الاخير  مثلا لو عندي 4 سجلات يجيب لعند 3 ويرجع من الاول 
  7. اشكرك abuhazem لقد طبقت مثالك بتفصيل ولم يعطني اي خطاء ولكن وقف في السجل الاخير ولا يغير  معي العلم باني جاعل خاصية interval =5000 و enabled = true للتايمر  والجدول في القاعدة من عمودين   no_num وهو رقم ومفتاح اساسي  no_name  وهو text وفيه الجمل المراد ظهورها بتتعابع علي الليبل    ارجو المساعدة 
  8. اشكرك مشرفنا القدير محمد فؤاد علي الرد ولكن اتبعت كل الطرق الي في المثال ولم يعمل يعطي خطاء ويقف عتد     Label10.Text = cmd.ExecuteScalar     هذا كود الاتصال      Dim con As New SqlConnection("server=.\SQLEXPRESS; Database=hr; Integrated security=true")     Dim cmd As New SqlCommand("note", con)     كود التايمر    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick           Try                          cmd.CommandType = CommandType.StoredProcedure             con.Open()             Label10.Text = cmd.ExecuteScalar             con.Close()         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub   لا ادي اين الخطاء في الكود   واكرر شكري وامتناني