MMA_EG_Cairo

وما المشكلة في هذا الكود : Dim Y As Object, R As Object, T As Object Dim Arr() As Byte Set R = CreateObject("winmgmts:") Set Y = R.instancesof("win32_diskdrive") For Each T In Y MsgBox T.SerialNumber Next أنا آسف جداً ، بس والله أنا مستعجل جداً علي معرفة حل هذ…

ولماذا هذا الكود لا يعمل لعد تعديلة : ComputerName = "." Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName) Set wmiDiskDrives = wmiServices.ExecQuery("SELECT * FROM Win32_DiskDrive") For Each wmiDiskDrive In wmiDiskDrive…

بعد إذن حضراتكم عايز أتأكد أن هذه الأكواد سليمة 100% ، وعايز أعرف كيف يتم جلب رقم الهارد ديسك عن طريق هذه الفكرة : 'microsoft scriptlet library. Private Sub Command1_Click() 'جلب رقم اللوحة الأمم. Dim r Dim y Set r = CreateObject("winmgmts:") Set y = r.instanc…

نسيت أقل لك شيء ، الطريقة المذكورة لم تجلب لي رقم الهارد ديسك ، ولكن تجلب لي نوع الهارد ديس ؟؟؟

الأخ الكريم ، أنا منذ عام 2000 وأنا مبرمج فيجوال 6.0 مع أكسيس وسيكوال سيرفر وأوراكل ، دة غير أن لديا معلومات عن الويب سايت بإستخدام HTML/VBScript/ASP ، ولكن منذ حوالي سنة تقريباً بدأت مع أوراكيل صافي Oracle Develobar + Oracle Database ... يعني شغلي كلة متعلق ب…

قبل أي شيء أشكرك كل الشكر علي المتابعة ، في البداية حضرتك بدأت تفهمني ماذا أريد بالضبط ، ولكن ما تم جلبة هو مجرد Caption يعني عناوين وليس محتوي ، يعني بإختصار تم إحضار نوع الهارد وليس رقم الهارد !!! سؤال آخر ، أنت أستخدمت دالة GetObject ، وتم الإتصال مع قبل أي…

فعلاً أخي الكريم أنا أستخدمها في التعامل مع مسجل النظام من خلال الفيجوال 6.0 ، ولكن للأسف اليوم أنا أتعامل مع أوراكل ديفيلوبار ، فالأوامر الذي أمتلكها مجرد أوامر خفيفة وليست كلياً. عفواً سيدي هذه ليست لغة ، بل هو مجرد برنامج جاهز لتنفيذ أوامر مدرجة في ملفات ذا…

عفواً ، ممكن توضيح أكثر ؟؟؟ شكراُ

هل يمكنني إستخدام توابع API داخل ملف ذات إمتداد VBS ؟؟؟ وكيف ذلك ؟؟؟ وما هي الملفات الرئيسية التي يحتاجها هذا الملف لتشغيل هذا النوع من الملفات ؟؟؟ شكراً

بالعكس ، المفروض في شهر رمضان يكون العمل أكثر !!! عموماً أنا متابع المنتدي من بدايتة "في أواخر 2000" ، وأجد أن هناك بعض الأقسام غير نشطة ، وليس الشهر الكريم له دخل في ذلك !!! فدي عند حق ، بس أنا كان نفسي أرفق الملف قطعة واحدة دون تقسيمها !!! عموماً أنا أعتزر ب…

سبحان الله !!! أنا من عشاق الفريق العربي للبرمجيات ، لكنني حزين جداً علي قسم الأوراكل الذي لا يهتم به أحد !!!! من قبل رمضان بيوم حتي حلول رابع يوم لرمضان ، ولم أجد تفاعل بالقسم سوي موضوع واحد !!!! عموماً ، كل عام وحضراتكم بخير ، ويارب يارب يارب دايماً بالتوفيق…

بسم الله الرحمن الرحيم والصلاة والسلام علي أشرف المؤمنين ... سيدنا محمد عبد الله ورسولة وشفيعنا يوم الدين أما بعد ، بدايتاً ، كل عام وحضراتكم بخير ، بمناسبة شهر رمضان الكريم ، أعادة الله عليكم وعلي أمة الإسلام بالخير والبركات. ولهذه المناسبة السعيدة التي تنتظر…

CREATE TABLE EMPLOYEE ( EMPLOYEE_ID NUMBER(10), EMPLOYEE_CODE VARCHAR2(20) NOT NULL, EMPLOYEE_NAME VARCHAR2(50) NOT NULL, CONSTRAINT PK_EMPLOYEE PRIMARY KEY(EMPLOYEE_ID), CONSTRAINT UQ_EMPLOYEE_CODE UNIQUE(EMPLOYEE_CODE), CONSTRAINT UQ_EMPLOYEE_NAME UNIQUE(EMP…

الاخ الكريم ، المقصود بإطلاق صراحة هو فصل عملية الربط مع برنامجك !!! يعني مثلاً لو كنت رابطة مع المكتبة بهذا الأسلوب : ''إدراج مكتبة. Set obj = CreateObject("ADODB.Connection") ''إطلاق صراح مكتبة. Set obj = Nothing شكراً

الأخ الكريم ، أنا تعاملت مع كلاً من Access و SQL-Server و Oracle من خلال الفيجوال 6.0 وكانت النتيجة واحدة سواء إدراج أو حذف عارض موجود داخل قاعدة البيانات ، وكانت تعمل بنجاح !!!! Access : -------- Create View V1 As Select * From Emp Drop View V1 Oracle : -----…

بالإضافة الي ذلك أنه لا يجوز إستخدام ثوابت لغة الـ SQL ضمن جداولك أو علاقاتك أو عوارضك أو ... الي آخرة ، علي سبيل المثال لا يجوز إنشاء جدول تحت مسمي Money, Counter, VarChar, Image, Table, View, Index, .... الي آخرة ، بالإضافة الي أوامر الـ DML مثل Select, From…

أنظر الي المثال المرفق شكراً salem88.rar

أشكركم جميعاً علي حسن تعاملكم مع الآخرين ، ويارب دايماً بالتوفيق للجميع. للأسف ، انا حالياً لم أملك كريستال 8 ، ولكن الذي أملكة هو كريستال 10 !!! فآسف مرة أخري شكراً للجميع

الإخوة الكرام ، السلام عليكم ورحمة الله وبركاتة ، في الحقيقة أنا دخت كثيراً حتي تمكنت من إيجاد حل مبدئي ، وبجد أنا حصلت علي هذه الفكرة بالصدفة أثناء بحثي بملف المساعدة الخاص بالأوراكل ديفيلوبار !!! والطريقة سأدرجها بالمنتدي حتي أتأكد من صحة الكود ، وفي نفس الو…

يا جماعة ، كل الي عاوزة أن أصنع فحص كامل علي الإتصال دون عرض نافذة الإتصال الغبية التي تعرض في بداية الفورم !!! حيث أستخدمت الكود التالي دون إيجاد نتيجة لها : BEGIN LOGON('SYSTEM','MANAGER@PROORA',FALSE); IF(ERROR_CODE <> 0)THEN MESSAGE('عملية الإتصال غير سليم…