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

نسخة كاملة : سؤال تكفو جاوبو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الكود دا صح ولا ولا


كود :
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(sqlStingconn)
                
Using dt As New DataTable
                    da
.Fill(dt)
                    
Me.DataGridView2.DataSource dt
                End Using
            End Using
        End Using
    End Sub 

(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(sqlStingconn)
 
               Using dt As New DataTable
                    da
.Fill(dt)
 
                   Me.DataGridView2.DataSource dt
                End Using
            End Using
        End Using
    End Sub 

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