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

اساتذتي المبرمجين الغوث الغوث

مغلق
بدأه الحراري في 13 أغسطس 2006 · 1 رد · 463 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخي ابو احمد مشكور واجد و ما قصرت

يس عندي سؤال شويه مأرقنى بصراحة و هو على النحو التالي

عندى قاعدة بيانات و بها مجموعة جداول

تم ربطها بإستخدام ado

تم ادراج الجداول الموجوده بهذه القاعدة فى كمبو بوكس و بمجرد الضغط على اسم احد هذه الجداول يتم ادراجها فى list و قد تم هذا بفضل الله و الاخ/ ابو احمد بارك الله فيه

العملية الحمد الله تمت بخير

ولكن المطلوب الان هو التالى :

المطلوب هو عند الضغط على احد عند الضغط على اسم ا الجداول عرض محتويات هذه الجداول فى تكست على حسب عدد الحقول فمثلاً

لو كان عندنا فى الجدول رقم 1 الاسم و العمر و السكن فا يتم العرضً الاسم فى تكست1 و العمر فى تكست2 السكن فى تكست 3

لو كان عندنا فى الجدول رقم 2 الاقامة و رقم الهاتف و العمل و هاتف العمل فا يكون العرض فى تكست 1 و تكست 2 و تكست 3 و تكست 4

مع شكرى لكل من يحاول المساعدة

#2

ممكن أنك تستفيد من كود إنشاء صندوق نصي وقت التنفيذ

Option Explicit
Private WithEvents btnObj As CommandButton
Private WithEvents txtObj As TextBox


Private Sub btnObj_Click()
	On Error Resume Next
	Set txtObj = Controls.Add("VB.textbox", "txtObj")
	With txtObj
		.Visible = True
		.RightToLeft = True
		.Alignment = 2
		.Width = 2000
		.Text = "السلام عليكم"
		.Top = 2000
		.Left = 1000
	End With
End Sub

Private Sub Form_Load()
	Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
	With btnObj
		.Visible = True
		.Width = 2000
		.Caption = "Click"
		.Top = 1000
		.Left = 1000
	End With
End Sub

بحيث أنك إذا عرفت عدد الأعمدة في أي جدول تقوم بإنشاء صناديق نص بالعدد المناسب وهكذا....

أنا عارف إني ما جبت الفكرة بشكل واضح ولكن هذا ما عندي .....

تم تعديل هذه المشاركة بواسطة شهاب المخلافي في 13 أغسطس 2006 في 02:37

هذا الموضوع مغلق.

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