آژانس هواپیماییexchanging
dakhlestan

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

شروع موضوع توسط صنم ‏23 ژوئن 2007 در انجمن Access

  1. صنم

    صنم کاربر تازه وارد

    تاریخ عضویت:
    ‏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
    
    بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
    کسی می تونه کمکم کنه ؟
     
  2. mazoolagh

    mazoolagh Registered User

    تاریخ عضویت:
    ‏10 آپریل 2004
    نوشته ها:
    2,940
    تشکر شده:
    7
    صفحه asp است؟
     
  3. najafzadeh

    najafzadeh کاربر فعال پایگاه داده ها کاربر فعال

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