• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

اسلام الكبابى

اعضاء
  • عدد المشاركات

    302
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

  1. طباعة محتويات الdatagrid

    فى لغة الVB6 كيف يمكن طباعة محتويات الdatagrid فتحت datareport وجعلت اتصاله بالadodc ولكن كيف يطبع لى سجلات الdatagrid دون وضع مجموعة text جديدة وربط كل text بحقل أريد طباعة الdatagrid بنفس مواصفات وأبعاد أعمدتها سواء عن طريق ال datareport أو بأى طريقة أخرى ولكم ألف شكر
  2. عدد أعمدة الDataGrid

    فى لغة ال VB6 لدى قاعدة بيانات بها جدول به 12 حقل ، ولدى Adodc1 متصل بهذا الجدول و DataGrid لعرض البيانات ولكن عند تشغيل البرنامج لم تعرض الDataGrid الا بيانات أول 9 حقول فقط (أول 9 أعمدة) وتركت باقى الأعمدة فارغة فما حل هذه المشكلة ولكم ألف شكر
  3. عدد أعمدة الDataGrid

    آسف كان الخطأ منى عدلت فى خصائص الADODC فجعلت اتصاله بقاعدة البيانات الجديدة dbase2 المحتوى جدولها على 12 حقل وتركت جملة الاتصال فى كود الFORM-LOAD كما هى Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=; Data Source=" & App.Path & "\dbase1.mdb أى تركت اتصاله بقاعدة البيانات القديمة dbase1 المحتوى جدولها على 9 حقول فقط ولكم ألف شكر
  4. عدد أعمدة الDataGrid

    وحين أكتب فى الكود DataGrid2.Columns(9)............... يرسل رسالة اعتراض يقول فيها RUN-TIME ERROR 9 SUBSCRIPT OUT OF RANGE     يرسل هذه الرسالة مع الرقم 9  أو أكبر ، وينفذ الأمر المطلوب دون اعتراض بدءآ من Columns(0)  وحتى Columns(8) ولكم ألف شكر
  5. تظليل أحد سجلات الDATAGRID

    عرفت الحل   والحمد لله من أراد معرفة الحل فليفتح الرابط  http://vb4arb.com/vb/thread-16523.html وليقرأ حل الأستاذ/ Ahmed_Mansoor
  6.   لدى DataGrid  متصلة ب Adodc المرتبط بأحد جداول قاعدة البيانات   وأريد تظليل أحد السجلات فى الDATAGRID   مثلآ تظليل السجل الرابع  أو مثلآ تظليل السجل الحالى أو مثلآ تظليل السجل الذى فيه قيمة الحقلNAMEE تساوى"أحمد" أو أى مثال آخر ولكم ألف شكر
  7. تعديل بعض السجلات بشرط معين

    عرفت الحل   والحمد لله من أراد معرفة الحل فليفتح الرابط  http://vb4arb.com/vb/thread-16758.html وليقرأ حل الأستاذ/ Ahmed_Mansoor
  8. لدى قاعدة بيانات بها جدول EMPLOYEE  به حقل للعمر AGE وحقل للمرتب SALARY ولدى Adodc1 متصل بهذا الجدول  وأريد تعديل المرتب فى جميع السجلات التى فيها يزيد العمر عن 60 سنة الى 4000 جنيه فهل من كود باستخدام الFIND  أو  الWHERE  أو غيرها يقوم بذلك ؟ بحيث لا يكون الكود عبارة عن لوب أمر به على جميع السجلات(500 سجل مثلآ) و فى كل مرة أضع الشرط        If .Fields("AGE") > 60 Then .Fields("SALARY") =4000 ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ ولكم ألف شكر
  9. تعديل بعض السجلات بشرط معين

    هذا هو الكود الذى أعرفه With Adodc1.Recordset     .MoveFirst     Do Until .EOF         If .Fields("AGE") > 60 Then .Fields("SALARY") = 4000: .Update     If Not .EOF Then .MoveNext     Loop End With   فهل من كود أسهل من ذلك بحيث لا  يمر على جميع السجلات(500 سجل مثلآ) و فى كل مرة يقرأ الشرط        If .Fields("AGE") > 60 Then .Fields("SALARY") =4000 ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ ولكم ألف شكر
  10. تعديل بعض السجلات بشرط معين

    ألا توجد أى طريقة لذلك ؟
  11. تعديل بعض السجلات بشرط معين

    ألا توجد أى طريقة لذلك ؟
  12. تظليل أحد سجلات الDATAGRID

    يبدو أن هذه الأمثلة الكثيرة جعلت السؤال غير مفهوم أريد كود تظليل السجل الرابع ولكم ألف شكر
  13. هل يوجد كود يضع قيمة معينة فى حقل معين لجميع السجلات ؟ مثلآ  يجعل قيمة الحقل Busines فى جميع السجلات تساوى "مالى وادارى" بحيث لا يحتوى الكود على الجملة MoveNext ولكم ألف شكر
  14. خطأ فى الكود 2147217865-

    متى تظهر رسالة الخطأ التالية؟ وكيف نتفادى هذا الخطأ؟ TABLE DOS NOT EXIST و متى تظهر رسالة الخطأ التالية؟ وكيف نتفادى هذا الخطأ؟ TABLE ALREADY EXIST ولكم ألف شكر
  15. خطأ فى الكود 2147217865-

    وكيف نتفادى هذا الخطأ؟  
  16. من قاعدة البانات الى مصفوفة أزواج مرتبة

    عرفت الحل والحمد لله من أراد معرفة الحل فليفتح هذا الرابط http://vb4arb.com/vb/thread-15515.html
  17. لدى قاعدة بيانات اسمها bass1 بها جدول اسمه table1 مكون من تسعة صفوف وأربعة أعمدة وأريد باستخدام الado عمل مصفوفة أزواج مرتية على الصورة xa(i,j) بمعنى اذا كان السجل الثالث فى الحقل الثانى مثلآ قيمته=588  أريد كودآ يجعل   xa(2,3)= 588 ولكم ألف شكر
  18. من قاعدة البانات الى مصفوفة أزواج مرتبة

    كتبت هذا الكود فقام بالمطلوب والحمد لله   PHP كود : Set RS = New ADODB.Recordset                RS.Open "select * from table1", db, adOpenStatic, adLockReadOnly  NFieldS = 4  RS.MoveFirst    For I = 1 To RS.RecordCount      For J = 1 To NFieldS      XA(I, J) = RS.Fields(J)      Next J     RS.MoveNext   Next I  ولكن مشكلتى أن هذه العملية أريد عملها على عشرة جداول لا على الجدول table1  فقط وطبعآ اسم المصفوفة المطلوبة مختلف من مرة لأخرى  أى أنى أريد عمل عشرة مصفوفات من عشرة جداول فاذا كنت فى المرة الأولى قمت بعمل المصفوفة  xa(I,J) من الجدول table1          فأريد فى المرة الثانية عمل المصفوفة EGRA(I,J) من الجدول table2          وأريد فى المرة الثانية عمل المصفوفة TEMP(I,J) من الجدول table3          وأريد فى المرة الثانية عمل المصفوفة WAIT(I,J) من الجدول table4 وهكذا بعشرة أسماء مختلفة فكيف يمكن ذلك دون اعادة الكود السابق عشر مرات؟ أى هل يمكن أن نجعل اسم الجدول كمتغير( TBLL مثلآ) واسم المصفوفة كمتغير(MASFF مثلآ) ثم كتابة الكود السابق مرة واحدة ؟ طبعآ مع كتابة سطر فى كل مرة قبل التوجه لتنفيذ هذا الكود لتحديد قيم هذه المتغيرات ففى المرة الثانية مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table2: MASFF=EGRA وفى المرة الثالثة مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table3: MASFF=TEMP كيف يمكن ذلك؟   أم لابد من اعادة كتابة هذا الكود عشر مرات؟ ولكم ألف شكر
  19. من قاعدة البانات الى مصفوفة أزواج مرتبة

    كتبت هذا الكود فقام بالمطلوب والحمد لله   PHP كود : Set RS = New ADODB.Recordset                RS.Open "select * from table1", db, adOpenStatic, adLockReadOnly  NFieldS = 4  RS.MoveFirst    For I = 1 To RS.RecordCount      For J = 1 To NFieldS      XA(I, J) = RS.Fields(J)      Next J     RS.MoveNext   Next I  ولكن مشكلتى أن هذه العملية أريد عملها على عشرة جداول لا على الجدول table1  فقط وطبعآ اسم المصفوفة المطلوبة مختلف من مرة لأخرى  أى أنى أريد عمل عشرة مصفوفات من عشرة جداول فاذا كنت فى المرة الأولى قمت بعمل المصفوفة  xa(I,J) من الجدول table1          فأريد فى المرة الثانية عمل المصفوفة EGRA(I,J) من الجدول table2          وأريد فى المرة الثانية عمل المصفوفة TEMP(I,J) من الجدول table3          وأريد فى المرة الثانية عمل المصفوفة WAIT(I,J) من الجدول table4 وهكذا بعشرة أسماء مختلفة فكيف يمكن ذلك دون اعادة الكود السابق عشر مرات؟ أى هل يمكن أن نجعل اسم الجدول كمتغير( TBLL مثلآ) واسم المصفوفة كمتغير(MASFF مثلآ) ثم كتابة الكود السابق مرة واحدة ؟ ولكم ألف شكر
  20. نعلم جميعآ أن نوع بيانات الحقل أمر هام عند التعامل مع قواعد البيانات ولكن هل من كود يحدد لى نوع بيانات الحقل كتبت هذا الكود ظنآ منى أن الخاصية TYPE ستعطينى نوع بيانات الحقل  فاذا بها تعطينى أرقام   For I = 1 To 14AField1 = Adodc1.Recordset.Fields(I).NameTYPP = Adodc1.Recordset.Fields(I).TypePrint AField1, TYPPIf TYPP = Number Then MsgBox ("NNNNNNNNNNNNNNNIf TYPP = "Date / Time" Then MsgBox ("KKKKKKKKKKKKNext I ولكم ألف شكر 
  21. أذا كان (a=0,b<>0) أطبع : "مستحيل الحل" طبعآ مستحيل لأنه لو كانت  A=0 , B<> 0 فانك بالتعويض فى المعادلة عن A=0 تجد أن B=0 وهذا فعلآ مستحيل ، فمثلآ لو كانت المعادلة AX+7=0  وكانت A=0 فكأنك تقول أن 0=7 وهذا طبعآ لايحدث الا اذا كانت A فقط هى التى تساوى صفر لأنه لو كان كلاهما =صفر فستجد عكس الاستحالة تمامآ (ستجد أن أى حل يخطر ببالك سيكون صحيحآ) لأن أى قيمة للمتغير X  لوعوضت بها فستئول المعادلة الى أن  0=0+0 وهذا صحيح
  22. ويمكن ضمها أيضآ فى جملة  If  واحدة بطريقة أخرى اراها اسهل  هكذا: If Text1.Text = "1" Or Text1.Text = "2" Or Text1.Text = "3" Then Text2.Text = "Thanks"أو هكذا: X = Text1.TextIf X = "1" Or X = "2" Or X = "3" Then Text2.Text = "Thanks  
  23. أرجووووووووكم أريد تحميل برنامج  الفيجوال بيزك6   أو الفيجوال ستوديو6 كله ولكن لا أريد روابط ان كان فى استطاعة أحدكم أن يرفق أحد البرنامجين فى ملف فليرفقه وله ألف شكر وان لم لم يستطع الا أن يكتب رابطآ لتحميله فلا داعى لأن يتعب نفسه (حتى وان كان الرابط مباشر أو صاروخى أو أو أو...........)   ولكم ألف شكر
  24. أقصد بالملف التنفيذى كل ما يمكنك بعد أن قمت بعمل برنامجك بأى لغة برمجة (برنامج الVB6 مثلآ)  يمكنك من أن تعطيه لغيرك ليقوم بعمل الRUN دون أن يطلع على برنامجك وكيفية تخطيطك له
  25. أرى بمنتدانا الفريق العربى للبرمجة أقسام خاصة كثيرة لابد منها لأنها مرتبطة بالبرمجة (قسم قواعد البيانات مثلآ) وأقترح اضافه قسم خاص جديد بالمنتدي أراه أيضآ لابد منه ومرتبط بالبرمجة (قسم الملف التنفيذى) يكون متخصص فى شرح الطرق المختلفة لتحويل البرنامج الذى تم عمله بأى لغة برمجة (برنامج الVB6 مثلآ)  الى ملف التنفيذى وفى مشاكل كل طريقة والبحث عن حلها   أنتظر رأى الجميع لأن كثيرآ من وقتى يضيع بسبب ذلك ولكم ألف شكر