منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

شباب ضروري عندي ملف اكسس رابطه بي الفيجوال بيسك
بحطه في المرفقات

الان عندي التكييف تكررت مرتين ابي اجمعها الاجمالي يعني
االاوله التكييف الكمية 5

والثانية التكييف الكمية 2

ابي الاجمالي لها راح يكون 7

يصير

التكييف الكمية = 7

الكراسي = 2

استمنا تساعدووني تكفون

كود فيجوال انا عارف كل شيء الا كيف اجيب الاجمالي

اخي

اول شيء تحط textbox ثالث يطلع فيه الناتج

وحط زر Button وحط الكود التالي للزر

كود :

  Dim A, B As Single

        A = TextBox1.Text

        B = TextBox2.Text

        TextBox3.Text = A + B

(16-12-14, 11:02 PM)saudisgames كتب : [ -> ]اخي

اول شيء تحط textbox ثالث يطلع فيه الناتج

وحط زر Button وحط الكود التالي للزر

كود :

Dim A, B As Single A = TextBox1.Text B = TextBox2.Text TextBox3.Text = A + B

لو كان مثل ما تقول كان سهههله لاكن ماتجي بالطريقة حقتك
انا استعمل قاعدة بيانات وووقفت هنا حاولت كثييير
انتظر الاجابه ي وحووش

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

طالما تعرف البرمجة أكيد تعرف تستخدم هذا الاستعلام
SUM: دالة المجموع
qty = الكمية وهي رقم
هي = رقم المنتج مثلا رقم التكييف:2

PHP كود :

SELECT SUM([qty])
FROM [table1]
WHERE [id]=2 

الله يوفقك

(17-12-14, 12:11 AM)الوليد ☺ كتب : [ -> ]
السلام عليكم ورحمة الله

طالما تعرف البرمجة أكيد تعرف تستخدم هذا الاستعلام
SUM: دالة المجموع
qty = الكمية وهي رقم
هي = رقم المنتج مثلا رقم التكييف:2

PHP كود :

SELECT SUM([qty]) FROM [table1] WHERE [id]=2

اعرفها لكن ي اخوي رقم العامود كيف تراني فاهم الكود لكن خبرتي في الاكسس قليل
رقم العامود كيف اسوي فيه

الله يوفقك

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

أنا الحين شفت المرفق
لقيتك مسوي إنك كاتب اسم الصنف مباشرة، وكمان كاتب الاسماء بالعربي وبمسافات
وهذه الطريقة راح تواجهك بسببها مشاكل

طبق هذا الاستعلام راح يعطيك كل صنف ومجموع الكمية
GROUP BY تعني مجموعات والمقصود يقوم بتجميع الاسطر بناء على اسم العمود وهنا كتبنا [اسم الصنف]
وراح تكون النتيجة:
التكييف : 7
الكراسي : 2

PHP كود :

SELECT [اسم الصنف], SUM([الكمـية])
FROM [husin]
GROUP BY [اسم الصنف] 

وحكاية رقم العمود هذا لو كنت مسوي جدول خاص باسماء الأصناف ويكون فيه رقم تعريف id ترقيم تلقائي ومفتاحي
وفي الجدول الثاني تذكر الصنف برقمة لا باسمه

وأكيد بعض الأخوة متفرغين ممكن يشرحون أحسن مني

محد يعرف ؟

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

بصراحة ما فهمت مقصدك ردك الأخير (محد يعرف ؟) لكن راح أحسن الظن فيك.

تفضل هذا مثال تطبيقي أضف زر وداتاجريد وإن شاء الله تمام

PHP كود :

Public Class Form1

    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database191.accdb"

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Using da As New OleDb.OleDbDataAdapter("SELECT [اسم الصنف], SUM([الكمـية]) AS [الكمـية] FROM [husin] GROUP BY [اسم الصنف]", connString)
            Using dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub

End Class 

(17-12-14, 01:21 AM)الوليد ☺ كتب : [ -> ]
السلام عليكم ورحمة الله

بصراحة ما فهمت مقصدك ردك الأخير (محد يعرف ؟) لكن راح أحسن الظن فيك.

تفضل هذا مثال تطبيقي أضف زر وداتاجريد وإن شاء الله تمام

PHP كود :

Public Class Form1 Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database191.accdb" Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Using conn As New OleDb.OleDbConnection(connString) Using da As New OleDb.OleDbDataAdapter("SELECT [اسم الصنف], SUM([الكمـية]) AS [الكمـية] FROM [husin] GROUP BY [اسم الصنف]", conn) Using dt As New DataTable da.Fill(dt) Me.DataGridView1.DataSource = dt End Using End Using End Using End Sub End Class

الف شكر لك

بس لو ممكن ابي اخلي الاجمالي في التكست بوكس

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

تفضل هذه دالة تجلب لك الكمية حسب اسم الصنف، ولا داعي ل**** فأنا لا أسعى له، فلا تقلق. الله يوفقك

PHP كود :

Public Class Form1

    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database191.accdb"

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.TextBox2.Text = GetSum(Me.TextBox1.Text)
    End Sub

    Private Function GetSum(s As String) As Integer
        Try

            Dim sql As String = _
                "SELECT SUM([الكمـية])" & _
                "FROM [husin] " & _
                "WHERE [اسم الصنف] = @where"

            Using conn As New OleDb.OleDbConnection(connString)
                Using cmd As New OleDb.OleDbCommand(Sql, conn)
                    cmd.Parameters.AddWithValue("@where", s)

                    conn.Open()
                    Dim result As Object = cmd.ExecuteScalar
                    conn.Close()

                    If TypeOf result Is DBNull Then
                        MsgBox("لا يوجد اسم الصنف: " & s, MsgBoxStyle.MsgBoxRtlReading)
                    Else
                        Return result
                    End If

                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

End Class 

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mudz

saudisgames

mudz

الوليد ☺

mudz

الوليد ☺

mudz

الوليد ☺

mudz

الوليد ☺