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

List Box و قواعد البيانات

بدأه Unlimated destroye في 16 أبريل 2008 · 2 رد · 904 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كنت نشرت موضوع عن تجميع الارقام بالنص على الرابط التالي

كيفيه تجميع النص

لكن لم يتم الاجابه عنه المهم انا الان لجات لطريقه اخرى الا وهي اضاف البيانات لليست بوكس

المفروض انك عندك اداه ليستList1 خصائها كالتالي

datasource =Data1

datafield= mm

واداه data ربطناها بقاعده بيانات db2.mdb بالجدول Table1

المفروض عند الضغط على مفتاح addnew ننفذ الكود التالي

	Data1.Refresh
	Data1.Recordset.AddNew
	List1.AddItem Text1.Text

فيتم اضافه سجل جديد لكن هذا لا يحدث انضر المرفقات

New_Folder2.rar

I believe that there is no god but Allah and Mohamed is Allah Messenger

#2

محدش عنده فكره عن الموضوع؟؟؟

I believe that there is no god but Allah and Mohamed is Allah Messenger

#3

الأخ الفاضل الكود المرفق بنقصه كود الحفظ

تفضل الكود بعد التعديل 

Private Sub cmdSave_Click()
   Data1.Recordset.Update
   Me.List1.AddItem Me.Text1
End Sub

Private Sub Command1_Click()
	On Error Resume Next
	Data1.Refresh
	Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
	Data1.Refresh
	Me.List1.Refresh
End Sub

Private Sub Form_Load()
	Me.Data1.DatabaseName = App.Path & "\db2.mdb"
	Me.Text1.DataField = Data1
	Me.Text1.DataField = "MM"
	Me.List1.DataSource = Data1
	Me.List1.DataField = "MM"
End Sub

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

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