Visitor_OM

هنا تجد مثال لعملية البحث الشاملة التي تغطي جميع الحقول إضافة إلى فتح ملفات Excel والملفات النصية Text Files مع عرضها في الإداة MSFlexGrid .... ألخ . وإيضا إذا ما بحثت قليلا في الموقع سوف تجد أمثلة أخرى لعملية البحث . بالتوفيق .

السلام عليكم ورحمة الله وبركاته . أخي الكريم لعمل تقرير فالعملية بسيطة للغاية ما عليك إلا إضافة الإداة DataReport وذلك من القائمة Project .. ومن بعد ذلك تقوم بإضافة ال label وال Text وحيث ال TextBox هو الذي يحوي البيانات أو يعرضها . راجع هذا الرابط يوجد به مثا…

هنا

ممكن يفيدك الرابط التالي فراجعيه ( الرابط هنا )

راجع الوصلة التالية / هنا وهذه إيضا بالتوفيق .

الحل / rs.Open "SELECT * FROM name WHERE Field01 LIKE '%v%'" حيث rs هو Recordset وال name اسم الجدول Field01 اسم الحقل . بالتوفيق .

اخي الكريم راجع الوصلة التالية : الرابط

تفضلي بزيارة هذا الرابط

معذرة على التدخل ولك لحين الأخ الفاضل يقوم بإعداد الدروس أو ارسالها تفضلوا هذا الرابط وشكر لإخي العزيز Sism

تفضل / SavePicture Picture1.Picture, "C:\file1.jpg"

تسلملي أخي الغالي . والله إنا ضنيت إن الكود السابق كامل والخطاء موجود فيه على هذا الإساس حاولة إني اجرية وبعدها مثل ما تعرف المشكلة لإنه في الحقيقة صعب تفقد الكود بدون تشغيلة وتجريبة مرارا وتكرارا ، على كل موفق وإن شاء الله تجد الحل المناسب للمشكلة . الرابط / …

السلام عليكم يا هلا وسهلا بالغالي وينك يا رجال والله لك وحشة ، وعسى المانع خير ولكن الف مرحبا بعودتك ،، أخي بالنسبة للكود او البرنامج السابق يوجد به نقص وتحديدا عن / DesactiverBarreTaches SwitchTaches False يعني النقص موجد في متغير يخص السابق او Sub مفقود ، وإ…

السلام عليكم أخي الحبيب استخدم الكود التالي وضعه في الفورم (FORM ) الذي تريد فتحها تحت MDI الكود / ' Private Sub Form_Resize() ' Me.Left = MDIMain.ScaleWidth / 2 - Me.Width / 2 Me.Top = MDIMain.ScaleHeight / 2 - Me.Height / 2 End Sub ' بالتوفيق

بعد التحية ،، أخي الحبيب اولا اود إن اشكرك جزيل الشكر على رسالتك الأخيرة . وباراك الله فيك فأنت بحق نعم الصديق والأخ . أخي بالنسبة لتثبيت الإعمدة في DataGrid فيمكن ذلك بواسطة الكود التالي / DataGrid1.Columns(1).Locked = True DataGrid1.Columns(3).Locked = True …

الرابط ولذي يخص ال DBGrid الوصلة / هنا

بعد التحية أخي الكريم بالنسبة للبرنامج Installer فهنك برنامج اكثر من رائع راجع الوصلة التالية / الوصلة

السلام عليكم تحية طيبة ،، اخي الكريم / بالنسبة للسؤال ألاول / حقيقة مبهم ولكن ما هي طريقتك للإتصال . في العادة وبعد تهئية الإتصال بقاعدة البيانات نقوم بإسناد قيمة الإتصال إلى DataGrid بالكود التالي / Set DataGrid1.DataSource=db على إعتبار db هو المتغير الذي من…

اخي الكريم حقيقة سبب المشكلة هو استخدامك للإداة DAO والكود السابق معمول ليتخاطب مع مكتبة الإداة ADO . ولتفعيل مكتبة هذه الإداة اتبع المسار التالي / من القائمة ال VB اختر Project ثم References ثم من القائمة التي سوف تظهر اختر Microsoft ActiveX Data Object 2.0 L…

السلام عليكم أخي الكريم بعد تهئية الإتصال بقاعدة البيانات طبعا ذلك بواسطة الإداة ADO . ضع الكود التالي في Private Sub Text1_Change() وعلى فرض المتغير الخاص بي الRecordSet هو rs الكود / ' If Trim(Text1.Text) = "" Then Exit Sub If rs.State = adStateOpen Then rs.…

السلام عليكم اخي الكريم في الحقيقة لا يوجد كود جاهز لعمل مثل هذا البحث ولكن بشوية تلاعب ممكن نحقق ذلك والطريقة لفعلها تعتمد على قراءة الجداول بمعنى نقراء الجدول الإول ثم نحدد عدد الحقول الموجودة فيه ثم نسترجع اسماء هذه الحقول وإذا وجدنا تطابق ما بين الحقل والح…