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

تم إضافة تكست بوكس للمشروع يحدد عدد السيارات في البرنامج مثل لاندكروزر ، كامري ، ألـــخ

المطلوب فرز أخر غير الفرز بأسم الماركات

مرفق المشروع و لك تحياتي

(12-09-16, 02:36 AM)ابو ليلى كتب : ابو وســـــــم  راحت الياء  Shy
كل الحكاية تقصه و تحطه بالاجراء الاخير 
PHP كود :
Imports System.Data.SqlClient
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)
        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("نيسان")
        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
    End Sub
End Class 

الرجاء المساعدة في الرد الاخير


الملفات المرفقة
.rar   Almrkz.rar (الحجم : 215.43 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة:
#12
هل افهم من هذا ان الانواع لديك ثابته حتى وضعت مربعات نصوص ثابتة لكل نوع
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: أبووسم , أبووسم
#13
(14-09-16, 02:27 AM)ابو ليلى كتب : هل افهم من هذا ان الانواع لديك ثابته حتى وضعت مربعات نصوص ثابتة لكل نوع

نعم صحيح ثابته.. وسوف اثبتها بالكمبوبكس مستقبلاً
الرد }}}
تم الشكر بواسطة:
#14
تمام يا ابو الوسم
انا بعدلك على الكود الخاص بالدالة بحيث تقدر تمرر الحقل الذي تريد العد وفقه كوسيطة بالاضافة للقيمة المراد عدها
يعني صار فيك تجيب العدد لاي حقل تريده
مع انه فكرة يكون استعلام جاهز بالقاعدة افضل لك كون الانواع ثابته عندك
على اي حال هذا التعديل
PHP كود :
Imports System.Data.SqlClient
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)
        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

#Region "ابو ليلى"

    Private Function GetCarBy_Name(ByVal CarName As String,ColumnName As String ) As Integer

        Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)
            Dim Serch As String = "Select count(" & ColumnName & ") As Couning From Model Where " & ColumnName & " " & "=@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("تويوتا", "id1")
        TextBox7.Text = GetCarBy_Name("مازدا", "id1")
        TextBox6.Text = GetCarBy_Name("نيسان", "id1")

        TextBox9.Text = GetCarBy_Name(Label10.Text, "ename")
        TextBox10.Text = GetCarBy_Name(Label11.Text, "ename")
        TextBox11.Text = GetCarBy_Name(Label12.Text, "ename")
        TextBox12.Text = GetCarBy_Name(Label13.Text, "ename")
        TextBox13.Text = GetCarBy_Name(Label14.Text, "ename")

        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
    End Sub

#End Region



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox1.Text = "" Then
            Call notFound()
            Exit Sub

        Else

            Dim cantFind As String = TextBox1.Text

            ModelBindingSource.Filter = "(Convert(ename, '
System.String') LIKE '" & TextBox1.Text & "%')"

            If ModelBindingSource.Count <> 0 Then

                With DataGridView1
                    .ClearSelection()
                    .ReadOnly = True
                    .MultiSelect = False
                    .DataSource = ModelBindingSource
                End With

            End If

        End If

ErrExit:
        Exit Sub
SearchErr:
        MsgBox("Error Number " & Err.Number & vbNewLine &
               "Error Description " & Err.Description, MsgBoxStyle.Critical,
               "Reset Error!")
        Resume ErrExit
    End Sub
    Private Sub notFound()

        Dim txtS As TextBox = TextBox1
        With txtS
            .BackColor = Color.Silver
            .Select()
            .SelectAll()
        End With
    End Sub

    Private Sub GroupBox3_Enter(sender As Object, e As EventArgs) Handles GroupBox3.Enter

    End Sub
End Class 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: أبووسم , أبووسم
#15
تم تنفيذ المطلوب

يعجز لساني عن شكرك يا معلمنا الفاضل

و تقبل فائق تحياتي و شكري و تقديري
الرد }}}
تم الشكر بواسطة: ابو ليلى


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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