المتميز

هههههههههه حلوة احرقه لكن لدي استفسار سوف أطرحه في وقت آخر ... حتى لا نقطعك عن النوم

مشكور اخوي الان ظهرت بشكل سليم :) لكن الله يستر ان ما تغيرت :)

عفوا اخي الكريم استخدمت IntToStr فظهرت الـRecordCount :) يا ليت لو توضح متى يتم استخدام هذه الدالة . فهمت من اسمها انها تحول من رقم الى نص ؟ وشكرا

غريبة الدلفي كود تستخدمه احسن ما يكون ، تنقله لمكان ثاني ما يعمل !! الكود اللي عطيتني اردت بدلا من إظهار رسالة أن يضع الناتج داخل Label label1.caption:=adoquery1 وضعت نقطة ( . ) ولكن ظهرت القائمة المنسدلة بدون RecordCount :(

مشكوووور اخي انا كنت اكتب sql.recordcount

اخي العزيز رومانوف انا استخدم الـADOQuery للبحث لذلك لن يتصل بقاعدة البيانات الا اذا أدخل كلمة البحث ولكن على حسب طريقتك وضعت الـSQL لها يساوي select * from books ووضعت الـActive تساوي True ولكن عندما انتقلت لمصمم الـRave أصبحت نافذة الـData Connection لا توجد…

شكرا لك ممكن مثال انااعرف ان RecordCount ترمز لعدد السجلات لكن كيف اتوصل لكتابة كودها المعذرة إلى الآن لم أتقن النحو ( الساينتكس ) متعود على سهولة الفيجول بيسك msgbox(rs.recordcount)

عليكم السلام Private Sub Command1_Click() CommonDialog1.ShowOpen s = CommonDialog1.FileName FileCopy s, "d:\ww.txt" End Sub طبعا الـ"d:\ww.txt" هو الملف الذي سينشأ استبدله بالاسم والامتداد الذي تريد

عليكم السلام ورحمة الله وبركاته يا ليت تضع مثال هنا ؟ كيف حذفت البيانات ؟ يدوي او من داخل البرنامج ؟ هل قطعت الاتصال بقاعدة البيانات واتصلت من جديد؟

السلام عليكم ورحمة الله وبركاته كيف يتم الحصول على عدد السجلات ؟ طبعا باستخدام ADOQuery

http://www.absba.com/modules.php?name=Down...=getit&lid=4187

السلام عليكم ورحمة الله وبركاته جزاك الله خير اخي عروة عطاؤكم يدفعنا لتعلم المزيد ...

عليكم السلام ورحمة الله وبركاته عملت لك برنامج سريع يقوم بفتح قاعدة البيانات ومن ثم فتح القاعدة الاخرى والبحث فيها ، وإدراج السجلات التي لم تكن موجودة مسبقا ملاحظة / القاعدة الرئيسية اسمها main والفرعية copy إضف بيانات في الفرعية ثم شغل البرنامج ارجو التجربة و…

عليكم السلام ورحمة الله وبركاته Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Form_Load() Dim driveType As Long driveType = GetDriveType(Mid(App.Path, 1, 3)) If driveType <> 5 Then '…

بالنسبة لي لا أويد الانتقال إلا للغة غير لغات مايكروسفت مثل ( ديلفي ) :)

السلام عليكم عندي DBGrid أريد إذا ضغطت على أحد الحقول ان يطبع لي محتوى هذا الحقل.

شكرا لك

عليكم السلام ورحمة الله وبركاته قبل ان تنشئ الجدول اعمل بحث في هذا الجدول الذي تريد التأكد من وجوده ، مثلا rs.Open "select * from Table1", cn, adOpenStatic, adLockOptimistic باعتبار ان جدول Table1 هو اسم الجدول الذي تريد الان اذا عمل البرنامج بشكل سليم معناته …

جرب برنامج داخل البرنامج المرفق وارفق مع برنامجك الادوات التي يذكرها لك البرنامج المرفق الادوات المطلوبة لعمل البرنامج.zip

تأكد ورد لي مشكور