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

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

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

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

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

شاكر و مقدر للجميع
.rar   Almrkz.rar (الحجم : 207.57 ك ب / التحميلات : 35)
الرد }}}}
تم الشكر بواسطة:
#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
يا ابو وسيم
اعد ارفاق المشروع بالتعديلات الاخيرة لانني حذفت المشروع من عندي
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفيةاعادة المعلومات الي الجدول بعد مسح ما بداخل RichTextBox khaled12345 3 78 23-05-17, 12:37 AM
آخر رد: khaled12345
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 96 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 524 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 81 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 97 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 66 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 80 09-05-17, 10:55 PM
آخر رد: mansoor
  نسخ بيانات الجدول salah mansour 4 98 07-05-17, 12:08 AM
آخر رد: salah mansour

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


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