منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
صنع مكتبه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : صنع مكتبه (/showthread.php?tid=34993)

صنع مكتبه - منه - 28-05-20

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

RE: صنع مكتبه - معاند الحظ - 28-05-20

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

اذا كنتي تقصدين طريقة عمل مكتبة 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]

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

بالتوفيق.

RE: صنع مكتبه - alshandodi - 28-05-20

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

كود :
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


RE: صنع مكتبه - معاند الحظ - 28-05-20

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

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

كود :
 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")


RE: صنع مكتبه - alshandodi - 28-05-20

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