mzgr2013

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

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

بارك الله فيك اخي  بس باي اصدار المثال ما اشتغل عندي استخدم vb2008 مشكور انا مهتم بالموضوع جدا

السادة اعضاء المنتدي  نحبة طيبة  انا مبرمج 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()

اشكرك اخي ابو حازم وفي انتظارك    اما عن الكود فراجعته واشتغل بس اصبح العكس لا يجلب السجل الاخير  مثلا لو عندي 4 سجلات يجيب لعند 3 ويرجع من الاول 

اشكرك abuhazem لقد طبقت مثالك بتفصيل ولم يعطني اي خطاء ولكن وقف في السجل الاخير ولا يغير  معي العلم باني جاعل خاصية interval =5000 و enabled = true للتايمر  والجدول في القاعدة من عمودين   no_num وهو رقم ومفتاح اساسي  no_name  وهو text وفيه الجمل المراد ظهورها بتتعابع علي الليبل    ارجو المساعدة 

اشكرك مشرفنا القدير محمد فؤاد علي الرد ولكن اتبعت كل الطرق الي في المثال ولم يعمل يعطي خطاء ويقف عتد     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   لا ادي اين الخطاء في الكود   واكرر شكري وامتناني 

السلام عليكم ورحمة الله  اخوتي الاعزاء  لدي مشروع مبرمج بواسطة vb2008 وقاعدة بيانات sql 2005  وضعت في الواجهة الرئيسية  lable وجعلته يتحرك لعمل مثل الشريط الاخباري  تبقي لي ان اجعل خاصية text لليبل تمتلئ من عمود موجود بقاعدة البيانات به اكثر من خلية  الجدول اسمه مثلا note  والحقل اسمة  مثلا data _n  يوجد بالخلية الاولي  لا تنسي ذكر الله  والثانية                اشغل وقتك بالاستغفار  والتالثة                 سبحان الله      اريد ان يظهر في  lable   هاكذا    لا تنسي ذكر الله  * اشغل وقتك بالاستغفار * سبحان الله     ويبداء من جديد    ارجوا ان اكون قد وفقت في الشرح    ارجوا المساعدة