مشكلة فى البحث فى قاعدة البيانات بسبب المسافات

اخي العزيز

إستخدم امر TRIM و ذلك لإزالة المسافات

مثال

SELECT *
FROM Table_Name WHERE (Trim([Field_name])='AnyThing')

اخي العزيز كيف استخدم هذا الامر

اذا ممكن تفيدني

وانتظر الرد

:D السلام عليكم ورحمة الله وبركاته :D

:) تفضل اخي العزيز شرح لاشتخدامها وذلك في حالة استخدامك لمكتبة ADO

:) توضع في قسم التصريحات General Decleration

Dim CN As New ADODB.Connection  
Dim RS As New ADODB.Recordset

:blink: هذا كود لفتح قاعدة البيانات الموجودة لديك

cn.Open "provider=microsoft.jet.oledb.4.0;data source=test.mdb"

:huh: هذا كود استخدام ال RS مع جملة SQL

rs.CursorLocation = adUseClient
rs.Open "Select * From cust where ((trim(Name)) = 'MAXBAYNE' ", cn, adOpenKeyset, adLockOptimistic

:D حيث cust هو اسم الجدول

:D حيث Name هو اسم الحقل

:lol: والسلام عليكم ورحمة الله وبيركاته :lol:

اخواني الاعزاء انا وظعة المرفق فيه البرنامج الى تكلمة عنه

انا ماقدرة اسويها اذا ممكن اي واحد يساعدني فيها

يظع التعديلات المطلوبه على البرنامج

انتظر الرد

db.zip

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

انتظر الدر ولم اجد الرد

انتظر الرد

أخي السائل:

تم تعديل البرنامج كالتالي:

	If Text1.Text <> "" Then Sql = "Trim(name) LIKE '%" & Text1.Text & "%'": AddAnd = True
	If Text2.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND Trim(name1) LIKE '%" & Text2.Text & "%'" Else Sql = "name2 LIKE '%" & Text2.Text & "%'": AddAnd = True
	If Text3.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND Trim(name2) LIKE '%" & Text3.Text & "%'" Else Sql = "name3 LIKE '%" & Text3.Text & "%'": AddAnd = True
	If Text4.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND Trim(name3) LIKE '%" & Text4.Text & "%'" Else Sql = "name4 LIKE '%" & Text4.Text & "%'": AddAnd = True
	If Text5.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND Trim(name4) LIKE '%" & Text5.Text & "%'" Else Sql = "number LIKE '%" & Text5.Text & "%'"

وموجود الملف المعدل في المرفقات.

اين المرفق اخي العزيز

انتظر الرد

معذرة فقد سقط المرفق سهوا، هذا هو المرفق.

db.zip