Bilgemen
Altın Üye
- Katılım
- 7 Şubat 2021
- Mesajlar
- 58
- Excel Vers. ve Dili
- 2021
- Altın Üyelik Bitiş Tarihi
- 03-01-2026
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 '
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 '
C#:
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