اين اكتب جمل Sql

Private Sub Text1_Change()
" هنا يوضع الإستعلام "
End Sub

اخي الكريم شكرا لتفاعلك و ردك

لكن انا مش بسئل عن الحدث

انا بسئل ازاي يشتغل مع الادوات

انا جربت زي ما حضرتك قولت لكن ظهرت ليا رساله خطا

والرساله ده نصها

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Expected: line number or label or statement or end of statement
---------------------------
OK   Help

السلام عليكم...

إذا كنت تستعمل أداة الـ ADO (مثلاً Adodc1) فالكود يكون كالتالي (طبعاً تكون الخاصية ConnectionString مضبوطة سابقاً):

	Adodc1.RecordSource = "SELECT * FROM date WHERE name = '" & X & "'"
	Adodc1.Refresh

نصيحة: عند تسمية حقول جدول في قاعدة البيانات حاول أن تتجنب استعمال كلمات قد يكون لها معنى خاص مثل Date و Name ... إلخ.

نرجو الاستفادة و السلام.

اخي الفاضل najy

انا فعلا نفذت الكود ده و ظابط الخاصيه لكن للاسف الكود لم يعمل معي

انا عاوز لما اضغط علي الزرار لا يظهر في الداتا جريد المربوطه بالـ ADODC3 الا ما يتوافق مع محتويات مربع نص مربوط بـ ADODC1

مع العلم ان ADODC3 مربوطه بجدول يربطه علاقه بالجدول المربوط بـ ADODC1 وهو الجدول الرئيسي

يمكن ان تضع جملتك في متغير string

اي مثلا

dim sqlstr as string

sqlstr= "SELECT * From date Where name = ' " & X

& " ' "

هل بالامكان ان تحدد لنا عمل البرنامج وخصوصا جملت الselect داخله يمكن نقدر نساعدك

Private Sub Command1_Click()

Dim sqlstr As String
Dim x As String

x = DataCombo1.Text
sqlstr = "SELECT * From data Where NAME_MM = ' " & x & " ' "

Adodc3.RecordSource = sqlstr

Adodc3.Refresh

End Sub

ده الكود اللي بعمله

وكل مره يطلع الخطأ في سطر

Adodc3.Refresh

بدون ما يعرض اي عمليات

رغم اني اعتقد ان الكود صحيح من الناحيه المنطقيه علي حد علمي

المرفق موضوع السؤال

tahsil.rar

السلام عليكم...

الموضوع بسيط (قمت بتنزيل المرفقات و تجربتها).

أولاً: الخاصية CommandType للمكون Adodc3 كانت مضبوطة على adCmdTable ما يعني أن قيمة الخاصية RecordSource يجب أن تكون اسم جدول و لا يمكن أن تكون جملة استعلام. و هذا أثناء التصميم صحيح لأن الخاصية RecordSource كانت مضبوطة على اسم الجدول "البيانات"، لكن أثناء التنفيذ و عند النقر على الزر فأنت تجعل قيمة الخاصية RecordSource نص استعلام (جملة SELECT) و هذا هو ما يسبب الخطأ لأن الـ Adodc3 يتوقع الحصول على اسم جدول لأن الخاصية CommandType مضبوطة على adCmdTable.

لتصحيح الأمر:

1. اضبط الخاصية CommandType للـ Adodc3 على adCmdText.

2. اكتب في الخاصية RecordSource النص التالي:

SELECT * FROM البيانات

3. يجب الانتباه إلى عدم ترك فراغات (space) بعد علامة التنصيص الفردية الأولى و قبل علامة التنصيص الفردية الثانية في نص الاستعلام و إلا فإنك لن تحصل على أية سجلات:

sqlstr = "SELECT * From البيانات Where NAME_MM = '" & x & "'"		' صح
' sqlstr = "SELECT * From البيانات Where NAME_MM = ' " & x & " '"		' خطأ

جربت الكود بعد تعديله و كان تمام.

نرجو الاستفادة و السلام.

جرب الكود الذي اعطاك اياه najy_zl

لاني بتنزيلي للمرفقات اكتشفت انك تشتغل على vb6 وانا لدي vb.net

اذا لم تنفع طريقة الاخ najy_zl سنحاول ايجاد حل اخر ان شاء الله

اخينا الفاضل najy_zl

الف شكر لحضرتك

فعلا الكود اشتغل بعد ما اتبعت ارشاداتك

جزاك الله كل خير

شكرا للجميع