26-05-18, 03:02 PM
02-06-18, 04:27 AM
مرة اخري
برجاء رابط
او ارفع قاعدة 2008 تجرب بها
مفصوله غير الاولي
كل سنة وانت طيب
شهر كريم
برجاء رابط
او ارفع قاعدة 2008 تجرب بها
مفصوله غير الاولي
كل سنة وانت طيب
شهر كريم
08-06-18, 05:24 PM
هل يصلح هذا المثال علي فيجوال 2008
وسكول 2008
جربت ولم يصلح مع تغيير ما يلزم من اسم القاعدة والجدول الداخلي
افيدونا
وسكول 2008
جربت ولم يصلح مع تغيير ما يلزم من اسم القاعدة والجدول الداخلي
افيدونا
08-06-18, 06:32 PM
عرفت الخطا كان في حرف
شكرا
شكرا
13-06-18, 03:23 PM
الاستاذ جميل علي
كيف
يتم النسخ كل ساعتين مثلا يوميا
كيف
يتم النسخ كل ساعتين مثلا يوميا
24-06-18, 07:44 PM
الشكر والامتنان اقل مايجب ان يقال نحتاج في هذا الموقع الغالي الى هكذا امثلة جزاكم الله كل خير 12-07-18, 03:58 AM
جزاك الله خيرا اخي الفاضل
27-08-18, 01:22 AM
كلمة شكر لا تكفي
بارك الله بك وبميزان حسناتك
اخي الكريم تمت التجربة على قاعدة بيانات بها ثلاث جداول كل شيء تماام
لكن اخي عند التفريغ يتم تفريغ جدول واحد وهو المكتوب هنا
كود :
Dim str As String = ("Delete from [woork1]")عندي جدول اخر باسم Month_Information لا يتم تفريغة حاولت اعدل واضيف اسم الجدول لكن لم افلح في ذلك
تحياتي لك
27-08-18, 08:56 AM
(27-08-18, 01:22 AM)essawq كتب : [ -> ]كلمة شكر لا تكفيبارك الله بك وبميزان حسناتك
اخي الكريم تمت التجربة على قاعدة بيانات بها ثلاث جداول كل شيء تمااملكن اخي عند التفريغ يتم تفريغ جدول واحد وهو المكتوب هنا
كود :
Dim str As String = ("Delete from [woork1]")عندي جدول اخر باسم Month_Information لا يتم تفريغة حاولت اعدل واضيف اسم الجدول لكن لم افلح في ذلكتحياتي لك
كل ما عليك هو تكرار كود التفريغ لباقي الجداول
وسيقوم باتمام المطلوب دون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
27-08-18, 09:15 PM
مشكور اخي 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)هل من تعديل ام ان الامور تماام هيك
بارك الله فيك