كود الإسترجاع فيكون بإعادة نسخ ملف قاعدة البيانات الى مجلد البرنامج
كود الإسترجاع فيكون بإعادة نسخ ملف قاعدة البيانات الى مجلد البرنامج كود: Dim filepath = OpenFileDialog1.FileName Dim ProgramDBpath = "MyDB.mdb" System.IO.File.Copy(filepath, ProgramDBpath, overwrite:=True) معرفة رقم الهارد دسك لاستخدامه في عمل حماية لبرنامجك كود: Imports System.Management Imports System.Management.Instrumentation ثم نقوم بكتابة الكود التالي في حدث التحميل للنوذج مثلا كود: Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia") Dim HD As ManagementObject For Each HD In HDinformation.Get() TextBox1.Text = HD("SerialNumber").ToString() Next |
الساعة الآن 08:21 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO ©2010, Crawlability, Inc. TranZ By
Almuhajir