sevensuleyman
Altın Üye
- Katılım
- 9 Kasım 2012
- Mesajlar
- 202
- Excel Vers. ve Dili
- office 2010
aşağıdaki kodu kullanmaya çalıştığımda hata dünüyor.. nerede hata yapıyorum acaba yardımcı olurmusunz.
SqlText = "INSERT INTO TBLCARIEMAIL(AKTIF,DIZAYNBILGILERI,CRMDEN,ISLEMTIPI,CARI_KOD,YETKILIKISI,UNVAN,EMAIL,OZELEMAIL,CCMAIL)VALUES ('1','<EPOSTADIZAYNBILGILERI/>','H','A;C;D;E;F;G;H;I;J;K;L;M;N;O;',REPLACE('" & Sayfa3.Cells(i, 1).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa4.Cells(i, 4).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 5).Value & "',',','.')"
rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
SqlText = "INSERT INTO TBLCARIEMAIL(AKTIF,DIZAYNBILGILERI,CRMDEN,ISLEMTIPI,CARI_KOD,YETKILIKISI,UNVAN,EMAIL,OZELEMAIL,CCMAIL)VALUES ('1','<EPOSTADIZAYNBILGILERI/>','H','A;C;D;E;F;G;H;I;J;K;L;M;N;O;',REPLACE('" & Sayfa3.Cells(i, 1).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 3).Value & "',',','.'),REPLACE('" & Sayfa4.Cells(i, 4).Value & "',',','.'),REPLACE('" & Sayfa3.Cells(i, 5).Value & "',',','.')"
rs.Open SqlText, conn, adOpenStatic, adLockReadOnly