أرجو المساعدة الملحة من إخواني في الله

[عمادالجزار]

أنا قصدكم في خدمة وعلى ثقة في قدرتكم على حلها
أنا الحمد لله بدأت أدرس برمجة في أحد شركات الكمبيوتر ولكني مبتديء
أعطوانا أسطوانات اتفرجت عليها ، لكن فيه مشكلة عندي في كود
هو عبارة عن ( مجموع الطلاب الحاصلين على مجموع بين رقمين )
المشروع عبارة عن برنامج إدخال بيانات وبه شاشة لإدخال درجات 3 مواد
x و y و z
المجموع من 300
يعني اكس 100 , و كذلك المادتين التانين
وعايزين عرض درجات الحاصلين على مجموع بين 100 , و 200 مثلا
الكود هو


PrivateSub Command1_Click()

Dim A As Double
Dim B As Double
A = InputBox("أدخل الرقم الأول")
B = InputBox("أدخل الرقم الثانى")
Data1.RecordSource = " SELECT * FROM STUDENT WHERE X+Z+Y BETWEEN "&A&" And "&B&"
Data1.Refresh

End Sub


بس بيقول الفيجوال إنه غلط دائما
مش عارف ليه
أرجو الرد على موضوعي ، ياريت علشان أن لسه بتعلم وإنتم أساتذتنا ويارب تساعدوني يارب
وده إيمالي
abdallh_abdallh35@yahoo.com
شكراً
والسلام عليكم ورحمة الله وبركاته

[boo boo]

انشء الكويري داخل متغير String
وبعدين ادخله داخل datadatper
وبعدين ادخل الداتاادابتر داخل dataset or data table بالاضافه إلى اسم الجدول
وبعدين
Datagridview1.datasource= dataset.tables("name of DB ")'T

dim sql as oledbdataconnection() <-- put the query inside it
dim dt as new oledataadapter()
dim ds as new dataset (name of DB,name of connection)l
dt.fill(ds)
Datagridview1.datasource= dataset.tables("name of DB ")'T

[أبو هاجر الحلوة]

Data1.RecordSource = " SELECT * FROM STUDENT WHERE X+Z+Y BETWEEN "&A&" And "&B&"



جرب



Data1.RecordSource = "SELECT * FROM STUDENT WHERE
X+Z+Y BETWEEN " & "'" & A & "'" & " And " & "'" & B & "'"