[mudz]

الكود دا صح ولا ولا

كود :

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\dataset datc values - القاعدة الاساسية.mdb"



        Using conn As New OleDb.OleDbConnection(connString)
            Using da As New OleDb.OleDbDataAdapter("SELECT[رقم الصنف], SUM([جديد][تالف][مستعمل]) AS [جديد],[تالف],[مستعمل] FROM [MODZ] GROUP BY [رقم الصنف]", conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView2.DataSource = dt
                End Using
            End Using
        End Using
    End Sub

ليش خطا انا ابا اجمع 3 اعمدة في عامود كيييف ؟؟؟

[الوليد ☺]

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

PHP كود :

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\dataset datc values - القاعدة الاساسية.mdb"



        Using conn As New OleDb.OleDbConnection(connString)
            Dim sqlSting = _
                " SELECT [رقم الصنف] " & _
                "      , (SUM([جديد]) + SUM([تالف]) + SUM([مستعمل])) AS [المجموع] " & _
                "      , SUM([جديد]) AS [جديد] " & _
                "      , SUM([تالف]) AS [تالف] " & _
                "      , SUM([مستعمل]) AS [مستعمل] " & _
                " FROM [MODZ] " & _
                " GROUP BY [رقم الصنف]"

            Using da As New OleDb.OleDbDataAdapter(sqlSting, conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView2.DataSource = dt
                End Using
            End Using
        End Using
    End Sub 


[mudz]

(20-12-14, 06:16 AM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

PHP كود :

       Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\dataset datc values - القاعدة الاساسية.mdb"



        Using conn As New OleDb.OleDbConnection(connString)
            Dim sqlSting = _
                " SELECT [رقم الصنف] " & _
                "      , (SUM([جديد]) + SUM([تالف]) + SUM([مستعمل])) AS [المجموع] " & _
                "      , SUM([جديد]) AS [جديد] " & _
                "      , SUM([تالف]) AS [تالف] " & _
                "      , SUM([مستعمل]) AS [مستعمل] " & _
                " FROM [MODZ] " & _
                " GROUP BY [رقم الصنف]"

            Using da As New OleDb.OleDbDataAdapter(sqlSting, conn)
                Using dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView2.DataSource = dt
                End Using
            End Using
        End Using
    End Sub 


انت معلمي : بس لو تشرح لي والله