<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 22:25:59 +0000 MyBB <![CDATA[[جديد - بالنسبة لاخيكم] بضغطة زر انشاء ماتريد من جداول واعمدة واضافة بيانات اليها]]> https://vb4arb.com/vb/showthread.php?tid=48839 Thu, 23 May 2024 22:19:29 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48839 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
افضل امثلتي على الاطلاق  خصوصا من ناحية قواعد البيانات
[صورة مرفقة: p1.png]
[صورة مرفقة: p2.png]
كلمة المرور vb4arb
آمل ان يفيد احد هذا المثال


.zip   dbmnger.zip (الحجم : 26.27 ك ب / التحميلات : 56) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
افضل امثلتي على الاطلاق  خصوصا من ناحية قواعد البيانات
[صورة مرفقة: p1.png]
[صورة مرفقة: p2.png]
كلمة المرور vb4arb
آمل ان يفيد احد هذا المثال


.zip   dbmnger.zip (الحجم : 26.27 ك ب / التحميلات : 56) ]]> <![CDATA[مثال ارتجالي متصل باكسس واستخدام استعلام تحديث و تحديد]]> https://vb4arb.com/vb/showthread.php?tid=48444 Fri, 03 May 2024 14:17:46 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48444 [صورة مرفقة: 999.png]
الملف مرفق بالموضوع


مثال ارتجالي لا صلة له بالواقع فقط لعله يوصل المطلوب
وفق المثال الان اضافة جديد فقط:
المنتج |العدد الموجود| سعر الوحدة
اما التحديث
يتم تعديل كل شيء باستثناء ما يقوم به الاجراء  myq الموجود كاستعلام في ملف الاكسس
بكل تاكيد المثال عديم الفائدة اذا تم الاعتماد عليه لكن آمل ان يوصل للمسار الصحيح
التحديث اجراء مخزن باسم:
myupdate
تم بيعه كتحديث اي ما يراد بيعه
]]> [صورة مرفقة: 999.png]
الملف مرفق بالموضوع


مثال ارتجالي لا صلة له بالواقع فقط لعله يوصل المطلوب
وفق المثال الان اضافة جديد فقط:
المنتج |العدد الموجود| سعر الوحدة
اما التحديث
يتم تعديل كل شيء باستثناء ما يقوم به الاجراء  myq الموجود كاستعلام في ملف الاكسس
بكل تاكيد المثال عديم الفائدة اذا تم الاعتماد عليه لكن آمل ان يوصل للمسار الصحيح
التحديث اجراء مخزن باسم:
myupdate
تم بيعه كتحديث اي ما يراد بيعه
]]> <![CDATA[نسخ جداول اكسس الى اكسل]]> https://vb4arb.com/vb/showthread.php?tid=48390 Sat, 27 Apr 2024 04:38:42 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48390 السلام عليكم ورحمة الله و بركاته
صباح الخير  ومساء الخير
[صورة مرفقة: 12.png]
هذا مثال بسيط لنسخ الجداول من اكسس الى اكسل اما العكس فلسهولته لم اكتب اكواده بالمثال.


تنبيه!
بعد ان تنسخ الجداول , مباشرة قم بترتيبها في اكسل  كما هي باكسس حتى تكون الخطوة الثانية مناسبة لانك لو لم تقم بهذه الخطوة و اقصد اعادة ترتيب الاعمدة في اكسل فستكون الصفوف غير مناسبة لاعمدتها  مثل ان ترى الاسم تحت عمود الترقيم التلقائي و هكذا

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


.zip   Access_To_Excel_And_Excel_To_Access.zip (الحجم : 18.05 ك ب / التحميلات : 24) ]]> السلام عليكم ورحمة الله و بركاته
صباح الخير  ومساء الخير
[صورة مرفقة: 12.png]
هذا مثال بسيط لنسخ الجداول من اكسس الى اكسل اما العكس فلسهولته لم اكتب اكواده بالمثال.


تنبيه!
بعد ان تنسخ الجداول , مباشرة قم بترتيبها في اكسل  كما هي باكسس حتى تكون الخطوة الثانية مناسبة لانك لو لم تقم بهذه الخطوة و اقصد اعادة ترتيب الاعمدة في اكسل فستكون الصفوف غير مناسبة لاعمدتها  مثل ان ترى الاسم تحت عمود الترقيم التلقائي و هكذا

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


.zip   Access_To_Excel_And_Excel_To_Access.zip (الحجم : 18.05 ك ب / التحميلات : 24) ]]> <![CDATA[مثالين للتعامل مع الاكسل]]> https://vb4arb.com/vb/showthread.php?tid=48264 Fri, 19 Apr 2024 19:55:04 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=48264 السلام عليكم ورحمة الله و بركاته
الملف المرفق لمشروعين
واحد يتعامل مع الـReference بشكل كامل و هو باسم OtherExcelApp
اما الاخر فقط الانشاء والصيانة يتعامل مع الـ الـReference  اما الاشياء الاخرى مع oledb provider و هو باسم Phone_Book_Using_Excel_vbnet
[صورة مرفقة: 333.png]
[صورة مرفقة: 444.png]
آمل ان يفيد احدا من زوار المنتدى او اعضائه


.zip   Two_projects.zip (الحجم : 185.11 ك ب / التحميلات : 72) ]]> السلام عليكم ورحمة الله و بركاته
الملف المرفق لمشروعين
واحد يتعامل مع الـReference بشكل كامل و هو باسم OtherExcelApp
اما الاخر فقط الانشاء والصيانة يتعامل مع الـ الـReference  اما الاشياء الاخرى مع oledb provider و هو باسم Phone_Book_Using_Excel_vbnet
[صورة مرفقة: 333.png]
[صورة مرفقة: 444.png]
آمل ان يفيد احدا من زوار المنتدى او اعضائه


.zip   Two_projects.zip (الحجم : 185.11 ك ب / التحميلات : 72) ]]> <![CDATA[عرض جدول في الليست فيو Listview]]> https://vb4arb.com/vb/showthread.php?tid=47517 Tue, 21 Nov 2023 12:00:47 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=47517 [صورة مرفقة: 111.png]
عرض البيانات في الليست فيو و ايضا التصفح  كما هو واضح بالصورة


.zip   MyListview.zip (الحجم : 27.01 ك ب / التحميلات : 58) ]]> [صورة مرفقة: 111.png]
عرض البيانات في الليست فيو و ايضا التصفح  كما هو واضح بالصورة


.zip   MyListview.zip (الحجم : 27.01 ك ب / التحميلات : 58) ]]> <![CDATA[أسرع طريقة للحذف او اقصر استعلام للحذف او كما تراها]]> https://vb4arb.com/vb/showthread.php?tid=47505 Sun, 19 Nov 2023 16:58:53 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=47505 سبب الموضوع هو في الرابط التالي:
[VB.NET] حذف اكثر من سطر محدد في جرد فيو
فبحثت قليلا عن ترجمة للسؤال و تفاجات باستعلام مذهل
هنا مشاركتي و فيها المثال

[صورة مرفقة: 999.png]
]]> سبب الموضوع هو في الرابط التالي:
[VB.NET] حذف اكثر من سطر محدد في جرد فيو
فبحثت قليلا عن ترجمة للسؤال و تفاجات باستعلام مذهل
هنا مشاركتي و فيها المثال

[صورة مرفقة: 999.png]
]]> <![CDATA[ادارة بسيطة لملف الاكسس]]> https://vb4arb.com/vb/showthread.php?tid=45926 Wed, 19 Apr 2023 20:16:02 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=45926 [صورة مرفقة: app1.png][صورة مرفقة: app2.png]
السلام عليكم ورحمةالله وبركاته
آمل ان يفيد هذا المثال احد كفكرة او تطبيق وهذا نسخة محدثة لفكرة اقل منها عملتها سابقا
المشروع افضل بكثير اضافة ملف قاعدة اكسس جديدة و عدة جداول واعمدة في الاطار الاول الرئيسي
اما الاطار الاخر فهو للتعديلات كما يظهر الصورتين اعلى هذا الكلام
password:-sarab
هذا الموديول به كافة العمليات لمن يحب الاكتفاء بها
PHP كود :
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Runtime.InteropServices
Imports System.Xml
Module Module1
    Public config As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\config.txt"
    Public Sub rep(ByRef frm As Form)
        If frm.Left < 0 Or frm.Right > Screen.PrimaryScreen.Bounds.Right Then frm.Left = 0
        If frm.Top < 0 Or frm.Bottom > Screen.PrimaryScreen.Bounds.Bottom Then frm.Top = 0
    End Sub
    Public Function constr(st As String, Optional ByVal password As String = "vb4arb") As String
        Return "provider=microsoft.ace.oledb.12.0;data source=" & st & ";jet oledb:database password=" & password & ""
    End Function
    Public Function createdb(dbpath As String) As Boolean
        Try
            Dim objConnection = CreateObject("ADOX.Catalog")
            Dim str As String = constr(dbpath)
            objConnection.Create(str)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Public Function GetTables(dbpath As String) As DataSet
        Dim str As String = constr(dbpath)
        Dim ds As New DataSet
        Dim dt As DataTable
        Using conn As New OleDbConnection(str)
            If conn.State = ConnectionState.Closed Then conn.Open()
            dt = conn.GetSchema("TABLES", {Nothing, Nothing, Nothing, "TABLE"})
            For Each dr As DataRow In dt.Rows
                ds.Tables.Add(dr("TABLE_NAME"))
            Next
            If conn.State = ConnectionState.Open Then conn.Close()
        End Using
        Return ds
    End Function
    Public Sub createcolls(dbpath As String, tbname As String, colname As String, coltype As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                Dim cn As String = ""
                Dim ct As String
                cn = colname
                ct = coltype
                cm.CommandText = "ALTER TABLE " & tbname & " ADD " & cn & " " & ct
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم اضافة عمود: " & colname & " الى جدول: " & tbname & " بنجاح ", MsgBoxStyle.Information, "save colls")
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Sub
    Public Function isdbfount(adbpath As String) As Boolean
        Return IO.File.ReadAllLines(config).Contains(adbpath)
    End Function
    Public Function isdbfountreal(dbpath As String) As Boolean
        Return IO.File.Exists(dbpath)
    End Function
    Public Function alldbs() As String()
        Return IO.File.ReadAllLines(config)
    End Function
    Function isendwithnewline() As String
        Dim rcount As Integer = IO.File.ReadAllLines(config).Count
        Dim t As String = IO.File.ReadLines(config)(rcount)
        Return t
    End Function
    Public Sub create_Table(dbpath As String, tbname As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "create table " & tbname
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم حفظ الجدول", MsgBoxStyle.Information, "حفظ جدول")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub renametable(dbpath As String, oldtb As String, newtb As String)
        Try
            Dim con As New ADODB.Connection
            con.ConnectionString = constr(dbpath)
            con.Open()
            Dim ax As New ADOX.Catalog
            ax.ActiveConnection = con
            ax.Tables(oldtb).Name = newtb
            con.Close()
            MsgBox("تم تعديل الاسم بنجاح " & oldtb & " الى " & newtb)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub
    Public Sub dropColumn(dbpath As String, tbname As String, ColName As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "alter table " & tbname & " drop Column " & ColName
                Try
                    If con.State = ConnectionState.Closed Then con.Open()
                    cm.ExecuteNonQuery()
                    MsgBox("تم حذف العمود بنجاح", MsgBoxStyle.Information, "حذف")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub droptable(dbpath As String, tbname As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "drop table " & tbname & ""
                Try
                    If con.State = ConnectionState.Closed Then con.Open()
                    cm.ExecuteNonQuery()
                    MsgBox("تم حذف الجدول بنجاح", MsgBoxStyle.Information, "حذف")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub change_column_name(dbpath As String, tbname As String, ColName As String, newcolname As String)
        Try
            Dim con As New ADODB.Connection
            con.ConnectionString = constr(dbpath)
            con.Open()
            Dim ax As New ADOX.Catalog
            ax.ActiveConnection = con
            ax.Tables(tbname).Columns(ColName).Name = newcolname
            con.Close()
            MsgBox("تم تعديل الاسم بنجاح " & ColName & " الى " & newcolname)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub
    Public Sub retypecolumn(dbpath As String, tbname As String, ColName As String, coltype As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                Dim cn As String = ""
                Dim ct As String
                cn = ColName
                ct = coltype
                cm.CommandText = "ALTER TABLE " & tbname & " ALTER COLUMN " & cn & " " & coltype & ""
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم تغيير نوع عمود: " & ColName & " الى نوع: " & coltype & " بنجاح ", MsgBoxStyle.Information, "save colls")
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Sub
    Public Function getColls(dbpath As String, tbname As String) As DataTable
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Dim dt As New DataTable
            Using cm As New OleDb.OleDbCommand("select * from " & tbname & "", con)
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    dt.Load(cm.ExecuteReader)
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
            Return dt
        End Using
    End Function
End Module 
اول مرة استفيد من هذه الفكرة اذ انه الان ليس لدي اي اوفيس مثبت فيه الاكسس المتوفر عندي يخلو من الاكسس فقلت لن اتخلى عن الاصدار الحديث اللذي امتلكه(اشتريته ظنا مني انه يحتوي الاكسس و ان الفرق فقط الدفع باشتراك او الدفع مرة واحدة) لانه باصدار 64 بت والقديم لدي 2007 32 بت والنظام 64 بت وفيجوال استوديو 64 بت فليس امامي الا هذه الفكرة فاحببت ان تفيد احد كفكرة او تطبيق.
اسال الله ان يغفر لي ولكم 
و كل عام وانتم بخير
هذه عيدية لكل الاعضاء
تنبيه!
عن طريق الخطأ اضفت كلمة المرور لاجراء اسناد مسار ملف القاعدة constr فقم بازالتها واجعلها فارغة ان شئت لانها ستحول ملف الاكسس المفتوح الى مغلق بكلمة مرور vb4arb
تنبيه!


.zip   CustomAccdbManager.zip (الحجم : 28.71 ك ب / التحميلات : 132) ]]> [صورة مرفقة: app1.png][صورة مرفقة: app2.png]
السلام عليكم ورحمةالله وبركاته
آمل ان يفيد هذا المثال احد كفكرة او تطبيق وهذا نسخة محدثة لفكرة اقل منها عملتها سابقا
المشروع افضل بكثير اضافة ملف قاعدة اكسس جديدة و عدة جداول واعمدة في الاطار الاول الرئيسي
اما الاطار الاخر فهو للتعديلات كما يظهر الصورتين اعلى هذا الكلام
password:-sarab
هذا الموديول به كافة العمليات لمن يحب الاكتفاء بها
PHP كود :
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Runtime.InteropServices
Imports System.Xml
Module Module1
    Public config As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\config.txt"
    Public Sub rep(ByRef frm As Form)
        If frm.Left < 0 Or frm.Right > Screen.PrimaryScreen.Bounds.Right Then frm.Left = 0
        If frm.Top < 0 Or frm.Bottom > Screen.PrimaryScreen.Bounds.Bottom Then frm.Top = 0
    End Sub
    Public Function constr(st As String, Optional ByVal password As String = "vb4arb") As String
        Return "provider=microsoft.ace.oledb.12.0;data source=" & st & ";jet oledb:database password=" & password & ""
    End Function
    Public Function createdb(dbpath As String) As Boolean
        Try
            Dim objConnection = CreateObject("ADOX.Catalog")
            Dim str As String = constr(dbpath)
            objConnection.Create(str)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Public Function GetTables(dbpath As String) As DataSet
        Dim str As String = constr(dbpath)
        Dim ds As New DataSet
        Dim dt As DataTable
        Using conn As New OleDbConnection(str)
            If conn.State = ConnectionState.Closed Then conn.Open()
            dt = conn.GetSchema("TABLES", {Nothing, Nothing, Nothing, "TABLE"})
            For Each dr As DataRow In dt.Rows
                ds.Tables.Add(dr("TABLE_NAME"))
            Next
            If conn.State = ConnectionState.Open Then conn.Close()
        End Using
        Return ds
    End Function
    Public Sub createcolls(dbpath As String, tbname As String, colname As String, coltype As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                Dim cn As String = ""
                Dim ct As String
                cn = colname
                ct = coltype
                cm.CommandText = "ALTER TABLE " & tbname & " ADD " & cn & " " & ct
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم اضافة عمود: " & colname & " الى جدول: " & tbname & " بنجاح ", MsgBoxStyle.Information, "save colls")
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Sub
    Public Function isdbfount(adbpath As String) As Boolean
        Return IO.File.ReadAllLines(config).Contains(adbpath)
    End Function
    Public Function isdbfountreal(dbpath As String) As Boolean
        Return IO.File.Exists(dbpath)
    End Function
    Public Function alldbs() As String()
        Return IO.File.ReadAllLines(config)
    End Function
    Function isendwithnewline() As String
        Dim rcount As Integer = IO.File.ReadAllLines(config).Count
        Dim t As String = IO.File.ReadLines(config)(rcount)
        Return t
    End Function
    Public Sub create_Table(dbpath As String, tbname As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "create table " & tbname
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم حفظ الجدول", MsgBoxStyle.Information, "حفظ جدول")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub renametable(dbpath As String, oldtb As String, newtb As String)
        Try
            Dim con As New ADODB.Connection
            con.ConnectionString = constr(dbpath)
            con.Open()
            Dim ax As New ADOX.Catalog
            ax.ActiveConnection = con
            ax.Tables(oldtb).Name = newtb
            con.Close()
            MsgBox("تم تعديل الاسم بنجاح " & oldtb & " الى " & newtb)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub
    Public Sub dropColumn(dbpath As String, tbname As String, ColName As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "alter table " & tbname & " drop Column " & ColName
                Try
                    If con.State = ConnectionState.Closed Then con.Open()
                    cm.ExecuteNonQuery()
                    MsgBox("تم حذف العمود بنجاح", MsgBoxStyle.Information, "حذف")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub droptable(dbpath As String, tbname As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "drop table " & tbname & ""
                Try
                    If con.State = ConnectionState.Closed Then con.Open()
                    cm.ExecuteNonQuery()
                    MsgBox("تم حذف الجدول بنجاح", MsgBoxStyle.Information, "حذف")
                    If con.State = ConnectionState.Open Then con.Close()
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
            End Using
        End Using
    End Sub
    Public Sub change_column_name(dbpath As String, tbname As String, ColName As String, newcolname As String)
        Try
            Dim con As New ADODB.Connection
            con.ConnectionString = constr(dbpath)
            con.Open()
            Dim ax As New ADOX.Catalog
            ax.ActiveConnection = con
            ax.Tables(tbname).Columns(ColName).Name = newcolname
            con.Close()
            MsgBox("تم تعديل الاسم بنجاح " & ColName & " الى " & newcolname)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub
    Public Sub retypecolumn(dbpath As String, tbname As String, ColName As String, coltype As String)
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Using cm As New OleDb.OleDbCommand("", con)
                Dim cn As String = ""
                Dim ct As String
                cn = ColName
                ct = coltype
                cm.CommandText = "ALTER TABLE " & tbname & " ALTER COLUMN " & cn & " " & coltype & ""
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    cm.ExecuteNonQuery()
                    MsgBox("تم تغيير نوع عمود: " & ColName & " الى نوع: " & coltype & " بنجاح ", MsgBoxStyle.Information, "save colls")
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Sub
    Public Function getColls(dbpath As String, tbname As String) As DataTable
        Using con As New OleDb.OleDbConnection(constr(dbpath))
            Dim dt As New DataTable
            Using cm As New OleDb.OleDbCommand("select * from " & tbname & "", con)
                If con.State = ConnectionState.Closed Then con.Open()
                Try
                    dt.Load(cm.ExecuteReader)
                Catch ex As Exception
                    MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
                    If con.State = ConnectionState.Open Then con.Close()
                Finally
                    If con.State = ConnectionState.Open Then con.Close()
                End Try
                If con.State = ConnectionState.Open Then con.Close()
            End Using
            Return dt
        End Using
    End Function
End Module 
اول مرة استفيد من هذه الفكرة اذ انه الان ليس لدي اي اوفيس مثبت فيه الاكسس المتوفر عندي يخلو من الاكسس فقلت لن اتخلى عن الاصدار الحديث اللذي امتلكه(اشتريته ظنا مني انه يحتوي الاكسس و ان الفرق فقط الدفع باشتراك او الدفع مرة واحدة) لانه باصدار 64 بت والقديم لدي 2007 32 بت والنظام 64 بت وفيجوال استوديو 64 بت فليس امامي الا هذه الفكرة فاحببت ان تفيد احد كفكرة او تطبيق.
اسال الله ان يغفر لي ولكم 
و كل عام وانتم بخير
هذه عيدية لكل الاعضاء
تنبيه!
عن طريق الخطأ اضفت كلمة المرور لاجراء اسناد مسار ملف القاعدة constr فقم بازالتها واجعلها فارغة ان شئت لانها ستحول ملف الاكسس المفتوح الى مغلق بكلمة مرور vb4arb
تنبيه!


.zip   CustomAccdbManager.zip (الحجم : 28.71 ك ب / التحميلات : 132) ]]> <![CDATA[البحث في مكانين في ملف القاعدة و في الـ DataTable حال وضع التصفح]]> https://vb4arb.com/vb/showthread.php?tid=45920 Tue, 18 Apr 2023 02:50:04 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=45920 بسم  الله الرحمن الرحيم
البحث في مكانين في ملف القاعدة و في الـ DataTable حال وضع التصفح حيث انه بطبيعة الحال لا يجلب كل البيانات
[صورة مرفقة: sss.png]
[صورة مرفقة: ddd.png]

هذا المثال البسيط حسسني اني مبدعSmile
كل عام و انتم بخير قبل الجميع
اضفت مربع نص لوضع رقم للمتغير Pagesize لتحديد عدد الصفوف المطلوب عرضها.


.zip   saveIfnotexist.zip (الحجم : 26.66 ك ب / التحميلات : 119) ]]> بسم  الله الرحمن الرحيم
البحث في مكانين في ملف القاعدة و في الـ DataTable حال وضع التصفح حيث انه بطبيعة الحال لا يجلب كل البيانات
[صورة مرفقة: sss.png]
[صورة مرفقة: ddd.png]

هذا المثال البسيط حسسني اني مبدعSmile
كل عام و انتم بخير قبل الجميع
اضفت مربع نص لوضع رقم للمتغير Pagesize لتحديد عدد الصفوف المطلوب عرضها.


.zip   saveIfnotexist.zip (الحجم : 26.66 ك ب / التحميلات : 119) ]]> <![CDATA[[جديد ] التحرير في ملف اكسل]]> https://vb4arb.com/vb/showthread.php?tid=45660 Sun, 12 Mar 2023 08:54:31 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=45660 [صورة مرفقة: sss.png]
السلام عليكم ورحمة الله و بركاته
أقصد بالجديد علي شخصياSmile
بصراحة ماكنت اتوقع سهولة التعامل مع الاكسل وانه لا يحتاج الا خطوتين فقط لتتعامل معه وكانك تتعامل مع الاكسس وبنفس ال_ provider  مع اضافة لنص الاتصال في آخر جملة الاتصال
كلمة المرور sarab
صباح الخير
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
نسيت ان انبه الى انه لا بد من اضافة التالية كمرجع:
Microsoft.Office.Interop.Excel
ووصفها ضمن تبويب الـCom الخاص بالـReference التالي:
Microsoft Excel 12.0 Object Library


.zip   ExcelBook.zip (الحجم : 25.17 ك ب / التحميلات : 65) ]]> [صورة مرفقة: sss.png]
السلام عليكم ورحمة الله و بركاته
أقصد بالجديد علي شخصياSmile
بصراحة ماكنت اتوقع سهولة التعامل مع الاكسل وانه لا يحتاج الا خطوتين فقط لتتعامل معه وكانك تتعامل مع الاكسس وبنفس ال_ provider  مع اضافة لنص الاتصال في آخر جملة الاتصال
كلمة المرور sarab
صباح الخير
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
نسيت ان انبه الى انه لا بد من اضافة التالية كمرجع:
Microsoft.Office.Interop.Excel
ووصفها ضمن تبويب الـCom الخاص بالـReference التالي:
Microsoft Excel 12.0 Object Library


.zip   ExcelBook.zip (الحجم : 25.17 ك ب / التحميلات : 65) ]]> <![CDATA[لا جديد الا في كود البحث(محاولة ايجاد اقصر كود للحفظ)]]> https://vb4arb.com/vb/showthread.php?tid=45649 Fri, 10 Mar 2023 14:26:41 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=45649 [صورة مرفقة: form.png]
السطر التالي يطلب تنفيذ اجرائين لتحديد الصف والحقل
اضافة الى اشياء اخرى معروفة تكمل بعضها اضفتها ليكتمل المثال
الموجود اكواد الاضافة والتحرير او التحديث فقط
PHP كود :
       dg.CurrentCell = dg.Rows(trowindex(txtsearch.Text)).Cells(cellindex(txtsearch.Text)) 


.zip   SaveMoreOne.zip (الحجم : 44.22 ك ب / التحميلات : 46) ]]> [صورة مرفقة: form.png]
السطر التالي يطلب تنفيذ اجرائين لتحديد الصف والحقل
اضافة الى اشياء اخرى معروفة تكمل بعضها اضفتها ليكتمل المثال
الموجود اكواد الاضافة والتحرير او التحديث فقط
PHP كود :
       dg.CurrentCell = dg.Rows(trowindex(txtsearch.Text)).Cells(cellindex(txtsearch.Text)) 


.zip   SaveMoreOne.zip (الحجم : 44.22 ك ب / التحميلات : 46) ]]> <![CDATA[ارتجال برنامج طلاب ومواد ودرجات]]> https://vb4arb.com/vb/showthread.php?tid=45626 Sun, 05 Mar 2023 20:55:26 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=45626 [صورة مرفقة: dbb.png]
[صورة مرفقة: dd.png]
[صورة مرفقة: f1.png]
[صورة مرفقة: f2.png]
[صورة مرفقة: bestform.png]

السلام عليكم و رحمة الله و بركاته
ليست لدي اي خبرة بموضوع قواعد بيانات المدارس او الطلاب و لكن ارتجلت هذا المثال البسيط لعلها تجد من تفيده 
و من يجد الوقت لتحسينه لعلي و غيري استفيد / يستفيد فبارك الله فيه
[صورة مرفقة: ccc.png]
آمل ان تكون بداية مفيدة  لاي مبتديء
و السلام عليكم و رحمة الله و بركاته


.zip   Students_Class_Courses.zip (الحجم : 73.97 ك ب / التحميلات : 99) ]]> [صورة مرفقة: dbb.png]
[صورة مرفقة: dd.png]
[صورة مرفقة: f1.png]
[صورة مرفقة: f2.png]
[صورة مرفقة: bestform.png]

السلام عليكم و رحمة الله و بركاته
ليست لدي اي خبرة بموضوع قواعد بيانات المدارس او الطلاب و لكن ارتجلت هذا المثال البسيط لعلها تجد من تفيده 
و من يجد الوقت لتحسينه لعلي و غيري استفيد / يستفيد فبارك الله فيه
[صورة مرفقة: ccc.png]
آمل ان تكون بداية مفيدة  لاي مبتديء
و السلام عليكم و رحمة الله و بركاته


.zip   Students_Class_Courses.zip (الحجم : 73.97 ك ب / التحميلات : 99) ]]> <![CDATA[نسخ جداول و اعمدة قاعدة الى قاعدة اخرى فارغة]]> https://vb4arb.com/vb/showthread.php?tid=42015 Sun, 24 Jul 2022 21:46:09 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=42015 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:
[صورة مرفقة: v.jpg]
[صورة مرفقة: v2.jpg]

اذا واجهت خطا بتعريف الحقل فتاكد من تسميتها عندي ظلت تظهر رسالة الخطا هذه الى ان اصلحتها و ربما ما صح بجهازي لا يصح بجهازك و الله اعلم
المهم انها سهلة
كلمة المرور vb4arb

معذرة فلم اتطرق لنقل البيانات فقط الاسماء والاعمدة الخاصة بالجداول اما لو تبقى شيء غير هذه باستثناء البيانات فلا اعرف لها طريقة
استثنيت البيانات لانها بسيطة ومتعودين عليها شبه يومي


.zip   Tablescopyer.zip (الحجم : 15.76 ك ب / التحميلات : 78) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:
[صورة مرفقة: v.jpg]
[صورة مرفقة: v2.jpg]

اذا واجهت خطا بتعريف الحقل فتاكد من تسميتها عندي ظلت تظهر رسالة الخطا هذه الى ان اصلحتها و ربما ما صح بجهازي لا يصح بجهازك و الله اعلم
المهم انها سهلة
كلمة المرور vb4arb

معذرة فلم اتطرق لنقل البيانات فقط الاسماء والاعمدة الخاصة بالجداول اما لو تبقى شيء غير هذه باستثناء البيانات فلا اعرف لها طريقة
استثنيت البيانات لانها بسيطة ومتعودين عليها شبه يومي


.zip   Tablescopyer.zip (الحجم : 15.76 ك ب / التحميلات : 78) ]]> <![CDATA[الجديد حاجة واحدة بالنسبة لي بخصوص التعامل مع الداتاتيبل]]> https://vb4arb.com/vb/showthread.php?tid=42012 Sun, 24 Jul 2022 16:12:24 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=42012 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:

[صورة مرفقة: dgv.jpg]
نفس موضوعي التالي:
[مشروع] الجديد حاجة واحدة بالنسبة لي بخصوص التعامل مع الملفات النصية

لكن مع اكسس حيث بعد الاضافة لن يتم جلب كل البيانات فقط ماتم ادخاله وايضا هذا له ثمن في موضوع الترقيم لكن وضعت ترقيم مؤقت  وعند التحميل مرة اخرى يتم وضع كل شيء بمكانه
كلمة المرور vb4arb
ملاحظة!
في فورم رقم 2
Form2
هذا خاص بموضوع هنا:
نسخ محتويات جدول الى قاعدة جديدة بنفس الجدول

لكن لم افهم بشكل كامل ماهو المطلوب خشيت ان لديه كود افضل ويود تعديله فقط
على كل حال الفورم رقم 2 ينسخ الجداول واعمدتها اذا حدث خطا بموضوع تنسيق الحقل فالمشروع مفتوح المصدر يمكن لاي شخص اضافة او تعديل مسمى من المسميات مثل
oleobject
datetime
counter
int
string
 و غيرها
والسلام عليكم و رحمة الله و بركاته
عغ يحطخغ ب يحهدااج حث اعاق جث غيهوا حخث اعاق جث ظزيقها


.zip   withmydgv.zip (الحجم : 41.26 ك ب / التحميلات : 42) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:

[صورة مرفقة: dgv.jpg]
نفس موضوعي التالي:
[مشروع] الجديد حاجة واحدة بالنسبة لي بخصوص التعامل مع الملفات النصية

لكن مع اكسس حيث بعد الاضافة لن يتم جلب كل البيانات فقط ماتم ادخاله وايضا هذا له ثمن في موضوع الترقيم لكن وضعت ترقيم مؤقت  وعند التحميل مرة اخرى يتم وضع كل شيء بمكانه
كلمة المرور vb4arb
ملاحظة!
في فورم رقم 2
Form2
هذا خاص بموضوع هنا:
نسخ محتويات جدول الى قاعدة جديدة بنفس الجدول

لكن لم افهم بشكل كامل ماهو المطلوب خشيت ان لديه كود افضل ويود تعديله فقط
على كل حال الفورم رقم 2 ينسخ الجداول واعمدتها اذا حدث خطا بموضوع تنسيق الحقل فالمشروع مفتوح المصدر يمكن لاي شخص اضافة او تعديل مسمى من المسميات مثل
oleobject
datetime
counter
int
string
 و غيرها
والسلام عليكم و رحمة الله و بركاته
عغ يحطخغ ب يحهدااج حث اعاق جث غيهوا حخث اعاق جث ظزيقها


.zip   withmydgv.zip (الحجم : 41.26 ك ب / التحميلات : 42) ]]> <![CDATA[ترقيم تلقائي لرقم ضمن نص]]> https://vb4arb.com/vb/showthread.php?tid=40024 Thu, 18 Nov 2021 05:59:37 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=40024 [صورة مرفقة: 22.png]
[سؤال] زيادة رقم واحد بعد اكبر رقم في العمود
اساس الفكرة من الرابط
وهو زيادة رقم بمقدار +1 على رقم محفوظ بصيغة نصية مثل ماهو ظاهر بالصورة
والمشروع مرفق بدون كلمة مرور
حي يقغا حجيفي وزص يحثيظ حي الو يث اثدغ عغ طخغي جز يثت حي اخحذت طائي.


.zip   increasenumber.zip (الحجم : 30.79 ك ب / التحميلات : 71) ]]> [صورة مرفقة: 22.png]
[سؤال] زيادة رقم واحد بعد اكبر رقم في العمود
اساس الفكرة من الرابط
وهو زيادة رقم بمقدار +1 على رقم محفوظ بصيغة نصية مثل ماهو ظاهر بالصورة
والمشروع مرفق بدون كلمة مرور
حي يقغا حجيفي وزص يحثيظ حي الو يث اثدغ عغ طخغي جز يثت حي اخحذت طائي.


.zip   increasenumber.zip (الحجم : 30.79 ك ب / التحميلات : 71) ]]> <![CDATA[[ليس جديد](انشاء قاعدة بيانات اكسس و جداولها واعمدتها وقت التشغيل) <أدخل لتعرف>]]> https://vb4arb.com/vb/showthread.php?tid=37538 Tue, 19 Jan 2021 23:34:13 +0000 سعود]]> https://vb4arb.com/vb/showthread.php?tid=37538 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
مثال على السريع ليس القصد تقديم أداة و انما الافكار تتطاير و احب ان اوثقها قبل نسيانها
افضل تطبيق للفكرة هنا

[صورة مرفقة: form2021.jpg]
[صورة مرفقة: db2021.jpg]
اسال الله جل وعلا ان يوفق الجميع لكل خير
password:vb4arb;
فيه نوع نسيته وهو 
oleobject
والسلام عليكم ورحمة الله و بركاته


.rar   with_form_2021.rar (الحجم : 28.84 ك ب / التحميلات : 175) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
مثال على السريع ليس القصد تقديم أداة و انما الافكار تتطاير و احب ان اوثقها قبل نسيانها
افضل تطبيق للفكرة هنا

[صورة مرفقة: form2021.jpg]
[صورة مرفقة: db2021.jpg]
اسال الله جل وعلا ان يوفق الجميع لكل خير
password:vb4arb;
فيه نوع نسيته وهو 
oleobject
والسلام عليكم ورحمة الله و بركاته


.rar   with_form_2021.rar (الحجم : 28.84 ك ب / التحميلات : 175) ]]>