ahmad kalil
- لأول مرة (( موسوعة المبرمج العربي )) أكواد - شروحات - كتب - دروس - مستلزمات برمجية
السلام عليكم مشكور على هذا الابداع كثرا الله من امثالك الذين يحرصون على نشر العلم
- كيفية تعبئة الكومبوبوكس بقاعدة البيانات
اسف على الخطأ وتم التعديل ActiveX_Data_After_Update_With_Address.rar
- كيفية تعبئة الكومبوبوكس بقاعدة البيانات
السلام عليكم اضف command عندما تدخل الاسم في مربع النص يظهر بعد الضغط على add to combo في القائمة وارجو ان يكون المطلوب ActiveX_Data_After_Update2.rar
- كيفية تعبئة الكومبوبوكس بقاعدة البيانات
السلام عليكم عدلت على المرفق بحيث اذا اضفت اسم الى الجدول في قاعدة البيانات ومن ثم تنفذ البرنامج يضاف الى combo ActiveX_Data_After_Update.rar
- كيفية تعبئة الكومبوبوكس بقاعدة البيانات
السلام عليكم في البداية يجب ان تعرف الربط بين قواعد البيانات ولغة البرمجة وهي سهلة مثال Public db As New ADODB.Connection Public rs As New ADODB.Recordset If db.State = adStateOpen Then db.Close db.Provider = "microsoft.jet.oledb.4.0" db.Open App.Path & "\stor…
- ال Setup Fectory والشبكات
السلام عليكم ورحمة الله بعد عمل setup fectory للبرنامج ولدي اكثر من جهاز اريد تنصيب البرنامج عليه ولكن بطريقة المشاركة اي الكل يعمل على نفس قاعدة البيانات فكيف يتم عمل link بينهم هل يتم بوضع قاعدة البيانات بمسار موحد مثل السيرفر ولكم الشكر
- ال Setup Fectory والشبكات
السلام عليكم ورحمة الله بعد عمل setup fectory للبرنامج ولدي اكثر من جهاز اريد تنصيب البرنامج عليه ولكن بطريقة المشاركة اي الكل يعمل على نفس قاعدة البيانات فكيف يتم عمل link بينهم هل يتم بوضع قاعدة البيانات بمسار موحد مثل السيرفر ولكم الشكر
- الطريق الافضل ل ارفاق المكتبات
السلام عليكم وشكرا للمتابعة لايوجد missing في Refernce ولكن لدي ملاحظة اعتقد ان الخلل بالمكتبات dll اذا افترضنا ذلك فهل برنامج setup fectory قادر على علاج او ارفاق المكتبات بصورة صحيحة ام هناك طريقة يدوية احصل فيها من جهازي الخاص على كل المكتبات dll المستخدمة …
- كيفية تعبئة الكومبوبوكس بقاعدة البيانات
السلام عليكم هذا مثال للربط sqls = "select distinct name from tabel " If rs.State = adStateOpen Then rs.Close rs.Open sqls, db, adOpenKeyset, adLockPessimistic If rs.EOF = True Then GoTo end1: rs.MoveFirst Do Combo1.AddItem rs.Fields("name") rs.MoveNext Loop U…
- المفاجأة الكبرى فكرة عمل برنامج مرجع قواعد بيانات للمنتدى
السلام عليكم وبارك الله في جهودك الطيبة ولي ملاحظة عامة في هذا البرنامج وغيرها ان كتابة العناوين داخل البرنامج label وغيرها لو تكتب بالانكليزي لكي لاتسبب مشاكل ان امكن ... مع اعتزازنا باللغة العربية لغة القران ولغة اهل الجنة وجزيتم الجنة
- الطريق الافضل ل ارفاق المكتبات
السلام عليكم اخي العزيز الرسالة هي كالاتي compiler error cant find project or library
- الطريق الافضل ل ارفاق المكتبات
السلام عليكم اخواني في هذا الموقع المميز لدي برنامج تم الانتهاء منه بفضل الله ولكن عندما نقلته الى جهاز اخر بدات تظهر بعض الاخطاء في التنفيذ ليس برمجيا وانما في المكتبات مثلا sqls = "select * from supplier where date between #" & Format(DTPicker1, "MM/DD/YYYY"…
- كيف يمكن ان انفذ برنامج على الشبكة
السلام عليكم اخي العزيز بالرغم اني لم افهم كثيرا المطلوب ولكن ساقول لك بعض الاشياء كوني اعمل بشركة ولدينا اكثر من برنامج يعمل على سيرفر فاذا كنت تقصد وضع البرنامج على سيرفر اي ويندوز 2003 مثلا فمن جانب السيرفر والذي فيه المستخدمين يجب اعطاء صلاحيات داخل الويند…
- طلب بسيط
اي مشكلة تكون في البرنامج وليس في المشاركة لان الملف اذا وضع في المشاركة فهو يقرا من البرنامج الرئيسي فارجع الى البرنامج
- طلب بسيط
السلام عليكم اخي لقد واجهتني نفس المشكلة سابقا وكان الخطا في اني لم اضع كود فتح وغلق الاتصال مع قاعدة البيانات في شاشة البداية فتظهر الرسالة التي ذكرتها واقصد بكود الاتصال الرئيسي والذي تضعة في موديل او داخل الفورم
- اخواني محتاج مساعدكم في مشروعي للتخرج
السلام عليكم اخي ان تحديد قواعد البيانات يعتمد على طيبة البرنامج الذي تريد تصميمه فاذا كانت الشركة محدودة اي صغيرة فالاسهل فيها هو الاكسس اما لقواعد البيانات الضخمة جدا فالاوراكل افضل او sqlserver واعتقد كونك طالب وجديد على قواعد البيانات فاستخدم الاكسس كبداية…
- أرجومساعدتي عاجلافضلا لا امرا
السلام عليكم هذا مثال sqls = "select * from table where item = '" & Me.Combo1 & "'" If rs.State = adStateOpen Then rs.Close rs.Open sqls, db, adOpenKeyset, adLockPessimistic If rs.EOF = True Then GoTo add: Exit Sub add: rs.AddNew rs!Item = Me.Combo1 rs.Update …
- من اين ابدا؟؟..أفيدوني بعلمكم جزيتم الجنة
هذا مثال اخر اذا لديكم listbox وفيها عدة اسماء وتريدون بالضغط على القائمة ينتقل الى text Dim i For i = 0 To List3.ListCount - 1 If List3.Selected(i) = True Then Me.Text9 = (List3.List(i)) End If وكذلك نستطيع الاضافة الى القائمة list3.additem= me.text
- أريد أستخدم واجهة الفيجوال بيسك في هذه الحالة .. بس ما أعرف كيف ؟؟
السلام عليكم اخي العزيز ان تكوين صلاحيات للمستخدمين من داخل فجوال بيسك يتم برمجيا من داخل فجوال بالكود حيث تقوم بانشاء جدول في الاكسس تضع فية الشروط ثم بالكود (من داخل فجوال بيسك) تبحث داخل الجدول في اكسس لمعرفة الصلاحيات
- ماهو الاصدار الافضل من كريستال ربورت مع فجوال بيسك 6
السلام عليكم اخواني الاعزاء ماهو الاصدار المناسب من كريستال ريبورت مع اصدار فجوال بيسك 6 واذا امكن رابط التنزيل لهذا الكريستال وارجو ان تكون نسخة ليست تجربية لاني اريد استخدامها مع برامجي لاني اعاني من activereport اريد الانتقال الى كريستال ولكم الشكر