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

مشروع نقابة الاسنان

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

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

منذ زمن طويل و انا اتابع بكل حب و تقدير موقع الفريق العربي للبرمجة و انا سعيد بما وصل الية مستوى المبرمج العربي

كل هذا بدون اي تفاعل مني

هذا لخوفي من قلة علمي ولكن الان انا لا اخشى شئ .كل انسان يولد صغب\ير ولمن العبرة بما يفعلة بعد ذلك

انا اقوم بتصميم برنامج لعيادة اسنان متعاقدة مع المشروع العلاجي في مصر و شارف على الانتهاء الا من كود تعديل السجلات و كود اضافة صور الاشعات و حفظها في قاعدة البيانات من نوع msaccess97الرجاء منكم اخواني مساعدتي

و لكم جزيل الشكر

السابح في بحر العلم

#2
rs.edit
rs!name=text1.text
rs!age=text2.text
rs.update

حيث rs هي اسم الrecord source

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

هذا طبعا لو كنت تربط الداتا بيز عن طريق DAO او Data Controle

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#3

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

شكرآ استاذي العزيز على الرد السريع الذي وضح لي انة ضروري ان اوضح بعض الاشياء المهمة:

انا استخدم الــ DAO و كذلك لا استخدم اي اداة مثل الــdata control

يوجد مشكلة اخرى كيف استعلم عن بيانات مريض موجود بالفعل من خلال بضع حروف من اسمة فقط؟

الرجاء من سيادتكم امدادي بالطريقة من اجل استكمال برنامجي

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

#4

استخدم التصفية filtering مع ال recordset

#5

السلام عليكم

ان فرحتي لا تقدر

و خصوصا على هذة المشاركات الفعالة و في يوم واحد

و لكن كيف اعمل filter هل يمكن وضع الكود لذلك؟

انا عندي جدول اسمة p_names

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

و ان كان هناك عبارة sql

يكون افضل

و شكرا

#6

حاول تسفيد من الكود التالي بحيث يمكنك بحث عن طريق الأحرف الأولى من الأسم

Adodc1.RecordSource = "select * from tabel name where field name
 like '" & Trim(Text1.Text) & "%'" & ""
#7

السلام عليكم

اشكركم كثيرآ على مشاركاتكم الغالية

و لكن عند تنفيذي للمقترحات تظهر رسالة بمعني : لا توجد سجلات

انا نفذت الكود التالي :

Dim pn As Recordset

sql5 = "select * from psh_names where p_name like '" & Trim(txtpid(1)) & "%'" & ""

'sql5 = "select * from psh_names where p_name =" & Chr(34) & Trim(txtpid(1)) & Chr(34) & ""

Set pn = DB.OpenRecordset(sql5)

'pn.Filter = "p_name like '" & Trim(txtpid(0)) & "%'" & ""

If pn.RecordCount > 0 Then

txtpid(2).Text = pn.Fields(0)

'dbmr.Text = pn.Fields(7)

'Else

'MsgBox ""

End If

ما هي المشكلة؟

علما باني لا استخدم اي ادوات للداتا بيز مثل ado او adodb

#8

من فضلكم احتاج الرد سريعأ

#9

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

أرجو أن يساعدك الشباب

و أنصحك با ستخدام ADO ( مجرد نصيحة )

أرجو السموحة و شكرا

Dim pn As Recordset
sql5 = "select * from psh_names where p_name like '" & Trim(txtpid(1)) & "%'" & ""
'sql5 = "select * from psh_names where p_name =" & Chr(34) & Trim(txtpid(1)) & Chr(34) & ""
Set pn = DB.OpenRecordset(sql5)
'pn.Filter = "p_name like '" & Trim(txtpid(0)) & "%'" & ""
If pn.RecordCount > 0 Then
txtpid(2).Text = pn.Fields(0)
'dbmr.Text = pn.Fields(7)
'Else
'MsgBox ""
End If
#10

السلام عليكم

لازلت في مشكلتي

ولكني ارفقت المشروع حتى تضح الصورة

رجاءأ لا تبخلوا علي بالعلم

شكرآ

مشروع النقابة.zip

#11

السلام عليكم

معقول لا يوجد رد حتى الان

ارجوا الا تنسوني

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

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