برگزیده های پرشین تولز

تغییر رکورد فعال با برنامه نویسی در access

صنم

کاربر تازه وارد
تاریخ عضویت
27 فوریه 2005
نوشته‌ها
125
لایک‌ها
0
سلام
من یک رکورد را با کد زیر از table استخراج می کنم :
کد:
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\hazineh-bime.mdb" & ";Persist Security Info=False"
    cmd.CommandText = "select * from table1 where salp=" & Val(Trim(Form_mainhazineh.sal.Value)) & " and mahp=" & (Trim(Form_mainhazineh.mah.Value)) & " "
    Set cmd.ActiveConnection = con
    rst.Open cmd, , 1, adLockReadOnly
    If rst.RecordCount = 1 Then
     ' found the record
   else
   end if

بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
کسی می تونه کمکم کنه ؟
 

mazoolagh

Registered User
تاریخ عضویت
10 آپریل 2004
نوشته‌ها
2,938
لایک‌ها
7
صفحه asp است؟
 

najafzadeh

کاربر فعال پایگاه داده ها
کاربر فعال
تاریخ عضویت
21 سپتامبر 2005
نوشته‌ها
522
لایک‌ها
28
محل سکونت
قزقلعه
بالا