تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال لفحص حالة ملف قاعدة بيانات من نوع اكسس من حيث الاستخدام من عدمه
#1
السلام عليكم ورحمة الله وبركاته

المثال يفي بالايضاح

PHP كود :
Public Class Form1


    Dim dbpath 
As String ""
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles btnselect.Click
        dbpath 
""
 
       Dim o As New OpenFileDialog
        If o
.ShowDialog DialogResult.OK Then
            dbpath 
o.FileName
        End 
If
 
       btncheck.Enabled dbpath.ToString.Trim.Length
        ckcheck
.Enabled dbpath.ToString.Trim.Length
    End Sub

    Private Sub btncheck_Click
(sender As ObjectAs EventArgsHandles btncheck.Click
        lbl
.Visible False
        Dim dir 
As String IO.Path.GetDirectoryName(dbpath) & "\"

        If ckcheck.Checked Then
            Timer1.Start()
        Else
            Timer1.Stop()
            Dim ldp As String = IO.Path.GetFileNameWithoutExtension(dbpath) & "
.laccdb"
            If IO.File.Exists(dir & ldp) Then
                lbl.ForeColor = Color.Red
                lbl.Text = "
مستخدم"
            Else
                lbl.ForeColor = Color.Green
                lbl.Text = "
غير مستخدم"
            End If

        End If
        lbl.Visible = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbl.Visible = False
        If ckcheck.Checked Then
            Dim dir As String = IO.Path.GetDirectoryName(dbpath) & "
\"

            Dim ldp As String = IO.Path.GetFileNameWithoutExtension(dbpath) & "
.laccdb"
            If IO.File.Exists(dir & ldp) Then
                lbl.ForeColor = Color.Red
                lbl.Text = "
مستخدم"
            Else
                lbl.ForeColor = Color.Green
                lbl.Text = "
غير مستخدم"
            End If
        Else
            Timer1.Stop()
        End If


        lbl.Visible = True
    End Sub

    Private Sub ckcheck_CheckedChanged(sender As Object, e As EventArgs) Handles ckcheck.CheckedChanged
        Timer1.Enabled = ckcheck.Checked
    End Sub
End Class 


الملفات المرفقة
.zip   CheckDbUsingState.zip (الحجم : 19.5 ك ب / التحميلات : 13)

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة: tryold , tryold


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 3 991 18-02-20, 12:24 PM
آخر رد: الوايلي
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 7 1,415 10-02-20, 06:38 AM
آخر رد: سعود
  [مشروع] قاعدة بيانات ادارة المناهج abdoadel0809 1 584 09-11-19, 02:00 AM
آخر رد: حريف برمجة
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 6 4,742 05-07-19, 05:20 PM
آخر رد: sendbad100
  تحميل source برنامج صغير لتسجيل اصناف في قاعدة بيانات SQl server وعرضها في combobox ggtt17121985 0 834 25-04-19, 02:29 AM
آخر رد: ggtt17121985
  مساعدة في كود عرض بيانات من جدولين samira20 1 656 18-04-19, 03:03 AM
آخر رد: حريف برمجة
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 2 1,143 21-04-18, 06:54 PM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 4,039 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 1,159 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 973 01-08-17, 12:10 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم