AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Acsess Sorgusu İle Listview'e Veri Alma

1 2 3 4
11/04/2020, 15:16

kanakan52

feraz hocam rica etsem, form üzerindeki Değitir Butonu için aşağıda yazdığım kodlarda eksik ne var kontrol edebilir misini ?


Kod:
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"

SqlG = "UPDATE SiparisKayitlari SET Stok_Kodu='" & ComboBox4.Text & "',Stok_Adi='" & TextBox7.Text & "',Miktar='" & TextBox8.Text & "',Fiyat='" & TextBox9.Text & "',İskonto1='" & TextBox46.Text & _
                "',İskonto2='" & TextBox47.Text & "',İskonto3='" & TextBox48.Text & "',Serbest_1='" & TextBox24.Text & "',Serbest_2='" & TextBox25.Text & "',Serbest_3='" & TextBox26.Text & _
                "',Serbest_4='" & TextBox27.Text & "',BrütTutar='" & TextBox10.Text & "' WHERE Kimlik=" & sno
               

baglan.Execute SqlG
Set baglan = Nothing
11/04/2020, 16:31

feraz

Baktım tam anlaşılmıyor.
WHERE Kimlik=" & sno burdaki sno yerine textbox hangisise o gelmeli gibi.
Birde accessteki alan
metin ise İskonto3='" & TextBox48.Text & "'
sayısal ise İskonto3=" & TextBox48.Text & "
gibi değiştirin ilgili yerleri.
Yukardakiler sadece örnekti
1 2 3 4