الرئيسية      أرشيف المقالات       المنتدى        المكتبة       إتصل بنا
  القائمة الرئيسية
  Language
  تسجيل الدخول
اسم المستخدم :

كلمة المرور :

تذكرني



هل نسيت كلمة المرور ؟

اشترك الآن !
  بحث
  أقسام المقالات
  آخر المشاركات
  كتب جديدة
 
  زوار هذه الصفحة
اليوم 1640
أمس 1517
الإجمالي 677574
  الموقع

يتصفح المنتدى الآن:   1 زائر


  إشترك لتكتب موضوع

ارجو مراجعة الكود الاتي
#1
مشترك
مشترك

رؤية معلومات المستخدم
السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (I) ...
طبعا انا من المبتدئين في استخدام البرمجة ....لذلك وحده وحده علي ...
جزاكم الله خيرا

procedure TForm6.Button1Click(SenderTObject);
var
I:Integer;
begin
      
For I:=1 To 12 Do
   
begin
      with form1
.ADOQuery1 do
 
Begin
 Close
;
 
SQL.Clear;
 
SQL.Add('Insert Into Elag[I]  Select no,'','','','p' From ');
 
SQL.Add('kesm Where No Not In (Select No From Elag[I]) ');
 
ExecSQL;
 
ShowMessage('OK');
end;
End;
End;


حررت بواسطة عروة عيسى في 2016/11/12 21:20:24
أرسلت بتاريخ: 2016/11/11 12:44
طباعة تويتر فيسبوك غوغل بلس لينكيد إن Del.icio.us Digg Reddit Mr. Wong تقرير   أعلى

مساحة إعلانية

رد: ارجو مراجعة الكود الاتي
#2
مدير الموقع
مدير الموقع

رؤية معلومات المستخدم
المشكلة ضمن عبارة SQL
- كل ماهو ضمن علامتي التنصيص سيتم التعامل معه كنص فقط ,
اما عندما نتعامل مع المتحولات نستخدم معامل الجمع + الذي يصل النصوص ببعضها مثلا :
SQL.Add('Insert Into '+Elag[I]+' Select no,"","","",'+' From ');
      
SQL.Add('kesm Where No Not In (Select No From '+Elag[I]+') ');


- تظهر مشكلة باستخدام اشارة التنصيص المفردة ضمن نص يحوي اشارات تنصيص مفردة أيضا , فلن يستطيع مترجم البيئة معرفة اين بدأ النص واين انتهى لانه يميز النص عن طريق وضعه بين اشرات التنصيص ولايتوقع وجود إشارات تنصيص ضمن النص نفسه, للحل
اما نستخدم اشارة تنصيص مضاعفة بدل المفردة : "
او نستخدم إشارتي تنصيص مفردة وراء بعضها تترجم على انها اشاره واحده : مثلا ' it''s me'
يمكن بناء تابع يعيد نص ضمن اشارتي تنصيص كالتالي :
function QutedStr(sstring): string;
begin
  result 
:= '''' '''';
end;


او الحل الأفضل بأن نستخدم اسلوب البارامترات :
SQL.Add('Insert Into '+Elag[I]+' Select no,:s,:s,:s,:p From ');
      
SQL.Add('kesm Where No Not In (Select No From '+Elag[I]+') ');
      
ADOQuery1.Parameters.ParamByName('s').Value:='';
      
ADOQuery1.Parameters.ParamByName('p').Value:=p;

أرسلت بتاريخ: 2016/11/12 21:38
طباعة تويتر فيسبوك غوغل بلس لينكيد إن Del.icio.us Digg Reddit Mr. Wong تقرير   أعلى

    
يمكنك قراءة موضوع.
لا يمكنك إضافة موضوع جديد.
لا يمكنك الرد على المشاركات.
لا يمكنك تحرير مشاركاتك.
لا يمكنك حذف مشاركاتك.
لا يمكنك إضافة إستفتاء جديد.
لا يمكنك التصويت في الإستفتاءات.
لا يمكنك إرفاق ملفات في مشاركاتك.
لا يمكنك المشاركة بدون موافقة المشرف.
لا يمكنك استخدام نوع المشاركة.
لا يمكنك استخدام كود هتمل.
You لا يمكنك استخدام التوقيع .
يمكنك إنشاء ملف PDF .
يمكنك طباعة الصفحة.

[بحث متقدم]






عروة نت 2003-2016 . بالاعتماد على زوبس