Skip to main content

AccessTr.neT


Access Update Komutu Hakkında

Access Update Komutu Hakkında

#7
4. mesajınızdaki kodlara bakarak söyleyeyim metinsel değerler için tek tırnak eklememişsiniz gibi geldi, doğrudan sorgu koduna eklemeyi denediniz mi ayrıca başta set rs= olmayacak bence
Birkaçı için düzenleme çalıştım

Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"

baglan.Execute("UPDATE carikart SET CARIADI='" & cari & "',HESAPGURUBU=" & hesgrp & ",ADRES='" & adres & "',IL=" & il & ",ILCE=" & ilce & ",TELEFON=" & tlfn & ",FAKS=" & fks & ",VERGIDAIRESI=" & vdaire & ",VERGINO=" & vno & ",TCNO=" & TcNo & ",YETKILI" & yetkili & ",MAIL=" & mail & " WHERE ID=" & sno)
Set baglan = Nothing
Cevapla
#8
Hocam bu kadar hızlı dönüş yapacağınızı düşünemedim, Allah razı olsun..

Öncelikle şunu söylim hiç acsess tecrübem yok, forumlardan örnekleri araştırıp kendi çalışmama uyarlamayı böylece acsess konusunda da bilgi sahibi olmayı hedefliyorum.

Kod konusuna gelince, aşağıdaki hatayı aldım..
Son Düzenleme: 24/02/2020, 12:01, Düzenleyen: kanakan52. (Sebep: hatalı)
Cevapla
#9
Sanırım burada resim ekleyemiyoruz.

baglan.Execute ile başlayan satırda eksik işleç hatası verdi.
Cevapla
#10
Yorum yaz kısmından girince aşağıda resim ekleme butonu var
Cevapla
#11
[Resim: do.php?img=9729]

Hata ekranım bu hocam..
Cevapla
#12
ofisi yeniden yükledim ama yine çalışmadı maalesef o nedenle düzenlemem sadece teorik, kodun ilgili kısmını aşağıdaki gibi dener misiniz?
dilerim çalışır
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"

baglan.Execute ("UPDATE carikart SET CARIADI='" & cari & "',HESAPGRUBU='" & hesgrp & "',ADRES='" & adres & _
                "',IL='" & il & "',ILCE='" & ilce & "',TELEFON=" & tlfn & ",FAKS='" & fks & "',VERGIDAIRESI='" & vdaire & _
                "',VERGINO=" & vno & ",TCNO=" & TcNo & ",YETKILI='" & yetkili & "',MAIL='" & mail & "' WHERE ID=" & sno)
Set baglan = Nothing
Not: accesstek tabloda neredeyse tüm alanları uzun metin olarak ayarlamışsınız, faks isim yada ne bileyim telefon no gibi alanlar 255 karakter uzunluğunu aşmazlar o nedenle kısa metin olmalıydı, ayrıca TCNo 11 hanelidir yanı uzun tamsayıda bile hata verir o alanı da kısa metin olarak ayarlayabilirsiniz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task