najy_zl

السلام عليكم... لا يوجد فرق كبير. الفكرة فقط في جملة الـ SQL أي جملة SELECT. اضبط الخاصية CommandType للـ Adodc1 على adCmdText. بعد أن تربط الـ Adodc1 بقاعدة البيانات (كما تفعل مع أي ADO آخر، عن طريق الخاصية ConnectionString) اذهب إلى الخاصية RecordSource و اك…

السلام عليكم... رغم أن عنوان الموضوع مخالف - و ربما يتم إغلاقه! - لكن على أية حال تحتوي الـ Form المأخوذ منها هذا الكود - على الأقل - على المكونات التالية: * زر (Command) باسم cmdOK (أي الخاصية cmdOK = Name). * زر (Command) باسم cmdCancel. * مربع نص (TextBox) …

السلام عليكم... إذا كنت تقصد الخاصية RecordSource فهي للـ Data Control. سلام.

السلام عليكم... نفرض أننا سنستعمل Data Control اسمه (Data1) لهذا الغرض. و أن اسم الجدول هو MyTable و أن اسم الحقل هو num و أن اسم الـ TextBox هو Text1. بعد أن تربط الـ Data Control بقاعدة البيانات اذهب إلى الخاصية RecordSource و اكتب بها جملة SQL التالية: SELE…

السلام عليكم... بالطبع لست مضطراً لما ذكرته في سؤالك لأنه توجد مكونات (Components) جاهزة خاصة بهذا الأمر، و هي تأتي مع Visual Basic. 1. من القائمة Project اختر الأمر Components (أو اضغط Ctrl+T) لعرض نافذة المكونات. 2. أ. إذا كنت تستخدم الـ Data Control العادي …

السلام عليكم... انسخ الكود Private Sub Command1_Click ( ) Dim Idx As Long Idx = CLng ( Text2. Text ) Text3. Text = Mid $ ( Text1. Text , Idx, 1 ) End Sub الدالة $Mid تعطيك الجزء الذي تريده، ابتداءً من رقم الحرف الذي تحدده و حسب عدد الحروف التي تريدها. نرجو الا…

السلام عليكم... سنتحدث عن عمليات الإضافة بشكل عام مستخمين أسماء الجداول المذكورة في مشاركة الأخ Like Delphi الأخيرة. لدينا الجداول كالتالي: * qoutationmaster_new quotationdetails_p_master quotationdetails_p_details [*]quotationdetails_tcoded أ. إذا أردنا فقط إ…

السلام عليكم... إذا كنت قد فهمت السؤال فأعتقد أن كلام الأخ shalwan صحيح مع بعض التعديل البسيط في جملة SELECT كالتالي: انسخ الكود SQL : = 'SELECT NAME1, NAME2, SUM(QMONY) AS QM, SUM(QUNTTY) AS QNT FROM tablename WHERE (NAME1 = ' + QuotedStr ( Edit1 . Text ) + '…

السلام عليكم... أضف المكون المكون ADOSmmand من صفحة ADO إلى الـ Form التي ستتم فيها العملية. اضبط الخاصية Connection على اسم الـ ADOConnection الذي تستخدمه في برنامجك. إذا لم تكن تستخدم الـ ADOConnection فيجب إضافة واحد إلى النافذة الرئيسية (التي تبقة مفتوحة ط…

السلام عليكم... لا أدري إن كان هناك برمجيات (Software) تقوم بذلك أو إن كانت هناك إعدادات في SQL Server لها علاقة بذلك. لكن من ناحية البرمجة فأنا شخصياً أتبع النقاط التالية: 1. استخدام الـ ADOQuery بدل الـ ADOTable للوصول فقط للحقول (Fields) و السجلات (Records)…

السلام عليكم... يجب وضع الكود في معالج الحدث KeyDown و اختبار ما إذا كان المفتاح المضغوط هو المفتاح Enter كالتالي: انسخ الكود Private Sub Text1_KeyDown ( KeyCode As Integer , Shift As Integer ) If KeyCode = vbKeyReturn Then ' ... ' ... ' ... End If End Sub نرج…

السلام عليكم... الشكر للجميع على تعاونهم. كما قال الأخ COMFORT: نحتاج إلى إضافة Microsoft HTML Object Library إلى مراجع (References) المشروع. ثم نستخدم الكود التالي: 1. في قسم التصريحات (بداية الكود) نضع التصريحين التاليين: Private WithEvents HTMLDoc As MSHTML…

السلام عليكم... نفرض أنك تكتب العنوان (مثلاً google.com) في مربع النص Text1. اكتب الكود التالي في الحدث Click الخاص بالزر: Private Sub Command1_Click() Shell "ping " & Text1.Text & " -t" End Sub لاحظ وجود فراغ في نهاية علامات الاقتباس الأولى (بعد كلمة ping) و …

السلام عليكم... هذه يمكنك إنجازها بسهولة من داخل ملف الـ HTML نفسه (index.htm) كالتالي: 1. في القسم HEAD أضف النص البرمجي (Script) التالي: <script language="vbscript" type="text/vbscript"> <!-- Sub ShowSource(id) MsgBox document.all(id).src End Sub --> </scrip…

السلام عليكم... هناك نوعان من المفاتيح التي يمكن أن نتعامل معها من خلال VB: 1. مفاتيح الرموز المطبوعة: و تشمل مفاتيح الحروف و الأرقام و الرموز المكتوبة مثل * و @ و % ... إلخ. بالإضافة إلى مجموعة من رموز التحكم التي لا تظهر عند الكتابة لكنها تؤثر في الكتابة، مث…

السلام عليكم... سبب الخطأ هو وجود فراغات في أحد المسارات: انسخ الكود Shell "c:program filesMicrosoft Visual StudioVB98VB6 /m D:Fannia ProProject1.vbp D:ahmed.exe" حيث نلاحظ وجود فراغ بين كلمة Fannia و كلمة Pro في المسار الأول (المشروع المصدر). يجب في هذه الحال…

السلام عليكم... هذا Add-In صغير من تصميمي الخاص لحفظ ملفات VB (أي الـ Forms و الـ Modules و الـ Class Modules ... إلخ) كقوالب بحيث يمكن إدراجها من داخل VB في أي مشروع. الـ Add-In مرفق في مشاركة سابقة بعنوان: إضافة صغيرة إلى Visual Basic, حافظ القوالب . نرجو ال…

السلام عليكم... معكما حق! شكراً لكما (لو كان زر الشكر مازال موجوداً لأضفت شكراً لكل منكما). كلنا نحاول أن نفيد و نستفيد. و السلام.

السلام عليكم... قد يفيدك هذا الموضوع. نرجو الاستفادة و السلام.

السلام عليكم... استعمال حقل من النوع Boolean (نعم/لا في Access) لكل صلاحية من الصلاحيات في جدول المستخدمين (Users) أو المشغلين قد يكون مقبولاً إذا كان عدد الصلاحيات 4 أو 5، مع عدم احتمال زيادة تلك الصلاحيات. لكن ماذا لو كان عدد الصلاحيات 15 أو 20 أو 30 صلاحية؟…