تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكفون مساعدة
#1
Exclamation 
شباب ضروري عندي ملف اكسس رابطه بي الفيجوال بيسك
بحطه في المرفقات

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

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

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

يصير

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

الكراسي = 2

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

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


الملفات المرفقة
.rar   Database191.rar (الحجم : 15.36 ك ب / التحميلات : 32)
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#2
اخي

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

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

كود :
  Dim A, B As Single
       A = TextBox1.Text
       B = TextBox2.Text
       TextBox3.Text = A + B
الرد }}}
تم الشكر بواسطة: nabil1982
#3
(16-12-14, 11:02 PM)saudisgames كتب : اخي

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

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


كود :
  Dim A, B As Single
       A = TextBox1.Text
       B = TextBox2.Text
       TextBox3.Text = A + B
لو كان مثل ما تقول كان سهههله لاكن ماتجي بالطريقة حقتك
انا استعمل قاعدة بيانات وووقفت هنا حاولت كثييير
انتظر الاجابه ي وحووش
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#4

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

طالما تعرف البرمجة أكيد تعرف تستخدم هذا الاستعلام
SUM: دالة المجموع
qty = الكمية وهي رقم
هي = رقم المنتج مثلا رقم التكييف:2
PHP كود :
SELECT SUM([qty])
FROM [table1]
WHERE [id]=

الله يوفقك

الرد }}}
تم الشكر بواسطة:
#5
(17-12-14, 12:11 AM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

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

PHP كود :
SELECT SUM([qty])
FROM [table1]
WHERE [id]=



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

الله يوفقك

لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#6

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

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

طبق هذا الاستعلام راح يعطيك كل صنف ومجموع الكمية
GROUP BY تعني مجموعات والمقصود يقوم بتجميع الاسطر بناء على اسم العمود وهنا كتبنا [اسم الصنف]
وراح تكون النتيجة:
التكييف : 7
الكراسي : 2
PHP كود :
SELECT [اسم الصنف], SUM([الكمـية])
FROM [husin]
GROUP BY [اسم الصنف

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

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

الرد }}}
تم الشكر بواسطة:
#7
محد يعرف ؟
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#8

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

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

تفضل هذا مثال تطبيقي أضف زر وداتاجريد وإن شاء الله تمام
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.ObjectAs System.EventArgsHandles 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 

الرد }}}
تم الشكر بواسطة:
#9
(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.ObjectAs System.EventArgsHandles 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 

الف شكر لك

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

بس لو ممكن ابي اخلي الاجمالي في التكست بوكس
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#10

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

تفضل هذه دالة تجلب لك الكمية حسب اسم الصنف، ولا داعي ل**** فأنا لا أسعى له، فلا تقلق. الله يوفقك
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.ObjectAs System.EventArgsHandles Button1.Click
        Me
.TextBox2.Text GetSum(Me.TextBox1.Text)
    
End Sub

    
Private Function GetSum(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(Sqlconn)
                    
cmd.Parameters.AddWithValue("@where"s)

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

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

                
End Using
            End Using

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

End Class 

الرد }}}
تم الشكر بواسطة: mudz


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [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 221 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 ) ضيف كريم