+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excelden Veri Alma Ve Kaydı Güncelleme (/konu-excelden-veri-alma-ve-kaydi-guncelleme.html)
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - berduş - 03/02/2020
sorgularda kullandığınız tek tırnak ' yerine 2 çift Tırnak ("") kullanmayı dener misiniz?
CurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = """ & rs(0) & """," & _
"[ad] = """ & rs(1) & """," & _
"[yas] = """ & rs(2) & """," & _
"[Tarih] = """ & rs(1) & """" & _
"WHERE [kod] = """ & rs(0) & """"CurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( """ & rs(0) & """ , """ & rs(1) & """ , " & rs(2) & ", """ & Format(rs(3), "dd.mm.yyyy") & """ );" 'Kayit ekle exceldekinde olup accesste mevcut olmayan veri
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 03/02/2020
Berduş hocamıza teşekkürler bu çift tırnaklar için
Alttaki gibi değişecek kodlar.
Berduş hocamız sayı alanında eksik yapmış hata verdi böyle hatasız.
Normalde sayıi çin kalıplar '" & xxx & "' metin için " & xxx & " oluyor bende bişey öğrenmiş oldum.
If DCount("[kod]", "Tablo1", "[kod] = """ & rs(0) & """") > 0 Then
ElseIf DCount("[kod]", "Tablo1", "[kod] = """ & rs(0) & """") = 0 Then
CurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = """ & rs(0) & """," & _
"[ad] = """ & rs(1) & """," & _
"[yas] = '" & rs(2) & "'," & _
"[Tarih] = """ & rs(1) & """" & _
"WHERE [kod] = """ & rs(0) & """"
CurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( """ & rs(0) & """ , """ & rs(1) & """ , '" & rs(2) & "', """ & Format(rs(3), "dd.mm.yyyy") & """ );"Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - yahyamacit - 03/02/2020
Teşekkür ederim Üstadlar. Sağolun.
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - berduş - 03/02/2020
ama bence içinde ' bulunabilecek alanları replace fonksiyonu ile düzeltebilirsiniz.
CurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = '" & rs(0) & "'," & _
"[ad] = '" & Replace(rs(1), "'", "''") & "'," & _
"[yas] = '" & rs(2) & "'," & _
"[Tarih] = '" & rs(1) & "'" & _
"WHERE [kod] = '" & rs(0) & "'"CurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( '" & rs(0) & "' , '" & Replace(rs(1), "'", "''") & "' , " & rs(2) & ", '" & Format(rs(3), "dd.mm.yyyy") & "' );" 'Kayit ekle exceldekinde olup accesste mevcut olmayan veri
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 03/02/2020
(03/02/2020, 22:55)berduş yazdı: ama bence içinde ' bulunabilecek alanları replace fonksiyonu ile düzeltebilirsiniz.
veCurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = '" & rs(0) & "'," & _
"[ad] = '" & Replace(rs(1), "'", "''") & "'," & _
"[yas] = '" & rs(2) & "'," & _
"[Tarih] = '" & rs(1) & "'" & _
"WHERE [kod] = '" & rs(0) & "'"
gibiCurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( '" & rs(0) & "' , '" & Replace(rs(1), "'", "''") & "' , " & rs(2) & ", '" & Format(rs(3), "dd.mm.yyyy") & "' );" 'Kayit ekle exceldekinde olup accesste mevcut olmayan veri
Dcount lardada olacak abey.Bundan sonra en garantisi başa ''' sonada ''' eklemek metin için
Kodları edit ve addnew olarak nasıl yapacaktık birde onu ekleseniz.
Belki daha hızlı olur.
Bende yaparım lakin siz daha tecrübelisiniz.
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - berduş - 03/02/2020
son mesajdaki gibi replace fonksiyonuyla tek tırnağı, çift tektırnak yapınca ifadede ' ta olsa "" da olsa sorun çıkmıyor ama 44. mesajdaki gibi yapınca bu sefer de ifade de çift tırnak olunca hata veriyor