[منه]

السلام عليكم ورحمه الله وبركاته
كيفية صنع اي مكتبه dll بالميزات ال عايزها بالفيجوال بيسك

[معاند الحظ]

وعليك السلام ورحمة الله وبركاته

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

قومي بتشغيل فيجوال ستوديو واضغطي على مشروع جديد
من النافذة التالية اختاري Class Library كما في الصورة

   

اتركي الاسم كما هو لكي يتطابق خطواتك مع الشرح وما في الصور ، ثم اضغطي OK 

عندما يفتح الفيجوال ستوديو مشروعك سينقلك الى نافذة محرر الكود مباشرة

قومي بنسخ الكود التالي ولصقه في برنامجك

كود :

    Sub New()
        MsgBox("Hello World!")
    End Sub

الان قومي ببناء المشروع من قائمة Build  او اضغطي F5
بعد اكتمال بناء المشروع سينتج ملف dll اسمه ClassLibrary1 وسيكون في المسار التالي

\ClassLibrary1\ClassLibrary1\bin\Debug\...

لاحظي الصورة  

   

بعد ذلك يمكنك استخدام هذي المكتبة في مشاريعك وللتجربه قومي بفتح مشروع اخر وليكن من نوع Windows Forms
اضغطي على خيار Project ثم اختاري Add reference كما في الصورة
لتقومي  باضافة مرجع للمكتبة التي قمتي بانشائها 

   

من النافذة Add Reference اختاري التبويب Browse واذهبي الى حيث يوجد ملف مكتبة dll وقومي باختيارها واضغطي اوكي

   

الان قومي بنسخ الكود التالي الى المشروع الجديد وتاكدي من اضافة زر الى النموذج وقومي بتشغيله

عندما يفتح البرنامج اضغطي على الزر وستظهر لك رسالة Hello World! 

   

هذي هي الطريقة باختصار ويبقى عليك ان تضيفي المزيد من الوضائف الى المكتبة كلما امكنك وذلك بفتح المشروع الاول

بالتوفيق.

[alshandodi]

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

كود :

Public Function Max_Record(IDColumnName As String, TableName As String) As DataTable
       Dim Str As String = "Select IIF(Max(" & IDColumnName & ") IS Null,1,Max(" & IDColumnName & ")+1)As ID From " & TableName
       Dim Cmd As OleDb.OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDb.OleDbCommand(Str, con)
       Dim Da As New OleDb.OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function

[معاند الحظ]

هل تقصد بتغير نص الاتصال تغير موقع ملف قاعدة البيانات؟
اذا كان كذلك 

جمعت لك كل الاحتمالات اللي وجدتها جربها 

كود :

 Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Application.StartupPath, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(CurDir, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Directory.GetCurrentDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Environment.CurrentDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(My.Application.Deployment.DataDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(My.Application.Info.DirectoryPath, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Nwind.mdb")

لكن لو مو هذا قصدك وضح اكثر لو سمحت

اما جلب اكبر عدد فايضا مافهمت عن اي عدد تتحدث ؟

---

اذا كنت تقصد ان ملف قاعدة البيانات تم حفظه في المجلدات الخاصة بجهاز المستخدم مثل المستندات abu3amer\Documents

فجرب التالي

كود :

constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Nwind.mdb")

[alshandodi]

شدني هذا الموضوع فانا كنت احفظ الأكواد التي احتاجها في ملف الورد فاول مره اجرب هذا المكتبه لك جزيل الشكر والتقدير فيما قواعد البيانات فوجدت الحل في موضوع المكتبات