Rs yi değiskenden almak

[Bilgemen]

Merhaba Arkadaşlar.
Aşağıdaki kodla excelden acsess veri tabanındaki tabloyu güncelliyorum

güncellenecek sütun aşağıdaki kod ile sabit değilde
rs.Update("10") = sepetno.Caption '

aşağıdaki kod ile değişken atayarak sepet id de yazan sütunu göncellemek için nasıl bir değişiklik yapmalıyım
masaid = sepetid
rs.Update(masaid) = sepetno.Caption '

Private Sub CommandButton1_Click()

sırabaglan = 1

masaid = sepetid

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

Call baglanti

    rs.Open "select * from AktifMasa where AktifMasa.Kimlik like '" & sırabaglan & "'", baglan, 1, 2

On Error Resume Next

If rs.RecordCount > 0 Then

rs.Update(masaid) = sepetno.Caption  '
    


    rs.Update
    rs.Close ' seti sonlandırır
baglan.Close ' bağlantıyı sonlandır
    Set baglan = Nothing ' Hafızayı Boşaltır
    Set rs = Nothing
    End If
End Sub

 

[Korhan Ayhan]

Şöyle deneyiniz.

rs.Update(CStr(masaid)) = sepetno.Caption

 

[Bilgemen]

Merhaba Arkadaşlar.
Aşağıdaki kodla excelden acsess veri tabanındaki tabloyu güncelliyorum

güncellenecek sütun aşağıdaki kod ile sabit değilde
rs.Update("10") = sepetno.Caption '

aşağıdaki kod ile değişken atayarak sepet id de yazan sütunu göncellemek için nasıl bir değişiklik yapmalıyım
masaid = sepetid
rs.Update(masaid) = sepetno.Caption '

Private Sub CommandButton1_Click()

sırabaglan = 1

masaid = sepetid

Set baglan = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

Call baglanti

    rs.Open "select * from AktifMasa where AktifMasa.Kimlik like '" & sırabaglan & "'", baglan, 1, 2

On Error Resume Next

If rs.RecordCount > 0 Then

rs.Update(masaid) = sepetno.Caption  '
   


    rs.Update
    rs.Close ' seti sonlandırır
baglan.Close ' bağlantıyı sonlandır
    Set baglan = Nothing ' Hafızayı Boşaltır
    Set rs = Nothing
    End If
End Sub

Teşekkürler kardeşim. Biraz geç oldu kusura bakma. Eline sağlık çalışıyor