الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اسئلة عن Datagrid1!

بدأه kiss في 14 مارس 2009 · 20 رد · 1,566 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

السؤال الاول:

شباب انا شبكت dataGrid1 مع adodc1 ....

بدي الكود المناسب عندما اقوم بالضغط على زر تخزين يقوم بفحص حقول الاداة هل فيها قيم ام لا ؟؟

ويقوم باخباري باسم الحقل الفارغ؟؟

***********************************************

السؤال التاني اريد ان اجعلها لادخال وتهزين البينات وليست لعرض البيانات؟

يعني لما اشبكها بلاادة adodc1 بتصير تظهرلي كل الجداول الي بقاعدة البيانات؟؟

انا اريدها ان تكون فارغة فقط لادحخال وتخزين البيانات؟؟

وشكراااااااااااااااا

#2

السلام عليكــم ورحمـة الله وبركاتــة ،،

اخي طلبك غير واضح تماما ممكن ترفع مثال بما تطلب ويت التعديل عليه افضل

#3

لاطلب واااااااااااااااااضح.

تم تعديل هذه المشاركة بواسطة najy_zl في 14 مارس 2009 في 18:48

#4

يا أخ kiss، ليس من الذوق الكلام بهذه الطريقة، مع شخص يطلب منك مزيداً من التوضيح ليستطيع ان يساعدك بشكل فعال....

على كل حال، بالنسبة للسؤال الأول،ضع الكود التالي في الحدث Validate للأداة DataGrid1 يمكنك التنقل بين كل صف من صفوف DataGrid والتحقق من أنه ليس فارغاً، إليك الكود التالي (وهو غير مجرب) :

For i = 1 To DataGrid1.Cols-1
	DataGrid1.Col=i
	For j = 1 To DataGrid1.Rows-1
		DataGrid1.Row=j
		If DataGrid1.Text = "" Then
			MsgBox "You have to enter some data"
			Cancel=True
			Exit Sub
		End If
	Next
Next

أرجو أن يفيدك، وأن نتعامل بأخوية في هذا المنتدى.

هذه الجملة خاطئة  :wacko: 


#5

انا اسف على ما مضى مشكوووووووووووور علىلا الرد والحل..

والحل والسؤال التاني ماحلاه؟

#6

اخي ما زبط الكود للاسف

#7

اعذرني أخي، المثال الذي أعطيته لك كان ليعمل على MSFlexGrid ولكن لم أستطع تجربته على DataGrid ويبدو أنه لا يعمل، على كل سوف أنظر في حل لهذه المشكلة بإذن الله.

تم تعديل هذه المشاركة بواسطة Abboodd في 14 مارس 2009 في 21:28

هذه الجملة خاطئة  :wacko: 


#8

شكرااااااا جزيلااااااااااااا لمتابعتك وانا انتظرك...

تحياتي

#9

مشعارف اخي kissانت عنك مشكله مع رفع الامثلة ولا خايف نسرق خبراتك والا ايه

ما مشكله يا عم انا غلطان واستاهل

#10

ههههههههههههههههههههه والله ياحج ماعندي خبرة بالمرة بس انا مستعجل شوي

#11

تفضل أخي، هذا بالنسبة للسؤال الأول، لم أستطع تجربته لوجود مشاكل عندي، إذا واجهتك رسائل خطأ أرجو وضع نصها، وشكراً لك:

  1.  
  2. Private Sub DataGrid1_Validate(Cancel As Boolean)
  3.  
  4. Dim i As Integer, j As Integer
  5.  
  6. For i = 0 To DataGrid1.Columns.Count - 1
  7. DataGrid1.Col = i
  8. For j = 0 To Adodc1.Recordset.RecordCount - 1
  9. DataGrid1.Row = j
  10. If DataGrid1.Text = "" Then
  11. MsgBox "You have to enter some data"
  12. Cancel = True
  13. Exit Sub
  14. End If
  15.  
  16. End Sub
  17.  

هذه الجملة خاطئة  :wacko: 


#12

ااخخيييييييييييييييييي مشكووووووووووور الكود اشتغل و ما اشتغل...

يعني ماعطا اخطاء بس بنفس الوقت ماعطا ناتج.......

طيب انا حابب اقلك شو الي بدي اياه بالزبط:

في برامج محاسبة بداخلها اداة datagrid لتكون فاضية ولما تدخل فيها بيانات وتكبس على كوماند تخزين بخزنها... واذا بتفوت على البرنامج مرة اخرى بتشوف الاداة مافيها بيانات مع انها مشبوكة بالجدول لانو قمنا بعملية تخزبن للبيانات من خلالها.....

لو جربت شبكت هذه الاداة ب adodc1 وشغلت البرنامج رح تشوفها تختوي على كل بيانات الجدول الي انت شابكها عليه..

وعبيتها بيانات رح تصير تعمل تحديث تلقائي على قاعدة البيانات مجرد ما انت ادخلت اي نص على اي حقل....

#13

السلام عليكم ورحمة الله

للأسف يا أخي، خبرتي في الذي تريده قليلة جداً، ربما يساعدك أحد غيري في هذا.

أداة DataGrid أداة ميتة، وربما من الأفضل استعمال MSHFlexGrid

على كل، في المرفقات مثال عن التحقق من البيانات المدخلة في الـDataGrid فإن كانت فارغة أعطاك تنبيهاً.

عليك فقط قبل تجريبه إعادة إقامة الاتصال بين البرنامج وقاعدة البيانات في مجلده.

وفقك الله

Kiss.rar

هذه الجملة خاطئة  :wacko: 


#14

اخييي شكراا جزيلا لمتابعتك....وانا شاكر لك كثيرا على جهودك معي.....

بقي اخر سؤال ان شاء الله عن هذه الاداة...

هو: اريد كل مادخل على البرنامج الاقي الاداة خالية من البيانات؟؟ فقط ما علي الااضيف...

يعني بدي اشوف كل الحقول فيها فاضية وانا اقوم بتعبئتها-

وشكراااااااااااااااااااااا

#15
اقتباس
أداة DataGrid أداة ميتة، وربما من الأفضل استعمال MSHFlexGrid

لا أظن ذلك ممكناً في أداة DataGrid.

هذه الجملة خاطئة  :wacko: 


#16

طيب بالاداة التانية اذا ممكن مثل بسيط.؟

وشكرااااااااااااااااااااا

#17

تفضل أخي

المثال غير متكامل تماماً، ولكن به ما تريده

يمكنك الكتابة في MSHFlexGrid وإضافة صف جديد بضغط الزر Enter

وعندما تضغط الزر Save يتحقق من أن كل الحقول مملوءة، ثم يقوم بإضافتها إلى قاعدة البيانات

إذا كان في المثال أي خطأ أو نقص، أرجو إطلاعي عليه، لأقوم بالتعديل.

وفقك الله :)

Kiss.rar

هذه الجملة خاطئة  :wacko: 


#18

مشوووووووووووووووووووووووووووووووووور جدا جدا جدا..

اشتغل تمام وما بده اي تعديللللللللللللللللل

تحيااااااااااااااااااااااااتي الك وللمتابعتك الرائعوة ومجهودك المتواصل...

اخووووووووووك kiss

#19

اخيييييييييييييييييييي الادة مش موجودة من وين اجيبها؟

#20

اضغط Control + T ثم اختر Microsoft Hierarchical FlexGrid Control 6.0

هذه الجملة خاطئة  :wacko: 


#21

مشكوووووووووووووووووووور جدا جدا

مواضيع مشابهة