دستور find بادو متغییر

[حسین علوی]

سلام به همه عزیزانیک بانک دارم که شامل فیلدهای (شماره اشتراک ماشین) و(تاریخ بارگیری) و..... میباشدحال بادستور find آیا می توان ماشینی را جستجو کرد که مثلا اشتراک آن A7000 و تاریخ بارگیری آن بزرگترین(اخرین تاریخ) باشد؟(برنامه مربوط به یک پایانه بار است)لطفا کمک کنید --نیاز فوری تشکر

[اوبالیت به بو]

راجب بزرگترین تاریخ باید بگم که بلد نیستم به دستش بیارم ولی تا اونجایی که تونستم تویه کد زیر کمکتون کردم:

Adodc1.Recordset.Find ("NumberShareCar='" + NumberShareCarText.Text + "'")
If Not Adodc1.Recordset.EOF = True Then
If HandlingDateText.Text = Adodc1.Recordset.Fields("HandlingDate") Then
MsgBox "جستجو با موفقیت انجام شد.",VBInformation,"صحیح"
Else
i = MsgBox("جستجو با موفقیت انجام نپذیرفت", vbOKOnly, "متاءسفم")
End If
Else
MsgBox "جستجو با موفقیت انجام نپذیرفت"
Adodc1.Recordset.MoveFirst
NumberSharingCarText.Text = Empty
HandlingDateText.Text = Empty
End If

راهنما:
NumberSharingCar: نام فیلد شماره اشتراک ماشین تو بانک اطلاعاتی هستش.
HandlingDate: نام فیلد تاریخ بارگیری تو بانک اطلاعاتی هستش.
NumberSharingCarText: جایی هستش که شما شماره اشتراک ماشین رو وارد می کنید.
HandlingDateText: جایی هستش که شما تاریخ بارگیری رو وارد می کنید.

[اوبالیت به بو]

در واقع این همون کد Login کردن هستش که UserName و Password رو وارد می کنی و وارد میشی.
البته تویه کد بالا اول شماره اشتراک ماشین رو جستجو می کنه و بعدش تاریخ بارگیری جستجو می کنه.
امیدوارم به دردت بخوره!

[کاروان پیشه]

ولی کد بالا maxتاریخ را پیدا نمیکند
یکی از دوستان لطفا راهنمایی کنه
تشکر

[sokote_bi_payan]

بسم رب الشهدا

دوست عزیز شما می تونید خیلی راحت یک شی از نوع رکوردست بسازید و با استفاده از اون شی تموم کوئری های خودتون و بنویسی

اگه نتونستی مطلب راجع به این موضوع پیدا کنی و توضیح خواستی میل بزن

یا علی

[vbhamed]

Adodc1.RecordSource = "Select Max(Tarikh) as MaxDate From TableName"
Adodc1.Refresh

Dim x As Date

x = Adodc1.RecordSource!MaxDate

Adodc1.RecordSource = "Select * From From TableName"
Adodc1.Refresh

Adodc1.Recordset.Find "Tarikh = " & x & " And Eshterak = 'A7000'"