MMA_EG_Cairo

الطريقة الأولي : طريقة التعامل مع SQL : Select Count(0) From Emp Where Emp_Name Like '%احمد%' الطريقة الثانية : طريقة التعامل مع الـ Recordset : Rs.Filter = "Emp_Name Like '%احمد%'" MsgBox Rs.RecordCount بالتوفيق

هههههههههههههههههههههههه أهو أنا كدة أرتحت لما أنت فهمت وأقتنعت بكلامي وأرتحت أكثر لأنني أيضاً فهمت أكثر ، وبأبسط الأساليب (كالعادة يعني) :haha: أن العلم وسيلة لكل نجاح . وأنه لاياس مع الحياة ولا حياة مع اليأس . وأن الذكاء وحدة هو الذي يجعلني أحقق أهدافي بأبسط…

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

أنا مع الأخ الكريم bahbah !!! لا أأمن بالحماية ولا بالتشفير !!! ولا أأمن بأي كود موجود بالمواقع والمنتديات !!! وحينما استخدمت بعض منها في بداية تصميم برنامجي ، أحتوي برنامجي علي العديد من المشاكل التي لا تحصي ، والتي من ورائها حدثت مشاكل وأتهمت بالفشل !!!! فكا…

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

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

Dim Arr() As String Dim rs_sat As New ADODB.Recordset Arr = Split(Text1.Text, " ") With rs_sat If .State = adStateOpen Then .Close .Open "select * from Table1", con, adOpenDynamic, adLockOptimistic For Lop = 0 To UBound(Arr) .AddNew .Fields("User_id").Value = …

حبيب قلبي ، لازم تفهم الكود المكتوب لك ، لو فهمتة هتعرف تصنع أي شيء ، فإسمح لي بالشرح !!! 1- قمت بإضافة مصفوفة من نوع نص Dim Arr() As String 2- قمت بأخذ القيمة النصية من مربع النص وحولتها الي مصفوفة Arr بشرط مسطرة مسافة " " 3- بعد ذلك قمت بصناعة جملة Loop بحيث…

عادي جداً ، تقدر تحط أللي أنت عايزة !!! أدرج الكود الذي تود كتابتة وسأحاول التعديل علية منتظرك

Private Sub Command1_Click() Dim Arr() As String Dim Lop As Long Arr = Split(Text1.Text, " ") For Lop = 0 To UBound(Arr) MsgBox Arr(Lop) Next End Sub بالتوفيق

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

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

حبيب قلبي ، تم الإجابة علي هذا السؤال علي هذا الرابط /index.php?showtopic=250191&st=0 بالإضافة الي أنك تعتمد علي جلب المعلومات من الـ IP-Local ، أي من جهازك الشخصي !!! وهذا ليس صحيح !!! علي كل حال أنا أخوك مصطفي عبد السلام من مصر وأنتظر حلولك -----------------…

.

ويندوز 7 يري الهارد ديسك مثل الهارد النقال بالضبط !!! والهارد النقال يعمل علي أساس الـ USP مثل الفلاش بالضبط !!! فمن الممكن قراءة الهارد ديسك سواء إسم الرقم الثابت بنفس طريقة قراءة الفلاش ... وسيلبي الغرض !!!! أبحث عن فكرة عمل الفلاش بالتوفيق

أخ تصدق بالله أنا لاقيت مثال عندي منذ يومين وكنت ناوي أدرج لك الفكرة بالفعل لكن النت كان قاطع عندي ... ونسيت وعدي لك !!!! آسف جداً آسف جداً آسف جداً علي كل حال أنظر المرفقات به الفكرة عموماً حيث نسخت الكود من وسط برنامج قديم ووضعتها في مثال مبسط لعل وعسي يفيدك…

هذه الأيام أذاكر فيجوال دوت نيت !!! فوجودي بالمنتدي بقي دائم !!! فأرجو الدعاء لي علي كل حال أنظر الي هذا التعديل البسيط Dim rs_find As New ADODB.Recordset With rs_find If .State = adStateOpen Then .Close .CursorLocation = adUseClient .Open "select * from Table…

آآآآآآآآآآآآة فهم !!! بمعني أدق أنت لا ترغب في تنفذه ... لكنك ترغب في معرفة نوع كل سطر ومن ثم تقم بإدراجه بجدوله المناسب بقاعدة البيانات !!!! إن كان الأمر هكذا فهذا أبسط شيء قم بفتح الملف وأخرج منه سطور كل الملف (سطر تلو سطر) ، وأثناء إخراج كل سطر أستخدم الدال…

With rs_find If .State = adStateOpen Then .Close .Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic If .RecordCount = 0 Then MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight Else MsgBox "موجود" En…

أخي الحبيب الفكرة موجودة في أكثر من مثال بالمنتدي ، ولكن فقط عليك البحث !!! آسف جداً ، كان بودي أن أساعدك ، ولكن ضغطي في برنامجي + ويندوز 7 (جديد بالنسبة ليا) + فيجوال دوت نيت كل هذا فوق رأسي ولكن لدي مثال لو وجدتة سأرفقة لك علي الفور فقط أبحث بالمنتدي ستجد ال…