كيف استعمل أداة ال Progress Bar أثناء عملية أخذ (أو استعادة) نسخة احتياطية لقاعدة بيانات؟

قم بإضافة مرجع الى Microsoft SQLDMO Object Library

	Dim SQL As New SQLDMO.SQLServer
	Dim WithEvents BK As New SQLDMO.Backup

	Private Sub BackupDatabase(ByVal DBName As String)
		SQL.Connect(".", "sa")
		With BK
			.Database = "Northwind"
			.Files = "c:\Northwind.bak"
			.SQLBackup(SQL)
		End With
	End Sub

	Private Sub BK_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles BK.PercentComplete
		Me.Progressbar1.value = Percent
	End Sub

مرحبا،،

شكرا للأخ حمزة

ولكن تظهر لي رسالة الخطأ التالية

علما أنه حتى هذا المسار المكتوب ضمن رسالة الخطأ غير صحيح فأنا لم أعطه هذا المسار وعلى كل المسار ليس صحيحا

وشكرا

السلام عليكم

راجع الرابط التالي بالتوفيق إن شاء الله.