جستجو در ado [بایگانی]

vbiman

پنج شنبه 25 اسفند 1384, 12:28 عصر

با سلام
من برنامه ای دربارهً کتابخانه نوشته ام ولی بعد از بار ها سوال و جواب مشکلم حل نشده ،
من در این برنامه از شی ado استفاده کرده ام و در جستجو مشکلی وجود دارد که به خط زیر به کلمه find اشکال می گیرد. If Len(txt(17)) > 0 Then
Dim s As String, x As String
s = txt(17).Text
) x = ado.Recordset.Find(s, , adSearchForward, 1)
If ado.Recordset.EOF = True Then
MsgBox ("not found")
Else
MsgBox ("find record")
End If
End If

siahacker

پنج شنبه 25 اسفند 1384, 18:11 عصر

سلام
find رو عوش کردی یه کلمه ی دیگه جاش بذاری؟
من هم یه چنین مشکلی داشتم
برای msgbox هات می خوای یه متغیر بگیر فقط برای امتحان ببین درست می شه یا نه

REZA ZAREI

شنبه 05 فروردین 1385, 18:49 عصر

من میخاهم یک برنامه را با بانک اطلاعاتی مرتبط کنم

perfeshnal

پنج شنبه 28 اردیبهشت 1385, 13:20 عصر

اگه در سایت Search کنی پیدا می کنی این تاپیک تکراری

Hossein Bazyan

جمعه 29 اردیبهشت 1385, 20:32 عصر

من چندین بار برنامه جستجو در بانک را نوشتم سرچ کن پیدا میکنی

mahdi_farhani

شنبه 30 اردیبهشت 1385, 03:59 صبح

دوست عزیز شما باید یه جای S باید این شرطو بزارید.

نام فیلد & "='" & Text1.text & "'"

این شرط لدهای رشته جواب میده . برای فیلدهای های عددی باید ' را حذف کنی .
در ضمن این شرط همنطور که مشخصه برای فیلدهای برابر جواب میده . شما میتونید از > < <> و Like استفاده کنید .
از این به بعد هم اگر خواستیت یه تیکه برنامه بزار خواهشن تو تگ کد بزارید
موفق باشید