<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم تقنية LinQ]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 21:55:57 +0000 MyBB <![CDATA[كيف اربط ال treeview بال database ؟]]> https://vb4arb.com/vb/showthread.php?tid=37559 Fri, 22 Jan 2021 20:26:52 +0000 سلام و محبه]]> https://vb4arb.com/vb/showthread.php?tid=37559 السلام عليكم و رحمة الله و بركاته

كيف اربط ال treeview بال database باستخدام ال linq و ال vb  و ربطها بجدولين bank , branch_bank
ممكن تحويل الاكواد التى فى الفيديو من #c الى vb

https://www.youtube.com/watch?v=yZUUFK2s...e&index=12
https://www.youtube.com/watch?v=mZ9lKna8...e&index=13
صممت مشروع للتطبيق

[صورة مرفقة: zip.gif]   populate_treeviewand_listview_with_linq_vb_2.rar (الحجم : 40.62 ك ب / التحميلات : 0)
الداتابيس حجمها كبير لايمكن رفعها]]> السلام عليكم و رحمة الله و بركاته

كيف اربط ال treeview بال database باستخدام ال linq و ال vb  و ربطها بجدولين bank , branch_bank
ممكن تحويل الاكواد التى فى الفيديو من #c الى vb

https://www.youtube.com/watch?v=yZUUFK2s...e&index=12
https://www.youtube.com/watch?v=mZ9lKna8...e&index=13
صممت مشروع للتطبيق

[صورة مرفقة: zip.gif]   populate_treeviewand_listview_with_linq_vb_2.rar (الحجم : 40.62 ك ب / التحميلات : 0)
الداتابيس حجمها كبير لايمكن رفعها]]> <![CDATA[مساعده فى فورم اضافه سجل جديد]]> https://vb4arb.com/vb/showthread.php?tid=37353 Sat, 02 Jan 2021 08:33:05 +0000 سلام و محبه]]> https://vb4arb.com/vb/showthread.php?tid=37353 عند اضافه سجل جديد فى جدول bank اريد الحصول على عدد السجلات و يضيف 1 اذا كان لايوجد سجلات فكتبت التالى
كود :
       Dim getdate As New db_accountDataContext

       Dim maxid = Aggregate newid In getdate.banks Into Max(newid.bank_id)

       TxtBank_id.Text = maxid + 1
عدلت الكود ليصبح هكذا




كود :
       Dim getdata As New db_accountDataContext

       Dim b = From cors In getdata.banks Select cors

       Dim maxid = Aggregate newid In getdata.banks Into Max(newid.bank_id)


       If IsDBNull(b) Then
           TxtBank_id.Text = 1
       Else
           TxtBank_id.Text = maxid + 1
       End If
لكنه لايعمل
مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
[attachment=26225]مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
غيرت اسم الداتابيس فى المرفقات ليصبح s]]> عند اضافه سجل جديد فى جدول bank اريد الحصول على عدد السجلات و يضيف 1 اذا كان لايوجد سجلات فكتبت التالى
كود :
       Dim getdate As New db_accountDataContext

       Dim maxid = Aggregate newid In getdate.banks Into Max(newid.bank_id)

       TxtBank_id.Text = maxid + 1
عدلت الكود ليصبح هكذا




كود :
       Dim getdata As New db_accountDataContext

       Dim b = From cors In getdata.banks Select cors

       Dim maxid = Aggregate newid In getdata.banks Into Max(newid.bank_id)


       If IsDBNull(b) Then
           TxtBank_id.Text = 1
       Else
           TxtBank_id.Text = maxid + 1
       End If
لكنه لايعمل
مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
[attachment=26225]مرفق ملف ال فيجوال و الداتابيس من نوع سيكوال سيرفر 2008
غيرت اسم الداتابيس فى المرفقات ليصبح s]]> <![CDATA[اريد شرح لجميع دوال ال linq]]> https://vb4arb.com/vb/showthread.php?tid=37325 Tue, 29 Dec 2020 18:51:19 +0000 سلام و محبه]]> https://vb4arb.com/vb/showthread.php?tid=37325 اريد شرح لجميع دوال ال linq]]> اريد شرح لجميع دوال ال linq]]> <![CDATA[السلام عليكم و رحمة الله و بركاته]]> https://vb4arb.com/vb/showthread.php?tid=37315 Mon, 28 Dec 2020 12:26:42 +0000 سلام و محبه]]> https://vb4arb.com/vb/showthread.php?tid=37315 السلام عليكم و رحمة الله و بركاته

اريد كود بلدر او بانى الكود يفضل ان يكون بتقنيه linq]]> السلام عليكم و رحمة الله و بركاته

اريد كود بلدر او بانى الكود يفضل ان يكون بتقنيه linq]]> <![CDATA[طريقة البحث المتعدد]]> https://vb4arb.com/vb/showthread.php?tid=24024 Thu, 01 Mar 2018 14:11:43 +0000 saad mahyoub]]> https://vb4arb.com/vb/showthread.php?tid=24024 السلام عليكم ورحمة الله وبركاتة
ارجو المساعده لى اضافة طريقة البحث Where SqlMethods.Like للمتغير SrchResult

كود :
Public Class AdvSearch
   Dim datatest As New TestDataContext
   
   Sub New()

       ' This call is required by the designer.
       InitializeComponent()

       ' Add any initialization after the InitializeComponent() call.


       ' We Call MainBind Procedure To Bind Data To Respective Combo's
       MainBind()
   End Sub

   Private Sub MainBind()
       Try
           'Binding Customer Combo
           CustomerCombo.DataSource = From l In datatest.Customers Select l.CustomerID, l.CompanyName
           CustomerCombo.ValueMember = "CustomerID"
           CustomerCombo.DisplayMember = "CompanyName"
           CustomerCombo.SelectedValue = -1

           'Binding Shippers ComboBox
           ShippersCombo.DataSource = From l In datatest.Shippers Select l.ShipperID, l.CompanyName
           ShippersCombo.ValueMember = "ShipperID"
           ShippersCombo.DisplayMember = "CompanyName"
           ShippersCombo.SelectedValue = -1

           'Binding Employee ComboBox
           EmployeeCombo.DataSource = From l In datatest.Employees Select l.EmployeeID, l.FirstName
           EmployeeCombo.ValueMember = "EmployeeID"
           EmployeeCombo.DisplayMember = "FirstName"
           EmployeeCombo.SelectedValue = -1

       Catch ex As Exception
           MessageBox.Show(ex.Message, "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
       
     

   End Sub

   Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click

     

       'Select the entire Order table and put result in an Anonymous Type variable called SrchResult
       Dim SrchResult = From k In datatest.Orders Select k

       Dim flag As Boolean = False
       SearchResultGrid.Controls.Clear()
       Try

           'Sort All Orders Which Have The Selected Customer ID
           If CustomerCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.CustomerID = CStr(CustomerCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Shipper ID
           If ShippersCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipVia = CInt(ShippersCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Employee ID
           If EmployeeCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.EmployeeID = CInt(EmployeeCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Order Date
           If OrderDatetxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.OrderDate = CDate(OrderDatetxt.Text))
           End If

           'Sort All Orders Which Have The Selected Required Date
           If RequiredDateTxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.RequiredDate = CDate(RequiredDateTxt.Text))
           End If

           'Sort All Orders Which Have The Selected Shipped Date
           If ShippedDateTxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShippedDate = CDate(ShippedDateTxt.Text))
           End If


           'Sort All Orders Which Have The Selected Shipped Address
           If ShippedAddressTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipAddress = CStr(ShippedAddressTxt.Text))
           End If


           ''Sort All Orders Which Have The Selected Shipped City
           If ShippedCityTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipCity = CStr(ShippedCityTxt.Text))
           End If

           'Sort All Orders Which Have The Selected Shipped Country
           If ShippedCountryTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipCountry = CStr(ShippedCountryTxt.Text))

           End If

    If flag = False Then
               MessageBox.Show("Please Select A Criteria For Search", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Exit Sub
           End If

           If SrchResult.Any Then
               SrchResult = SrchResult.OrderBy(Function(k) k.CustomerID)
               SearchResultGrid.DataSource = SrchResult

           Else
               MessageBox.Show("There Is No Record That Matchs Your Criteria.", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)

           End If


       Catch Ex As Exception
           MessageBox.Show(Ex.Message, "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try

   End Sub
End Class
]]> السلام عليكم ورحمة الله وبركاتة
ارجو المساعده لى اضافة طريقة البحث Where SqlMethods.Like للمتغير SrchResult

كود :
Public Class AdvSearch
   Dim datatest As New TestDataContext
   
   Sub New()

       ' This call is required by the designer.
       InitializeComponent()

       ' Add any initialization after the InitializeComponent() call.


       ' We Call MainBind Procedure To Bind Data To Respective Combo's
       MainBind()
   End Sub

   Private Sub MainBind()
       Try
           'Binding Customer Combo
           CustomerCombo.DataSource = From l In datatest.Customers Select l.CustomerID, l.CompanyName
           CustomerCombo.ValueMember = "CustomerID"
           CustomerCombo.DisplayMember = "CompanyName"
           CustomerCombo.SelectedValue = -1

           'Binding Shippers ComboBox
           ShippersCombo.DataSource = From l In datatest.Shippers Select l.ShipperID, l.CompanyName
           ShippersCombo.ValueMember = "ShipperID"
           ShippersCombo.DisplayMember = "CompanyName"
           ShippersCombo.SelectedValue = -1

           'Binding Employee ComboBox
           EmployeeCombo.DataSource = From l In datatest.Employees Select l.EmployeeID, l.FirstName
           EmployeeCombo.ValueMember = "EmployeeID"
           EmployeeCombo.DisplayMember = "FirstName"
           EmployeeCombo.SelectedValue = -1

       Catch ex As Exception
           MessageBox.Show(ex.Message, "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
       
     

   End Sub

   Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click

     

       'Select the entire Order table and put result in an Anonymous Type variable called SrchResult
       Dim SrchResult = From k In datatest.Orders Select k

       Dim flag As Boolean = False
       SearchResultGrid.Controls.Clear()
       Try

           'Sort All Orders Which Have The Selected Customer ID
           If CustomerCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.CustomerID = CStr(CustomerCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Shipper ID
           If ShippersCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipVia = CInt(ShippersCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Employee ID
           If EmployeeCombo.SelectedValue <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.EmployeeID = CInt(EmployeeCombo.SelectedValue))
           End If

           'Sort All Orders Which Have The Selected Order Date
           If OrderDatetxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.OrderDate = CDate(OrderDatetxt.Text))
           End If

           'Sort All Orders Which Have The Selected Required Date
           If RequiredDateTxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.RequiredDate = CDate(RequiredDateTxt.Text))
           End If

           'Sort All Orders Which Have The Selected Shipped Date
           If ShippedDateTxt.Text <> Nothing Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShippedDate = CDate(ShippedDateTxt.Text))
           End If


           'Sort All Orders Which Have The Selected Shipped Address
           If ShippedAddressTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipAddress = CStr(ShippedAddressTxt.Text))
           End If


           ''Sort All Orders Which Have The Selected Shipped City
           If ShippedCityTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipCity = CStr(ShippedCityTxt.Text))
           End If

           'Sort All Orders Which Have The Selected Shipped Country
           If ShippedCountryTxt.Text <> "" Then
               flag = True
               SrchResult = SrchResult.Where(Function(p) p.ShipCountry = CStr(ShippedCountryTxt.Text))

           End If

    If flag = False Then
               MessageBox.Show("Please Select A Criteria For Search", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Exit Sub
           End If

           If SrchResult.Any Then
               SrchResult = SrchResult.OrderBy(Function(k) k.CustomerID)
               SearchResultGrid.DataSource = SrchResult

           Else
               MessageBox.Show("There Is No Record That Matchs Your Criteria.", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)

           End If


       Catch Ex As Exception
           MessageBox.Show(Ex.Message, "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try

   End Sub
End Class
]]> <![CDATA[LinqToSql Or Entity Framework]]> https://vb4arb.com/vb/showthread.php?tid=22761 Thu, 30 Nov 2017 11:49:13 +0000 حريف برمجة]]> https://vb4arb.com/vb/showthread.php?tid=22761
اعزائي سوالي هو :

ماهو الافضل للتعامل مع قواعد البيانات :

1 - LinqToSQL
2- Entity Framework Core

؟]]>
اعزائي سوالي هو :

ماهو الافضل للتعامل مع قواعد البيانات :

1 - LinqToSQL
2- Entity Framework Core

؟]]> <![CDATA[خطأ في تطبيق Linq to Sql]]> https://vb4arb.com/vb/showthread.php?tid=21016 Mon, 10 Jul 2017 21:22:45 +0000 Abdh111]]> https://vb4arb.com/vb/showthread.php?tid=21016 اخوتي الكريم أعزكم الله جميعا وبارك فيكم
ومشكلتي كالتالي
قمت باضافة Linq To sql وربط قاعدة البيانات بنجاح كما هو مبين بالصوره

يظهر لي الخطأ التالي

Error 1 Overload resolution failed because no accessible 'New' accepts this number of arguments.

ما أدري أين المشكلة بالله عليكم أفيدونا افادكم الله

.png   خطا في تطبيق لنك تو سكوال Overload resolution failed because no accessible 'New' accepts this number of arguments.png (الحجم : 54.86 ك ب / التحميلات : 71) ]]> اخوتي الكريم أعزكم الله جميعا وبارك فيكم
ومشكلتي كالتالي
قمت باضافة Linq To sql وربط قاعدة البيانات بنجاح كما هو مبين بالصوره

يظهر لي الخطأ التالي

Error 1 Overload resolution failed because no accessible 'New' accepts this number of arguments.

ما أدري أين المشكلة بالله عليكم أفيدونا افادكم الله

.png   خطا في تطبيق لنك تو سكوال Overload resolution failed because no accessible 'New' accepts this number of arguments.png (الحجم : 54.86 ك ب / التحميلات : 71) ]]> <![CDATA[سؤال في تطبيق الدرس الأول Linq to Sql]]> https://vb4arb.com/vb/showthread.php?tid=20700 Sat, 10 Jun 2017 20:46:53 +0000 Abdh111]]> https://vb4arb.com/vb/showthread.php?tid=20700
عند خطوه انشاء اتصال مع قاعدة البيانات من داخل بيئة الفيجوال دوت نت
 لا يوجد لدي server explorer
لا أعرف ما السبب برجاء المساعده

.jpg   استكمال الدرس الأول Linq to sql.jpg (الحجم : 200.16 ك ب / التحميلات : 89)

.png   لا يوجد سيرفر اكسبلورار.png (الحجم : 141.08 ك ب / التحميلات : 86) ]]>
عند خطوه انشاء اتصال مع قاعدة البيانات من داخل بيئة الفيجوال دوت نت
 لا يوجد لدي server explorer
لا أعرف ما السبب برجاء المساعده

.jpg   استكمال الدرس الأول Linq to sql.jpg (الحجم : 200.16 ك ب / التحميلات : 89)

.png   لا يوجد سيرفر اكسبلورار.png (الحجم : 141.08 ك ب / التحميلات : 86) ]]> <![CDATA[سؤال حول JOINT في تقنية LINQ]]> https://vb4arb.com/vb/showthread.php?tid=20621 Sun, 04 Jun 2017 12:52:09 +0000 ndjakoub]]> https://vb4arb.com/vb/showthread.php?tid=20621 سؤالي هو
لدي جدولين اريد عمل LEFT JOIN بينهما
بطريقة sql تظهر النتيجة كما أريدها
ولكن بتقنية LINQ يعطي النتيجة كأنها INNER JOIN

أريد دالة LINQ تعطي لي النتيجة كما في الصورة المرفقة

.png   auestionJOINTURE.png (الحجم : 48.7 ك ب / التحميلات : 129) ]]> سؤالي هو
لدي جدولين اريد عمل LEFT JOIN بينهما
بطريقة sql تظهر النتيجة كما أريدها
ولكن بتقنية LINQ يعطي النتيجة كأنها INNER JOIN

أريد دالة LINQ تعطي لي النتيجة كما في الصورة المرفقة

.png   auestionJOINTURE.png (الحجم : 48.7 ك ب / التحميلات : 129) ]]> <![CDATA[Microsoft Report using LINQ TO SQL]]> https://vb4arb.com/vb/showthread.php?tid=20258 Thu, 04 May 2017 23:31:07 +0000 Abu Ehab]]> https://vb4arb.com/vb/showthread.php?tid=20258 Microsoft Report using LINQ TO SQL
]]> Microsoft Report using LINQ TO SQL
]]> <![CDATA[Save and Retreve Image]]> https://vb4arb.com/vb/showthread.php?tid=19807 Mon, 27 Mar 2017 09:50:52 +0000 Abu Ehab]]> https://vb4arb.com/vb/showthread.php?tid=19807 السلام عليكم  
 Save and retreve Image in sql server database 
مثال  على  حفظ واسترجاع الصورة  

اأ
أسألك يا الله  في هذا اليوم  أن تغفر لعبدك  أبو ليث  وتدخله فسيح جناتك يا رب العالمين 
تحياتي للجميع ..]]> السلام عليكم  
 Save and retreve Image in sql server database 
مثال  على  حفظ واسترجاع الصورة  

اأ
أسألك يا الله  في هذا اليوم  أن تغفر لعبدك  أبو ليث  وتدخله فسيح جناتك يا رب العالمين 
تحياتي للجميع ..]]> <![CDATA[سؤال في LINQ]]> https://vb4arb.com/vb/showthread.php?tid=19781 Sat, 25 Mar 2017 07:28:47 +0000 a_abdullah]]> https://vb4arb.com/vb/showthread.php?tid=19781 ممكن حل لهذا السؤال في (LINQ)
مصفوفة تحتوي على 7 و 2 و 7 و 5 و 5 و 7 و 9 و 1 و 4 و 3 و 7 و 7 و 1 و 2 و 6
اكتب استعلام الذي يحدد جميع الأرقام الفردية.
ثم، طباعة مجموع الأرقام في ( IEnumerable Object ).
وشككرا مقدمما  Heart]]> ممكن حل لهذا السؤال في (LINQ)
مصفوفة تحتوي على 7 و 2 و 7 و 5 و 5 و 7 و 9 و 1 و 4 و 3 و 7 و 7 و 1 و 2 و 6
اكتب استعلام الذي يحدد جميع الأرقام الفردية.
ثم، طباعة مجموع الأرقام في ( IEnumerable Object ).
وشككرا مقدمما  Heart]]> <![CDATA[ال الاتصال المنفصل و ال linq]]> https://vb4arb.com/vb/showthread.php?tid=15826 Mon, 16 May 2016 12:28:04 +0000 vb.net0]]> https://vb4arb.com/vb/showthread.php?tid=15826 السلام عليكم ايهما احسن في البرامج الكبيه (برنامج حسابات) الاتصال المنفصل (using dataset) ام linq (الاستعلام الكامل)]]> السلام عليكم ايهما احسن في البرامج الكبيه (برنامج حسابات) الاتصال المنفصل (using dataset) ام linq (الاستعلام الكامل)]]> <![CDATA[DataGridView Paging LINQ TO SQL]]> https://vb4arb.com/vb/showthread.php?tid=14426 Mon, 18 Jan 2016 10:04:53 +0000 Abu Ehab]]> https://vb4arb.com/vb/showthread.php?tid=14426
DataGridView Paging LINQ TO SQL


داتابيس سكربت موجوده  مع المثال
يعطيكم العافية

.rar   DataGridView Paging.rar (الحجم : 71.26 ك ب / التحميلات : 168) ]]>
DataGridView Paging LINQ TO SQL


داتابيس سكربت موجوده  مع المثال
يعطيكم العافية

.rar   DataGridView Paging.rar (الحجم : 71.26 ك ب / التحميلات : 168) ]]> <![CDATA[مشكلة فى select using linq to sql]]> https://vb4arb.com/vb/showthread.php?tid=14209 Tue, 22 Dec 2015 13:10:06 +0000 م.أحمد الدسوقى]]> https://vb4arb.com/vb/showthread.php?tid=14209 تجيب عدة قيم من صف وتستخرجهم إلى صناديق نص
فى وجود شرط لل select
تحياتى لكم جميعا]]> تجيب عدة قيم من صف وتستخرجهم إلى صناديق نص
فى وجود شرط لل select
تحياتى لكم جميعا]]>