DataReport

[o_palvayeh]

سلام به همگی
من در vb6 یک برنامه نوشتم که جستجو می کنه
حالا می خواهم اگه پیدا شد در جستجو بتونم اون رکورد را توی datareport نمایش دهم
مشکل اینجاست که وقتی datar.show می نویسم کل رکورد ها رو نمایش می ده
این مشکل را چگونه حل کنم که فقط اون رکورد که پیدا شده ریپورت بده ؟؟؟
ممنون

[akbarg64]

سلام.توی دکمه فرمی که جستجوی میکنی بزن
Set DataReport1.DataSource = Adodc1
DataReport1.Show 1
موفق باشید.

[o_palvayeh]

سلام.توی دکمه فرمی که جستجوی میکنی بزن
Set DataReport1.DataSource = Adodc1
DataReport1.Show 1
موفق باشید.
کد من اینه
طوری که گفتید نشد
لطفا یه نگاه بندازید
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Form_Load()
Dim strSQL As String
con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\sakhteman.mdb"
strSQL = "SELECT * FROM table11"
cn.Open con
rst.Open strSQL, cn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub
cmd_click()
var = InputBox("INPUT Meli ID or sabt ID :")
Do While (rst.EOF = False)
If var = rst.Fields("idcode") Then
DataReport1.Show
GoTo e:
End If
rst.MoveNext
Loop
exit sub

[o_palvayeh]

کسی نیست کمک کنه !!!

[akbarg64]

خوب به جای adodc1 باید rst بزنی دیگه.

[shedayat]

سلام. اون کدی که دوستمون گفتنakbarg64 جایی کاربرد داره که شما adodc.recordset رو مقدار دهی کنید. تنها راهش هم همینه. یعنی شما برای مثال بالا که آی دی رو سرچ می کنه باید این کد رو بنویسی: adodc1.recorset="Select * from table11 where idcode=" var (InputBox("INPUT Meli ID or sabt ID :"))
adodc1.refresh

کار این کد این است که بلافاصله عدد داده شده رو توی فیلد مورد نظر پیدا می کنه و احتیاجی به گذاشتن حلقه نیست. بعد از اینکه از این کد استفاده کردی می تونی بدون هیچ مشکلی از کد آقای akbarg64 استفاده کنی.
موفق باشی.