كود استعلام بشرط

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

المطلوب غير واضح

حقل Id يساوي حقل Name ؟

هنا رقم وهناك اسم : هل هذا صحيح

والأفضل ارفاق مثال للمساعده ...

اقتباس

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

المطلوب غير واضح

حقل Id يساوي حقل Name ؟

هنا رقم وهناك اسم : هل هذا صحيح

والأفضل ارفاق مثال للمساعده ...

لا يا اخى انا قلت حقل name لاوضح الفكرة بس هو مساوى لحقل تانى طبعا بصيغة رقم

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

يعنى انا عندى جدولين فيهم الاسم والعنوان ورقم التليفون

وجدول تانى فيه المرتب وتاريخ التعين كل دة بيظهر فى listview

وطبعا اريد ربط كل موظف ببيانته فى الجدول التانى فعملت حقل فى الجدول التانى مساوى لحقل id فى الجدول الاول

اريد ان استعلم عن تساوى الحقلين يملى listview بالبيانات

بس

ياريت تكون الفكرة واضحة

لانى لسة مش بعرف اطبق الفكرة بالكود

المثال اهو يا اخى

تحميل

فورم 2 ، كوماند 3

هذا الكود

ملاحظه # يجب كتابة التاريخ كما هو مدخل في الداتا بيز بالطريقة (mm/dd/yyyy)

الموجود في الجدول هذا التاريخ (11/02/2009) هنا اليوم =2 والشهر = 11 والسنة = 2009

يعني عند كتابة التاريخ في أداة الكالندر يجب اختيار التاريخ كما هو بالأعلى

If rs.State = adStateOpen Then rs.Close
rs.Open "select a2.ID,a2.name,a2.address,a2.date,a3.money,a3.number,a3.idname from a2,a3 where a2.date=#" & Text3 & "# And a2.id=a3.idname", db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

List2.ListItems.Clear
List2.ColumnHeaders.Clear

With List2
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add , , "م"
.ColumnHeaders.Add , , "الأسم"
.ColumnHeaders.Add , , "العنوان"
.ColumnHeaders.Add , , "التاريخ"
.ColumnHeaders.Add , , "الرقم"
.ColumnHeaders.Add , , "المرتب"
.ColumnHeaders(1).Width = 400
.ColumnHeaders(2).Width = 1500
.ColumnHeaders(3).Width = 1500
.ColumnHeaders(4).Width = 1500
.ColumnHeaders(5).Width = 1500
End With

Do While Not rs.EOF
Dim lst As ListItem
Set lst = List2.ListItems.Add(, , rs!ID)
lst.ListSubItems.Add , , rs!Name
lst.ListSubItems.Add , , rs!address
lst.ListSubItems.Add , , rs!Date
lst.ListSubItems.Add , , rs!Number
lst.ListSubItems.Add , , rs!Money
rs.MoveNext
Loop

Else
MsgBox "عفواً لا يوجد سجلات"
End If

Set rs = Nothing
If rs.State = adStateOpen Then rs.Close

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

وجزاك الله كل خير

بس اعمل ايه فى مشكلة التاريخ ما ظبط بس الكود تمام بس موضوع التاريخ مو عايز يزبط مش عارفة ليه ؟؟؟

العفو ، فيه حل ممتاز عند النقر على اداة التاريخ الكالندر

يوضع التاريخ المحدد في تكست3

الكود يصبح كالتالي :

كان :

Private Sub C3_DblClick(ByVal DateValue As String, ByVal PeriodValue As String, ByVal Row As Integer, ByVal Col As Integer)
Text3.Text = C3.DateValue
C3.Visible = False
End Sub

يصبح :

Private Sub C3_DblClick(ByVal DateValue As String, ByVal PeriodValue As String, ByVal Row As Integer, ByVal Col As Integer)
Text3.Text = Format(C3.DateValue, "mm/dd/yyyy")
C3.Visible = False
End Sub

ونكون حلينا المشكلة

مش عارفة مظبطش بردة :mellow:

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

اخى الكريم انا حليت المشكلة الحمد لله

:)

عدلت على الكود بقى كدة

rs.Open "select a2.ID,a2.name,a2.address,a2.date,a3.money,a3.number,a3.idname from a2,a3 WHERE (a2.[date] = #" & Format$(CDate(Text3.Text), "mm/dd/yyyy") & "#) And a2.id=a3.idname", db, adOpenDynamic, adLockBatchOptimistic

سلمى محمد كتب:

مش عارفة مظبطش بردة :mellow:

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

كوماند 3

استبدال الكود القديم بالجديد

الجديد

If rs.State = adStateOpen Then rs.Close
rs.Open "select a2.ID,a2.name,a2.address,a2.date,a3.money,a3.number,a3.idname from a2,a3 where a2.date=#" & Format(Text3, "mm/dd/yyyy") & "# And a2.id=a3.idname", db, adOpenDynamic, adLockBatchOptimistic

If rs.EOF = False Then

List2.ListItems.Clear
List2.ColumnHeaders.Clear

With List2
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add , , "م"
.ColumnHeaders.Add , , "الاسم"
.ColumnHeaders.Add , , "العنوان"
.ColumnHeaders.Add , , "التاريخ"
.ColumnHeaders.Add , , "الرقم"
.ColumnHeaders.Add , , "المرتب"
.ColumnHeaders(1).Width = 400
.ColumnHeaders(2).Width = 1500
.ColumnHeaders(3).Width = 1500
.ColumnHeaders(4).Width = 1500
.ColumnHeaders(5).Width = 1500
End With

Do While Not rs.EOF
Dim lst As ListItem
Set lst = List2.ListItems.Add(, , rs!ID)
lst.ListSubItems.Add , , rs!Name
lst.ListSubItems.Add , , rs!address
lst.ListSubItems.Add , , rs!Date
lst.ListSubItems.Add , , rs!Number
lst.ListSubItems.Add , , rs!Money
rs.MoveNext
Loop

Else
MsgBox "عفواً لا توجد سجلات"
End If

Set rs = Nothing
If rs.State = adStateOpen Then rs.Close

اكتشفنا الحل وكتبنا المشاركة في وقت واحد 8:23 AM

اوك كويس ..

تمام يا خى جزاك الله خير

اخر سؤال بقى :)

ازاى اخلى التاريخ يعرض فى التكست من اليمين للشمال بدل العكس

يعنى هو بيتعرض كدة 11/02/2009 اواى اخلى يتعرض كدة 11-02-2009 مع العلم انى غير التكست riight to lift لكن تبقى المشكلة

ايه العمل