منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال تكفو جاوبو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال تكفو جاوبو (/showthread.php?tid=10959)

سؤال تكفو جاوبو - mudz - 19-12-14

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


كود :
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 اعمدة في عامود كيييف ؟؟؟

RE: سؤال تكفو جاوبو - الوليد ☺ - 20-12-14


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


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 

RE: سؤال تكفو جاوبو - mudz - 20-12-14

(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 

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