تنفيذ جملة SQL من VB

أولا :

من خلال الــConnection

يمكنك كتابة الكود التالى

    Set rsStudy = dbZino.OpenRecordset("SELECT * FROM TABLE", dbOpenDynaset)

حيث أن dbZino ده الــConnection بتاعك

والــrsStudy ده Record set من الــConnection

إجابة السؤال الثانى

للبحث عن كود الموظف اتبع الاتى

rsStudy.FindFirst "Field Name =" & Number  & " " 
While Not rsFStudy.EOF
              rsFStudy.FindNext
              'أكمل الكود...
Wend

لو فى اجابة مشوضحة بلغنى

بسم الله الرحمن الرحيم

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

سأجرب وأرد على الموضوع ان شاء الله

وبالتوفيق

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

بسم الله الرحمن الرحيم

eng2002 كتب:

إجابة السؤال الثانى

للبحث عن كود الموظف اتبع الاتى

rsStudy.FindFirst "Field Name =" & Number  & " " 
While Not rsFStudy.EOF
              rsFStudy.FindNext
              'أكمل الكود...
Wend

لو فى اجابة مشوضحة بلغنى

←

لم ينفع معي علما أنني قمت بالتعريف كالتالي

Set db1 = OpenDatabase("D:\school97.mdb")
Set rec1 = db1.OpenRecordset("SELECT student.st_no, student.[st name], absence.date, absence.reason FROM student INNER JOIN absence ON student.st_no = absence.st_no WHERE (((absence.st_no)=[student].[st_no]));", dbOpenDynaset)  ' db1.OpenRecordset("absence")

ثم في البحث كتبت

SN = InputBox("insert St_Name")
 rec1.FindFirst "st_name =" & SN
Text6.Text = rec1.Fields(0)
Text1.Text = rec1.Fields(1)
Text2.Text = rec1.Fields(2)
Text3.Text = rec1.Fields(3)

ولكنه لا يعمل علما أنه يرجع النتائج كاملة

هو فى مشكلة . ياريت ترفق الفورم التى بها الكود حتى استطيع مساعدتك ويتضح الأمر

البريشي كتب:

بسم الله الرحمن الرحيم

لم ينفع معي علما أنني قمت بالتعريف كالتالي

Set db1 = OpenDatabase("D:\school97.mdb")
Set rec1 = db1.OpenRecordset("SELECT student.st_no, student.[st name], absence.date, absence.reason FROM student INNER JOIN absence ON student.st_no = absence.st_no WHERE (((absence.st_no)=[student].[st_no]));", dbOpenDynaset)  ' db1.OpenRecordset("absence")

ثم في البحث كتبت

SN = InputBox("insert St_Name")
 rec1.FindFirst "st_name =" & SN
Text6.Text = rec1.Fields(0)
Text1.Text = rec1.Fields(1)
Text2.Text = rec1.Fields(2)
Text3.Text = rec1.Fields(3)

ولكنه لا يعمل علما أنه يرجع النتائج كاملة

←

انت بتقول انه لا يعمل علما انه يرجع النتائج كاملة . يبقى لازم أبص على الكود زى ما قلت لك سالف ;)