imadouzoun

كمان adoquery تفضّل : اربط ال adoquery على القاعدة master وتوكل على الله adoquery1.sql.clear; adoquery1.sql.add(' RESTORE FILELISTONLY FROM DISK = ' + #39 +'D:\bakup.bak' + #39 ); adoquery1.execsql ; تعود بسجلين أحدهما لل .mdf fileوالاّخر للـ .ldf file //this …

كرمال عين تكرم مرج عيون ............ "إنما المؤمنون إخوة" function TForm1.Activate_ADOs(frm :TForm):Boolean; var i :integer; begin for i:= 0 to frm .ComponentCount -1 do Begin with frm do begin if(Components.ClassNameIs('TADOTable'))then begin TADOTable(Compon…

السلام عليكم الجميع يعرف ال xml كم هي مهمة في التعامل مع البيانات و نلاحظ أن هناك دعم كبير لها مقدّم من ال sql server عن طريق دوال كثيرة منها openXml هل من حد يوضح لنا Xml مع T-sql ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ B) نتمنى من الخبراء المساعدة في هذا المجال وشكراً .............…

أولاً الله حيك أخي Madani وشكراً جزيلاً على مشركتك الحلوة و إن شاالله نحو المزيد من التعاون الحقيقة الأمس قمت بالإطلاع على دوال master.extended ووجدتها رائعة للغاية وخاصة الدوال العاملة مع الريجيستري ... والسلام عماد B) delphi & sql server Developer

كمان adoquery تفضّل : اربط ال adoquery على القاعدة master وتوكل على الله adoquery1.sql.clear; adoquery1.sql.add(' RESTORE FILELISTONLY FROM DISK = ' + #39 +'D:\bakup.bak' + #39 ); adoquery1.execsql ; تعود بسجلين أحدهما لل .mdf fileوالاّخر للـ .ldf file //this …

// to get your db objects from database يلّا على ال adoquery كمان مرة : adoquery1.sql.add('select name,xtype from sysobjects'); adoquery1.execsql; تعود بعدد من السجلات على ال datasource ثم على dbgrid شلون !! إن شاء الله في فائدة ؟؟؟؟؟ أتمنى ذلك من القلب !!! B)…

// to get info about tables in a specific DB فقط ببساطة استخدم ال adoquery وقم بما يلي : اربط ال ado مع قاعدة البيانات master في ال sql server ثم : adoquery1.sql.add(' select * from information_schema.tables where Table_catalog='DB_name' and Table_Type='base t…

function Activate_ADOs(frm :TForm):Boolean ; var i :integer; begin for i:= 0 to frm .ComponentCount -1 do Begin with frm do begin if(Components .ClassNameIs('TADOTable'))then begin TADOTable(Components ).Active := True; end else if(Components .ClassNameIs('TAD…

// executing sql file from T-sql Try with AdoQuery1.sql Do Begin adoquery1.connection := AdoConnection; clear; Add('exec master.dbo.xp_cmdshell 'OSQL -E -S(local) -i G:\DataBases\TestS.sql' + #39) end; finally adoquery1.execsql; adoquery1.clear; end; ملاحظة : …

نفذ عبارات T-sql عبر الإجراء المخزن sp_sqlexec الذي يملك وسيط وحيد هو @p1 : with ADOStoredProc1 Do begin Close; Parameters.ParamByName('@p1').Value:='create Table Works_TB(num int not null)'; ExecProc; end; // هناك طرق أخرى مثل استخدام مكونات دلفي مثل :adoComm…

السلام عليكم يا إخوة : نظراً لأهمية البرمجة ضمن بيئة ال sql server و نظراً لاستخدامها مع معظم برامج قواعد البيانات التي تستخدم sql server أتمنى عليكم أن تتقبلوا طلبي بافتتاح قسم خاص لبرمجة ال T-Sql ................... والله يوفقكم المبرمج B) عماد

يا شباب أول الشي الله يسلّم أيديكم على الردود لكن الوضع ما هيك لأنو حتى لو عملت uses unit2 ; edit1.text := form2.edit1.text; ما رح أوصل للقيمة جربو توصلوا للقيمة ورح تعرفو شو قصدي رح يعطيكم رسالة خطأ بأنو الفورم الثاني : has not been initialized لم يهيأ ومشان …

شي حلو الله يعطيكم ألف عافية أيها الإخوة العرب الحقيقة أنا مبسوط جداً بتعاونكم و شكر خاص للمدير الرائع طارق ابراهيم على سرعة التجاوب مع الشباب :lol: :lol: :lol: :lol: الله حيًك برهوم ......................... أخوك المبرمج عماد :lol:

السؤال ببساطة حول T-Sql 1- كيفية استخدام الحلقات . 2- عمليات التحويل للبيانات . 3- عرض قيم 1و0 على شكل (صح,خطأ)في الحقول من نوع bit بواسطة case أي عرض قيم الحقول بحرية أتمنى أن ألقى ردود من الإخوة .................... :lol:

الجملة الثانية ستكون صحيحة بشرط أن تكون عبارة ال sql : تعيد حقل واحد وسجل واحد ومن نفس نوع البيانات أما إذا كانت تعيد أكثر من سجل فيجب أن تستخدمي العبارة التالية : select * from TB where intId = any(select intNum from TB where Field_name="value") وشكرأ أرجو أن…

أيها الأخوة هل يمكن مثلاً أن أكتب مايلي: create sp_search_By_Field @Field_Name nvarchar(50), @TB nvarchar(50), @val nvarchar(100) as select * from @TB where @Field_Name = @val return هل يمكن فعل ذلك مع T-SQl وشكراً :(

:unsure: بسيطة أخي الكريم سهلها بتسهل : استخدم الحدث OnKeyPress كما يلي : if(key=#13)then memo1.lines.text := memeo1.lines.text + '1-'; وانتهى الموضوع :lol: شلوني معك .....

أخي الكريم رح بسطها إلك أكتر : إنت قادر على استخدام AdoQuery بفعالية جدا ...... لنفرض أنك مرتبط بجدول ما AdoQuery.sql.text := 'select * from TB_name'; و كنت عامل تصفية على الشكل: AdoQuery.filtered := 'Field_name= Value'; إفعل ما يلي : with adoquery do begin tr…

:lol: هدا الكود البسيط يوضح كيفية الحصول على السجلات المخزنة في ملف xml والعكس (أي تصدير السجلات من AdoQuery أو أي AdO Type إلى ملف Xml اتمنى الفائدة للجميع notic : وحدة من أجل التصدير إلى الملف وأخرى لاستعادة السجلات من الملف وشكراً unit ADOXMLUnit; interface…

:D الله يعطيك ألف عافية أخي الكريم , رح شوف على كل حال الله يعطيك ليرضيك ... أخوك (في حال قبلتني) عماد(أبو عمر) مبرمج قواعد بيانات في دلفي ...