mrx_ta7ady

يطلعلك فين ؟؟ .. هل تقصد هكذا ؟? Adodc1.CommandType = adCmdText Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then ' حالة العثور على سجلات Else ' حالة عدم العثور على سجلات End If Adodc1.RecordSource = "SELECT * FROM [table] WHERE name like '%" & Text9.Tex…

نعم .. جزاك الله خيرا على التنبيه الهام .. من الاصل يجب ان لا يتم الاتصال في الـ Design لكني وضعت هذا الاتصال للحصول على اسماء الحقول بسهولة ونسيت الغيه :S على العموم مرفق المثال بعد حذف الاتصال من خلال الـ Design .. وشكرا مره ثانية :) Adodc.rar

انت عامله Hidden ولا ايه :035: .. فين الملف

Ctrl + Pause Break دوس عليهم مع بعض طبعا وقت التشغيل هتلاقي البرنامج وقف :D .. من الفيجوال مش من الـ eXe ونفس الطريقة ايضا اثناء تنفيذ استعلام في الـ Access مثلا او اثناء تنفيذ اوامر في الـ Dos

السلام عليكــم ورحمـة الله وبركاتــة ،، ضع الكود ادناه في الـ Form ثم شغل ولاحظ النتيجة Dim TMP1Str As String Dim TMPArr() As String Form1.AutoRedraw = True TMP1Str = GetBetweenIT("<AAA><BBB><CCC>", "<", ">", "|") TMPArr = Split(TMP1Str, "|") For I = LBound(TM…

اولا مشاركتي السابقة كانت بناء على عنوان الموضوع :) اما هذه المشاركة فهي جيدة ايضا ولكنها لا تربط الكومبو .. بل تملأ الكمبو يدويا اما قاعدة Do ... Loop .. فهي لتكرار ما بينها من اوامر وبإمكانك مثلا كتابتها بهذا الشكل MsgBox "رسالة مدى الحياة" Loop Do وهذا للتك…

السلام عليكــم ورحمـة الله وبركاتــة ،، إرفق مثال للتعديل عليه

:eek: Adodc.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. في حالة اذا اردت آخر تاريخ فاستغنى عن السطر هذا MASKEDBOX1.TEXT = DATE اما اذا اردت اكبر تاريخ فقم بفتح Recordset جديد واستخرج منه اكبر تاريخ كما ادنا SELECT Max(Field1) FROM Table1 هذا بإفتراض مني ان حقل التاريخ إسمه Fie…

السلام عليكــم ورحمـة الله وبركاتــة ،، اولا مر زمن طويل على آخر مره استخدمت فيها الـ Install Shield ولا اذكر منه شيئا .. لذا لن اتحدث عنه .. ارجوا منكي فقط ان تلتمسي لي العذر وهيا بنا نحاول بشكل آخر .. اولا قومي بدمج الملف الموجود في المقال ادناه في ملف الـ S…

غريبه جدا موضوع المادة التي تؤهل الطلاب الى ان يكونو قراصنة .. على اي حال .. كيف تريد ان نساعدك اذا ؟؟ هل مدرسي المادة لم يشرحوها فنشرحها نحن لك ؟؟ ام نفتح لك اجهزتنا لتخترقها ؟؟ ;) توكل على الله وانشا مشروعك وحين تتعثر في شيئ اسال عنه وحده ويرجى في المره القا…

السلام عليكــم ورحمـة الله وبركاتــة ،، وعلى متيجي يا عبود .. ده بعد اذنكم يعني :) احذف اداة الـ adodc1 وضع غيرها .. ثم ضع الكود ادناه في الحدث Load للـ Form Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "userpass" Adodc1.Refresh Adodc1.ConnectionStrin…

قم بإضافة Component جديد .. Microsoft DataList Controls 6.0 ثم ضع عدد 1 DataCombo في الـ Form1 وقم بتغيير خصائصه كالتالي RowSource = Adodc1 ListField = "user" DataSource = Adodc1 DataField = "user" علما بان الخاصيتين الأولى والثانية هم المسؤلين عن تعبئة الأصنا…

اهلا بكي اخت jmool من جديد :) كل ما تريدينه سهل جدا عليكي ومنتشر ايضا امثلة على ذلك في الـ Internet الا شيئ واحد .. وهو التحويل بين الصيغ الصوتيه بعضها إلى بعض فهذا يتطلب منكي دراسة الـ Structure للملفات هذه ومعرفة المزيد من المعلومات عنها فالـ Media نفسها تخص…

السلام عليكــم ورحمـة الله وبركاتــة ،، مرفق المثال نفسه وبه شرحا لكل سطر .. كما تم اضافة فيه ادراج الصور وتم ايضا وضع طريقة مختلفة للبحث الذي وضعه السندباد علما بان طريقته صحيحة :) ولكني اردت ان يكون المثال مرتبط ببعضه ومتوافق وتفصيلي بشكل اكبر حتى يكون مرجعا…

اهلا بيك وبكل اشقائنا الفلسطينيين داخلها وخارجها :) الافضل ان تجيب السؤال بنفسك وان استصعب عليك شيئا اسالنا نجيبك :) وعلى كل حال .. لتغيير عنوان Form .. مثلا ضع الكود ادناه في حدث الـ Load للـ Form Me.Caption = "البرمجة" او بامكانك تغيير قيمة خاصية الـ Caption…

المشكلة تظهر عند تغيير ابعاد الـ Form إلى حد معين وكذلك الـ Picture1 بالإضافة الى حالة التصغير لذا يجب عليك وضع On Error Resume Next في أول كل حدث Resize .. وإعتبر هذه قاعدة On Error Resume Next ' ----- Stretch Picture Box Control -----------------------------…

شكرا لثنائك علينا :) اولا الـ Picture1 هي بمثابة Control مؤقت اي Temp يتم طباعة الصورة فيه بحجمها الجديد والصورة الأصلية موجوده في الـ Image1 الموجوده داخل الـ Picture1 وفي الحدث Load للـ MDIForm وضعنا امرا لفتح خاصية الـ AutoRedraw بملأ قيمتها إلى True وهي ال…

ضع الكود ادناه في آخر زر الإضافة Text2.SetFocus