+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ (/showthread.php?tid=36833)
الصفحات:
1
2
كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - السندبااد - 02-11-20
السلام عليكم ورحمة الله وبركاته
عندي هذه الدالة ReplaceString:
كيف أقوم باستخدامها ضمن جملة الاستعلام التالية:
عندما أستخدم الدالة Replace لا تحدث مشكلة:
ولكن عندما أستخدم دالتي الجديدة ReplaceString تظهر لي رسالة خطأ:
عندي هذه الدالة ReplaceString:
كود :
Public Function ReplaceString(In_Text As String) As String
Dim X As Long
Dim strChar As String
Dim strReturn As String
strReturn = ""
For X = 1 To Len(In_Text)
strChar = Mid(In_Text, X, 1)
Select Case strChar
Case "ال"
strChar = ""
Case Chr(243), Chr(240), Chr(245), Chr(246), Chr(242), Chr(241), Chr(248), Chr(250)
strChar = ""
End Select
strReturn = strReturn & strChar
Next
ReplaceString = strReturn
End Functionكيف أقوم باستخدامها ضمن جملة الاستعلام التالية:
كود :
daReplace = New OleDbDataAdapter("Select * From TBooksNames Order By ReplaceString(TitleAuthor)", ConnReplace)عندما أستخدم الدالة Replace لا تحدث مشكلة:
كود :
daReplace = New OleDbDataAdapter("Select * From TBooksNames Order By REPLACE(TitleAuthor, 'ال', '')", ConnReplace)ولكن عندما أستخدم دالتي الجديدة ReplaceString تظهر لي رسالة خطأ:
(دالة غير معرفة في التعبير).
فما الحل أيها الإخوة؟
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - Anas Mahmoud - 02-11-20
الفكرة ان هذه الدالة معرفة بالنسبة لملف فيجوال بيسيك الحالي لديك فقط وليست اجراء بالنسبة ل SQL
الحل من وجهة نظري ان تجلب السجلات بدون ترتيب ثم ترتبهم بعد ذلك باستخدام LINQ
كود :
daReplace = New OleDbDataAdapter("Select * From TBooksNames", ConnReplace)
daReplace.Fill(dtReplace)
dtReplace = dtReplace.AsEnumerable().OrderBy(Function(x) ReplaceString(x("TitleAuthor"))).CopyToDataTableRE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - asemshahen5 - 02-11-20
PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
Select * from @TBooksNames;
SELECT id,REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(ChrCol ,(CHAR(243)) ,'X'),(CHAR(240)) ,'X'),
(CHAR(245)) ,'X'),(CHAR(246)) ,'X'),(CHAR(242)) ,'X'),(CHAR(241)) ,'X'),(CHAR(248)) ,'X'),(CHAR(250)) ,'X') as x FROM @TBooksNames
بعض التسالي موفق انشاء الله .
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - السندبااد - 02-11-20
(02-11-20, 05:49 PM)Anas Mahmoud كتب : الفكرة ان هذه الدالة معرفة بالنسبة لملف فيجوال بيسيك الحالي لديك فقط وليست اجراء بالنسبة ل SQL
الحل من وجهة نظري ان تجلب السجلات بدون ترتيب ثم ترتبهم بعد ذلك باستخدام LINQ
كود :
daReplace = New OleDbDataAdapter("Select * From TBooksNames", ConnReplace)
daReplace.Fill(dtReplace)
dtReplace = dtReplace.AsEnumerable().OrderBy(Function(x) ReplaceString(x("TitleAuthor"))).CopyToDataTable
للأسف لم تنجح هذه الطريقة
جزاك الله خيراً
(02-11-20, 06:18 PM)asemshahen5 كتب :PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
Select * from @TBooksNames;
SELECT id,REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(ChrCol ,(CHAR(243)) ,'X'),(CHAR(240)) ,'X'),
(CHAR(245)) ,'X'),(CHAR(246)) ,'X'),(CHAR(242)) ,'X'),(CHAR(241)) ,'X'),(CHAR(248)) ,'X'),(CHAR(250)) ,'X') as x FROM @TBooksNames
بعض التسالي موفق انشاء الله .
هذه هي الطريقة التي أستخدمها، ولكنها تجعل الكود كبيراً للغاية؛ لذا فكرت باستخدام دالة معدة مسبقاً.
شكراً لك أخي العزيز
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - asemshahen5 - 02-11-20
اذا كنت تريد استخدامه لعملية تعديل سجلات الجدول فهذا استعلام :
PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,'ال')
DECLARE @End int,@CharXT nvarchar(255);
set @End =(Select count(*) from @TBooksNames);
set @x=1;
WHILE @x < @End
begin
set @CharXT=(select ChrCol from @TBooksNames where id=@x);
update @TBooksNames set ChrCol=REPLACE(ChrCol ,@CharXT ,'X') where id=@x;
set @x +=1;
end;
Select * from @TBooksNames;
ملاحظة :
تستطيع استبدال الجدول الوهمي بجدول حقيقي بقاعدة البيانات و هذا يختصر الكود بشكل كبير و لا يبقى منه الا القليل مع اطيب امنياتي لك بالتوفيق و النجاح انشاء الله .
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - السندبااد - 02-11-20
(02-11-20, 09:23 PM)asemshahen5 كتب : اذا كنت تريد استخدامه لعملية تعديل سجلات الجدول فهذا استعلام :
PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,'ال')
DECLARE @End int,@CharXT nvarchar(255);
set @End =(Select count(*) from @TBooksNames);
set @x=1;
WHILE @x < @End
begin
set @CharXT=(select ChrCol from @TBooksNames where id=@x);
update @TBooksNames set ChrCol=REPLACE(ChrCol ,@CharXT ,'X') where id=@x;
set @x +=1;
end;
Select * from @TBooksNames;
ملاحظة :
تستطيع استبدال الجدول الوهمي بجدول حقيقي بقاعدة البيانات و هذا يختصر الكود بشكل كبير و لا يبقى منه الا القليل مع اطيب امنياتي لك بالتوفيق و النجاح انشاء الله .
ألف شكر لك أخي العزيز.
أنا أريد عرض البيانات مرتبة مع تجاهل بعض العبارات، والعبارات سأضعها ضمن الدالة ReplaceString
وفي الحقيقة الغاية معرفة كيفية استخدام دالة ضمن جملة الاستعلام
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - asemshahen5 - 02-11-20
هذا طلبك باذن الله :
PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,'ال')
DECLARE @CharXT nvarchar(255);
set @CharXT = (CHAR(240)) + '|' + (CHAR(241)) + '|' + (CHAR(242)) +'|' + (CHAR(243)) +
(CHAR(245)) + '|' + (CHAR(246)) + '|' + (CHAR(248)) +'|' + (CHAR(250));
select @CharXT;
select *
from @TBooksNames
where ChrCol like '%[^' + @CharXT + ']%' escape '|'
الكود حسب جدول بقاعدة البيانات :
PHP كود :
DECLARE @CharXT nvarchar(255);
set @CharXT = (CHAR(240)) + '|' + (CHAR(241)) + '|' + (CHAR(242)) +'|' + (CHAR(243)) +
(CHAR(245)) + '|' + (CHAR(246)) + '|' + (CHAR(248)) +'|' + (CHAR(250));
select @CharXT;
select *
from TBooksNames
where ChrCol like '%[^' + @CharXT + ']%' escape '|'
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - السندبااد - 03-11-20
(02-11-20, 10:30 PM)asemshahen5 كتب : هذا طلبك باذن الله :
PHP كود :
DECLARE @x int;
set @x= (Select ROW_NUMBER() OVER(ORDER BY (SELECT 1)))
DECLARE @TBooksNames TABLE (id int, ChrCol nvarchar(255));
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(243)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(240)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(245)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(246)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(242)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(241)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(248)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,(CHAR(250)))
set @x += 1
insert into @TBooksNames(id,ChrCol)values(@x,'ال')
DECLARE @CharXT nvarchar(255);
set @CharXT = (CHAR(240)) + '|' + (CHAR(241)) + '|' + (CHAR(242)) +'|' + (CHAR(243)) +
(CHAR(245)) + '|' + (CHAR(246)) + '|' + (CHAR(248)) +'|' + (CHAR(250));
select @CharXT;
select *
from @TBooksNames
where ChrCol like '%[^' + @CharXT + ']%' escape '|'
الكود حسب جدول بقاعدة البيانات :
PHP كود :
DECLARE @CharXT nvarchar(255);
set @CharXT = (CHAR(240)) + '|' + (CHAR(241)) + '|' + (CHAR(242)) +'|' + (CHAR(243)) +
(CHAR(245)) + '|' + (CHAR(246)) + '|' + (CHAR(248)) +'|' + (CHAR(250));
select @CharXT;
select *
from TBooksNames
where ChrCol like '%[^' + @CharXT + ']%' escape '|'
ظهر لي هذا الخطأ:
[attachment=25935]
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - asemshahen5 - 03-11-20
جربته عندي و ده النتيجة :
[attachment=25939]
[attachment=25938]
RE: كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ - Anas Mahmoud - 03-11-20
(02-11-20, 07:51 PM)السندبااد كتب :للأسف لم تنجح هذه الطريقة
جزاك الله خيراً
ولك بمثله
غريبة ، على العموم المبدأ واحد اذا كنت تريد ترتيب العناصر بناءا على دالة معرفة في مستوى الفيجوال بيسك يجب ان تقوم بترتيبهم في نفس المستوى ، اذ لا يمكن لل SQL معرفة الدوال المعرفة بمستوى اعلى منه
لو تشاركني بالجزء الخاص بملىء الداتا تيبل لديك مثلا ربما نصل الى شيء وصدقني مرادك يتحقق ان شاء الله باستخدام LINQ