[atefkhalf2004]

السيد الفاضل
عايزين رابط 2014  يعمل علي ويندوز 7    32

[atefkhalf2004]

مرة  اخري

برجاء  رابط

او ارفع  قاعدة 2008  تجرب  بها  

مفصوله  غير  الاولي 
كل سنة وانت طيب 
شهر كريم

[atefkhalf2004]

هل يصلح هذا المثال علي فيجوال 2008 
وسكول  2008
جربت ولم يصلح  مع تغيير ما يلزم  من اسم القاعدة والجدول الداخلي 

افيدونا

[atefkhalf2004]

عرفت الخطا  كان  في حرف
شكرا

[atefkhalf2004]

الاستاذ جميل علي

كيف
يتم النسخ كل ساعتين مثلا يوميا

[ابراهيم ايبو]

الشكر والامتنان اقل مايجب ان يقال نحتاج في هذا الموقع الغالي الى هكذا امثلة جزاكم الله كل خير

[dametucorazon]

جزاك الله خيرا اخي الفاضل

[essawq]

كلمة شكر لا تكفي

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

اخي الكريم تمت التجربة على قاعدة بيانات بها ثلاث جداول كل شيء تماام  

لكن اخي عند التفريغ يتم تفريغ جدول واحد وهو المكتوب هنا

كود :

Dim str As String = ("Delete from [woork1]")

عندي جدول اخر باسم Month_Information لا يتم تفريغة حاولت اعدل واضيف اسم الجدول لكن لم افلح في ذلك

تحياتي لك

[elgokr]

(27-08-18, 01:22 AM)essawq كتب :

كلمة شكر لا تكفي

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

اخي الكريم تمت التجربة على قاعدة بيانات بها ثلاث جداول كل شيء تماام  

لكن اخي عند التفريغ يتم تفريغ جدول واحد وهو المكتوب هنا

كود :

Dim str As String = ("Delete from [woork1]")

عندي جدول اخر باسم Month_Information لا يتم تفريغة حاولت اعدل واضيف اسم الجدول لكن لم افلح في ذلك

تحياتي لك

كل ما عليك هو تكرار كود التفريغ لباقي الجداول 

وسيقوم باتمام المطلوب دون اى مشكلة

تحياتى لك

وتمنياتى لك التوفيق

[essawq]

مشكور اخي elgokr

تم تكرار الكود بهذة الطريقة ويعمل 

كود :

If MsgBox("سوف يتم تفريغ قاعدة البيانات بشكل نهائي", vbYesNo + vbQuestion, "رسالة تأكيد") = MsgBoxResult.No Then
           If MsgBoxResult.Yes Then
               Return
           End If
       End If
       Me.Cursor = Cursors.WaitCursor
       Dim str As String = ("Delete from [woork1]")
       myconn.cmd = New SqlCommand(str, myconn.conn)
       If myconn.conn.State = ConnectionState.Open Then
           myconn.conn.Close()
       End If
       myconn.conn.Open()
       myconn.cmd.ExecuteNonQuery()
       myconn.conn.Close()
       Me.Cursor = Cursors.Default
       Me.Cursor = Cursors.WaitCursor
       Dim strr As String = ("Delete from [Month_Information]")
       myconn.cmd = New SqlCommand(strr, myconn.conn)
       If myconn.conn.State = ConnectionState.Open Then
           myconn.conn.Close()
       End If
       myconn.conn.Open()
       myconn.cmd.ExecuteNonQuery()
       myconn.conn.Close()
       Me.Cursor = Cursors.Default
       MessageBox.Show("تم تفريغ قاعدة البيانات بشكل نهائي ", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)

هل من تعديل ام ان الامور تماام هيك

بارك الله فيك