منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

[attachment=24907]

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

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

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

كود :

    Sub New()

        MsgBox("Hello World!")

    End Sub

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

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

لاحظي الصورة

[attachment=24908]

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

[attachment=24909]

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

[attachment=24910]

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

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

[attachment=24911]

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

بالتوفيق.

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

كود :

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

معاند الحظ

alshandodi