تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة بكتابة كود إظهار عدد الاسماء المتطابقة في الجدول
#1
السلام عليكم

لدي عدة اسماء سيارات و هي لثلاث شركات تويوتا و نيسان و مازدا ،

اريد ان يظهر لي في الفورم الرئيسي عدد السيارات المخزنة في قاعدة البيانات كلاُ لوحدة

مثل تويوتا يتوفر عدد (3) سيارات ،،، ونيسان عدد (2) وهكذا ،

البرنامج مرفق و المطلوب كتابة الكود فقط و تحديثة أذا تم إدخال او حذف عنصر مباشرة

شاكر و مقدر للجميع
.rar   Almrkz.rar (الحجم : 207.57 ك ب / التحميلات : 31)
الرد }}}}
تم الشكر بواسطة:
#2
أرفق المشروع بأكمله فهو ناقص
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#3
ليس بالضروري ارفاق المشروع باكمله وانما مشرفنا سيعطينا نبذة ومثال قصير لحل هذه المسالة

بانتظار مشرف هذا القسم يبدع لنا مشروع بسيط يوضح الفكرة
الرد }}}}
تم الشكر بواسطة:
#4
يا بادئ حبة حبة , لو تبحث بتلاقي الكثير في المنتدى
بعدين نحن منعطي فكرة و كود يؤدي المهمة و ان لم يكن بد بنعمل مثال
الفكرة ما يحتاجلها الكثير يعني كود بسيط يؤدي المهمة افضل للسائل لكي يتعلم اكثر 
على اي حال ....
ان كنت تخزن السيارة بدون رقم فريد (لكل سيارة اقصد) فانت راح تستعلم حسب اسم السيارة
اما اذا كنت بتخزن كل نوع من السيارات برقم فريد (و هو الافضل) فانت راح تستعلم حسب رقم النوع
و لكي يكون الاستعلام واحد لكل الانواع لكي لا ندخل في كثرة الاكواد و تكرارها فالافضل عمل دالة تستقبل وسيط اما اسم السيارة او رقم النوع

هذة الدالة تستقبل اسم السيارة

PHP كود :
   Public Function GetCarBy_Name(ByVal CarName As String) As Integer

        Using Con 
As New SqlConnection("هنا حط نص الاتصال")

 
           Dim Serch As String "Select Count(CarNmae) As Counter From Cars Where CarName = @CarName"
 
           Using SerChCommand As New SqlCommand(SerchCon)
 
               With SerChCommand
                    
.Parameters.AddWithValue("@CarName"CarName)
 
                   .Connection.Open()
 
               End With
                Using Reader 
As SqlDataReader SerChCommand.ExecuteReader
                    With Reader
                        While 
.Read
                            If 
.HasRows Then
                                Return CInt
(Reader.Item("Counter"))
 
                           Else
                                Return 0
                            End 
If
 
                       End While
 
                   End With

                End Using
            End Using
        End Using
        Return 0

    End 
Function 
الاستدعاء
PHP كود :
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        TextBox1
.Text GetCarBy_Name("مازدا")
 
       TextBox2.Text GetCarBy_Name("تويوتا")
 
   End Sub 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: بادئ
#5
مين قصدك مشرفنا؟

المشرفين في هذا القسم هم :
khodor1985
Hassan
الكاتب
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#6
ابو ليلى

لم استطع اضافة الكود ، هل تتكرم و تعمله على المثال المرفق في موضوعي
الرد }}}}
تم الشكر بواسطة:
#7
من عيوني , كل يوم تعال  Smile

هذا كود النموذج نسخ و لصق روحي 

PHP كود :
Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        
'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
        Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
        CollectAll()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Gray
        ModelBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ModelBindingSource.EndEdit()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        CollectAll()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ModelBindingSource.RemoveCurrent()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
        CollectAll()
    End Sub


   Private Function GetCarBy_Name(ByVal CarName As String) As Integer

        Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)

            Dim Serch As String = "Select count(id1) As Couning From Model Where id1 = @carName"
            Using SerChCommand As New OleDbCommand(Serch, Con)
                With SerChCommand
                    .Parameters.AddWithValue(" @carName", CarName)
                    .Connection.Open()
                End With
                Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
                    With Reader
                        While .Read
                            If .HasRows Then
                                Return CInt(Reader.Item("Couning"))
                            Else
                                Return 0
                            End If
                        End While
                    End With

                End Using
            End Using
        End Using
        Return 0

    End Function
    Private Sub CollectAll()
        TextBox3.Text = GetCarBy_Name("تيوتا")
        TextBox7.Text = GetCarBy_Name("مازدا")
        TextBox6.Text = GetCarBy_Name("نيسان")
    End Sub
End Class 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة:
#8
(11-09-16, 09:04 PM)ابو ليلى كتب : من عيوني , كل يوم تعال  Smile

هذا كود النموذج نسخ و لصق روحي 

PHP كود :
Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        
'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
        Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
        CollectAll()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Gray
        ModelBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ModelBindingSource.EndEdit()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        CollectAll()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ModelBindingSource.RemoveCurrent()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
        CollectAll()
    End Sub


   Private Function GetCarBy_Name(ByVal CarName As String) As Integer

        Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)

            Dim Serch As String = "Select count(id1) As Couning From Model Where id1 = @carName"
            Using SerChCommand As New OleDbCommand(Serch, Con)
                With SerChCommand
                    .Parameters.AddWithValue(" @carName", CarName)
                    .Connection.Open()
                End With
                Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
                    With Reader
                        While .Read
                            If .HasRows Then
                                Return CInt(Reader.Item("Couning"))
                            Else
                                Return 0
                            End If
                        End While
                    End With

                End Using
            End Using
        End Using
        Return 0

    End Function
    Private Sub CollectAll()
        TextBox3.Text = GetCarBy_Name("تيوتا")
        TextBox7.Text = GetCarBy_Name("مازدا")
        TextBox6.Text = GetCarBy_Name("نيسان")
    End Sub
End Class 

تسلم عيونك يا عسل ،،، تم عمل المطلوب

الله يسعدك دنيا و أخرة ، واشكرك من كل قلبي

ابو ليلى

تبقى عندي الكود التالي تمت كتابته مسبقاً..( TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count)

لأني كتبته في الفورم لاود

لا يتحدث أثناء الاضافة أو الحذف ، يجب أن اطفى البرنامج و أعيد تشغيله لتظهر

ابو ليلى

تبقى عندي الكود التالي  تمت كتابته مسبقاً..(  TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count)

لأني كتبته في الفورم لاود

لا يتحدث أثناء الاضافة أو الحذف ، يجب أن اطفى البرنامج و أعيد تشغيله لتظهر
الرد }}}}
تم الشكر بواسطة: ابو ليلى
#9
شكرا على أخلاقك الرفيعة أخ بادئ.
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة: HASAN6.0 , HASAN6.0
#10
يا ابو وسيم
اعد ارفاق المشروع بالتعديلات الاخيرة لانني حذفت المشروع من عندي
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 69 منذ 7 ساعة مضت
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 282 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور
  طلب كود لحذف جميع البيانات من الجدول haiderkh 4 115 21-11-16, 07:11 PM
آخر رد: haiderkh
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 77 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم