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

أنا قصدكم في خدمة وعلى ثقة في قدرتكم على حلها
أنا الحمد لله بدأت أدرس برمجة في أحد شركات الكمبيوتر ولكني مبتديء
أعطوانا أسطوانات اتفرجت عليها ، لكن فيه مشكلة عندي في كود
هو عبارة عن ( مجموع الطلاب الحاصلين على مجموع بين رقمين )
المشروع عبارة عن برنامج إدخال بيانات وبه شاشة لإدخال درجات 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
شكراً
والسلام عليكم ورحمة الله وبركاته

انشء الكويري داخل متغير 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 & "'"

---