نظر شما در مورد یک قطعه کد البته مشکل دار

سلام
من برای سرچ برنامه ام با رابط ADO از قطعه کد زیر استفاده کردم حالا تو خط سوم مشکل دارم اونم اینه که کل دیتا بیس رو تو Data Grid میریزه میخوام فقط همون فیلدی که پیدا میشه با بقیه مشخصاتش وارد شه چی کار کنم گیر کردم :blink:

کد:

---

For j = 0 To frmAddRemove.AdoLibrary.Recordset.RecordCount

        If frmAddRemove.AdoLibrary.Recordset.Fields("bookname") Like "*" & Trim(StrBookname) & "*" Then
            Set frmSearch.DGSearch.DataSource = frmAddRemove.AdoLibrary.Recordset
        End If
    frmAddRemove.AdoLibrary.Recordset.MoveNext
   
   
    Next j

---

راستی اگه راه بهتری هم در این رابطه سراغ دارید بگید آخه برادرم می گفت اینجوری تک تک رکورد ها چک میشه و اگه تعداد زیاد باشه زمان زیادی صرف میشه و این خوب نیست من منظورشو خوب نگرفتم اگه ممکنه راهنماییم کنید

براي اينكار يه راه خيلي آسون‌تر وجود داره كه بايد اينجوري عمل كني

کد:

---

frmAddRemove.AdoLibrary.recordsource="select field1,field2 from tabelname where field1>,field2  "

---

بعد از where بايد نوع ----- كردن رو مشخص كني .
در ضمن اون عبارتي كه داخل " " نوشته شده بهش ميگن دستور SQL كه اگر دوست داري ميتوني كتاب برنامه نويسي پايگاه داده با ويژوال بيسيك (در 21 روز) رو بگيري كه توي اين زمينه ميتونه بهت كمك بكنه.
و كتابه هم از انتشارات نص هستش.

نقل قول:

---

نوشته شده توسط ULF_VB6 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

براي اينكار يه راه خيلي آسون‌تر وجود داره كه بايد اينجوري عمل كني

کد:

---

frmAddRemove.AdoLibrary.recordsource="select field1,field2 from tabelname where field1>,field2  "

---

بعد از where بايد نوع ----- كردن رو مشخص كني .
در ضمن اون عبارتي كه داخل " " نوشته شده بهش ميگن دستور SQL كه اگر دوست داري ميتوني كتاب برنامه نويسي پايگاه داده با ويژوال بيسيك (در 21 روز) رو بگيري كه توي اين زمينه ميتونه بهت كمك بكنه.
و كتابه هم از انتشارات نص هستش.

---

مرسی دوست عزیز اینم راه خوبیه ولی من مشکلم تو اضافه کردنه فیلدها به DataGrid هستش اگه اشتباه نکرده باشم قطعه کد شما برای مقایسه فیلدهاست ؟
کتابی هم که معرفی کردی خیلی باحاله ولی نتونستم تهیش کنم در اولین فرصتی که گیر بیارم باید این کارو بکنم

نقل قول:

---

مرسی دوست عزیز اینم راه خوبیه ولی من مشکلم تو اضافه کردنه فیلدها به DataGrid هستش اگه اشتباه نکرده باشم قطعه کد شما برای مقایسه فیلدهاست ؟

---

دوست عزيز :biggrin:
بعد از نوشتن اون دستور ميتوني اين كد رو براي نشان دادن فيلدها داخل ديتاگرايد بنويسي

کد:

---

datagrid1.datasource=adodc1
datagride1.retrivedatafiles

---

نقل قول:

---

نوشته شده توسط ULF_VB6 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزيز :biggrin:
بعد از نوشتن اون دستور ميتوني اين كد رو براي نشان دادن فيلدها داخل ديتاگرايد بنويسي

کد:

---

datagrid1.datasource=adodc1
datagride1.retrivedatafiles

---

---

دوست عزیز میشه یه خورده بیشتر توضیح بدید من این کدی که شما دادی نوشتن البته با تغیرات لازم ولی اررور میده اگه ممکنه بیشتر راهنماییم کنید :blush:

نقل قول:

---

مرسی دوست عزیز اینم راه خوبیه ولی من مشکلم تو اضافه کردنه فیلدها به DataGrid هستش اگه اشتباه نکرده باشم قطعه کد شما برای مقایسه فیلدهاست ؟

---

بیشتر توضیح بده .یه Select رو ado بزار کاررو تمام کن دیگه .همیشه توضیح بهتر راه حلهای بیشتری رو میتونه پاسخگو باشه.