تصحيح جملة sql

[Khalid Jnb]

السلام عليكم

لدي قاعدة بيانات كبيرة الحجم تحتوي على حقول كثيرة جدا

عند اختيار الامر select  لاختيار عدد الحقول المطلوبة لايسمح لي باختيار حقول اخرى  

هل يمكن تجزئة الكود الى سطرين او اكثر

وشكرا

Private Sub ChooseTble_AfterUpdate()
If Not IsNull(Me.ChooseTble) = True Then
If Me.ChooseTble = "Table1" Then
Me.Box.RowSource = "Table/Query"
Me.Box.RowSource = "SELECT Table1.[ت ],Table1.[اسم الموظف], Table1.[العنوان الوظيفي], Table1.[مكان العمل]" & _
"FROM Table1;"
Box.Requery
End If

 

 

تم تعديل فبراير 4, 2019 بواسطه خالد سيسكو

[jjafferr]

وعليكم السلام 🙂

 

في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !!

يعني تقدر تعمل (للأسف تم قلب الاسماء ، لأنها بالعربي!!) :

"SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل] FROM Table1"

 

15 دقائق مضت, خالد سيسكو said:

عند اختيار الامر select  لاختيار عدد الحقول المطلوبة لايسمح لي باختيار حقول اخرى

هذا غير ممكن ، يمكن عندك خطأ في مكان ما!!

 

جعفر

[Khalid Jnb]

استاذ جعفر السلام عليكم

عندي اكثر من 75 حقل  تم  ادراج كثير من الحقول ولكن الحقول الاخيرة  لااستطيع كتابتها 

هل يمكن تجزئةجملة (select) الى سطرين 

[jjafferr]

اها ، قصدك السطر في VBA لا يقبل ان يكون طويل !!

نعم يمكن تجزئة السطر ، هكذا:

dim mySQL as string

mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]"
mySQL = mySQL & " FROM Table1"

Me.Box.RowSource = mySQL

 

وهنا مثالين على الطريقة:

 

جعفر

[jjafferr]

وعليكم السلام 🙂

 

في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !!

يجب الانتباه الى اضافة مسافة فارغة بين كل سطر، ابتداءً من السطر الثاني:

dim mySQL as string

mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]"
mySQL = mySQL & " FROM Table1"

Me.Box.RowSource = mySQL

.

لذا، من الافضل استعمال الطريقة التالية للسطور ابتداءً من السطر الثاني ، هكذا :

dim mySQL as string

mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]"
mySQL = mySQL & chr(32) & " FROM Table1"

Me.Box.RowSource = mySQL

 

جعفر

[Khalid Jnb]

السلام عليكم استاذ جعفر

شكرا لك

تم العمل بنجاح

بارك الله فيك