مثال لاستخدام جملة سيليكت sql فى قاعدة بيانات مربوطة من خلال مكتبة dao 3.6

مغلق

بدأه mancoeg في 13 يوليو 2006 · 20 رد · 1,509 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#113 يوليو 2006 في 19:42 صاحب الموضوع

مثال لاستخدام جملة سيليكت sql فى قاعدة بيانات مربوطة من خلال مكتبة dao 3.6

ياريت حد يرد لان المشروع متوقف لهذا السبب(قاعدة يانات لمعمل تحلبل)

شكرا

#213 يوليو 2006 في 22:19

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

يا اخي ياريت حضرتك توضح انت عاوز الكود يعمل ايه بالظبط وان شاء الله تجد المساعدة

مع العلم ان جمل SQL هي ثابتة

وانصحك باستخدام الـ ADO يدلا من DAO لانها متقدمة أكثر

الى اللقاء

تم تعديل هذه المشاركة بواسطة MR^King في 13 يوليو 2006 في 22:21

JusT LeT YouR MinD WorK

#318 يوليو 2006 في 01:45

MR^King كتب:
السلام عليكم ورحمة الله وبركاته
يا اخي ياريت حضرتك توضح انت عاوز الكود يعمل ايه بالظبط وان شاء الله تجد المساعدة
مع العلم ان جمل SQL هي ثابتة
وانصحك باستخدام الـ ADO يدلا من DAO لانها متقدمة أكثر
الى اللقاء

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

الاول اسمه الاباء وبه حقلين

f_id

f_name

اما الجدول الثانى جدول الابناء وبه حقلين

f_id

s_name

المطلوب استخدام جملة سيليكت لملىء كوموبوكس باسماء الاباء من حقل f_name

الموجود جدول الاباء

شكرا منتظر الرد

#418 يوليو 2006 في 02:18

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

do while not rs. eof
combo1.additem rs("f_name")
rs.movenext
loop

وبهذا يتم ملء الكومبو بوكس

=========

الى اللقاء

JusT LeT YouR MinD WorK

#518 يوليو 2006 في 06:27

alsalam 3alaykom

Dim DB As Database
Set DB = OpenDatabase("data base name")
Dim Rec As Recordset

Set Rec = DB.OpenRecordset("select f_name from fathers")
While Not Rec.EOF
   Combo1.AddItem Rec(0)
Rec.MoveNext
Wend

Rec.Close
DB.Close

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#621 يوليو 2006 في 02:28

انا متشكر جدا لتفاعلكم

بس الحقيقة انا شايف من خلال تجربتى ان جملة السيكول المستخدمة فى الكود الثانى مالوش لازمه

لان جملة دو ويل اللى فى الكود الاول هاتملىء الكومبوبوكس

وانا جربت الكود دة قبل كدة

منتظر تعليقكم

شكرا

#722 يوليو 2006 في 16:27

انا جربت الكود واخيرا اشتغل

الحمد لله الكود دة كان مطلع عينى

انا مش عارف اشكركم ازاى

ليا سؤال اذا سمحتم

انا دلوقتى حملت الكومبو بوكس بأسماء الاباء من حقل f_name

عايز اكت حرف فى الكومبو وكس تنسدل الكومبو وكس وفبها كل اسماء الاباء اللى بتبداء بهذا الحرف

2-عايز عد ماختار اسم الاب تتملى كومبو بوكس تانة اسماء ابنائة

شكرا ومنتظر الرد

#822 يوليو 2006 في 22:25

انتو فيييييييييييييييييييييييييييييييييييييييييييييييييييين

#923 يوليو 2006 في 21:04

انتو فيييييييييييييييييييييييييييييييييييييييييييييييييييين

#1023 يوليو 2006 في 23:07

لية مفش رد يا تلرى السؤال مش واضح ولا محدش عارف الاجابة

ياريت حد يقولى

#1124 يوليو 2006 في 22:35

mancoeg كتب:
انا جربت الكود واخيرا اشتغل
الحمد لله الكود دة كان مطلع عينى
انا مش عارف اشكركم ازاى
ليا سؤال اذا سمحتم
انا دلوقتى حملت الكومبو بوكس بأسماء الاباء من حقل f_name
عايز اكتب حرف فى الكومبو وكس تنسدل الكومبو وكس وفبها كل اسماء الاباء اللى بتبداء بهذا الحرف
2-عايز عد ماختار اسم الاب تتملى كومبو بوكس تانة اسماء ابنائة
شكرا ومنتظر الرد

#1224 يوليو 2006 في 23:06

السلام عليكم

يمكنك هذا يأخى عن طريق هذا الكود

Dim DB As Database

Set DB = OpenDatabase("data base name")
Dim Rec As Recordset

Set Rec = DB.OpenRecordset("select f_name from sons where father =' " + combo1.text + " ' ")
While Not Rec.EOF
   Combo2.AddItem Rec(0)
Rec.MoveNext
Wend

Rec.Close
DB.Close

وبهذا الكود سوف يقوم بالبحث فى الجدول الخاص بالأبناء عن أسم الأب وعرض بيانات أبنائه فى combo2

تم تعديل هذه المشاركة بواسطة GENIUS-IT في 24 يوليو 2006 في 23:14

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity