moghadam1372
دوشنبه 22 آبان 1391, 14:34 عصر
با سلام خدمت اساتید محترم
من در فرم از کد زیر جستجو می کنم ولی اگر عدد2 ویا مشابه ان را جستجو کنم هرچه عددی که اولش 2باشد و با عوض کردن 'and Left به راست هرچه عددیکه سمت راست ان 2با شد سرچ می کند چطوری می شود که فقط عددی که داخل تکس نوشته می شود سرچ کند اگر یک رقم بود فقط وفقط یک رقم
Dim d1, d2 As String
Dim StrSql As String
d1 = m1.Text
d2 = m2.Text
StrSql = "select * from bd where date between '" & d1 & "' and '" & d2 & "' and Left(cod, " & Len(text1) & ")='" & Trim(text1) & "'"
Adodc1.RecordSource = StrSql
Adodc1.Refresh
من در فرم از کد زیر جستجو می کنم ولی اگر عدد2 ویا مشابه ان را جستجو کنم هرچه عددی که اولش 2باشد و با عوض کردن 'and Left به راست هرچه عددیکه سمت راست ان 2با شد سرچ می کند چطوری می شود که فقط عددی که داخل تکس نوشته می شود سرچ کند اگر یک رقم بود فقط وفقط یک رقم
Dim d1, d2 As String
Dim StrSql As String
d1 = m1.Text
d2 = m2.Text
StrSql = "select * from bd where date between '" & d1 & "' and '" & d2 & "' and Left(cod, " & Len(text1) & ")='" & Trim(text1) & "'"
Adodc1.RecordSource = StrSql
Adodc1.Refresh