sql vb uyarlama

[sevensuleyman]

merhaba ; aşağıda normal excell formüi kullanarak resim yükleme kodu oluşturup sql üzerinde kodu çalıştıroyordum. bunu tamemen excelle dökmek istedim uyarlamaya çalıştım fakar biryerlerde hata yapıyprum galiba hataya düşüyor. üstadlardan yardım bekliyorum şimdiden teşekkürler

=BİRLEŞTİR("SET DATEFORMAT DMY INSERT INTO TBLEVRAK (TABLOTIPI,KOD,EVRAKTIPI,ACIKLAMA,KAYITTAR,KULID,DOSYAADI,BILGIBOYUT,BILGI) SELECT '1','";B2;"','0','";B2;"','06.12.2023','1','";J2;"','200',image_data from OPENROWSET (BULK N'";L2;"',SINGLE_BLOB) AS ImageSource (image_data)")





kalemsat = 2



'If b(0) = 0 Then
Do While Sayfa19.Cells(kalemsat, 10).Value <> ""

SqlText = "SET DATEFORMAT DMY INSERT INTO TBLEVRAK (TABLOTIPI,KOD,EVRAKTIPI,ACIKLAMA,KAYITTAR,KULID,DOSYAADI,BILGIBOYUT,BILGI) SELECT "

SqlText = SqlText + " '1' " 'TABLO TİPİ
SqlText = SqlText + " ,DBO.TR2UNC(N'" & Sayfa19.Cells(kalemsat, 10).Value & "')" 'KOD
SqlText = SqlText + " ,'0' " 'EVRAK TİPİ
SqlText = SqlText + " ,DBO.TR2UNC(N'" & Sayfa19.Cells(kalemsat, 10).Value & "')" 'AÇIKLAMA
SqlText = SqlText + " ,'01.01.2024'" 'KAYITTARIHI
SqlText = SqlText + " ,'1' " 'KULID
SqlText = SqlText + " ,DBO.TR2UNC(N'" & Sayfa19.Cells(kalemsat, 11).Value & "')" 'DOSYA ADI
SqlText = SqlText + " ,'200' " 'BILGI BOYUT
SqlText = SqlText + " ,image_data from OPENROWSET " 'BILGI
SqlText = SqlText + "(BULK "
SqlText = SqlText + "(N'" & Sayfa19.Cells(kalemsat, 11).Value & "')"
SqlText = SqlText + ",'SINGLE_BLOB)"
SqlText = SqlText + "AS ImageSource (image_data)" '"
rs.Open SqlText, conn, adOpenStatic, adLockReadOnly

















'End If


b.Close
kalemsat = kalemsat + 1
Loop


MsgBox "Kayıt İşlemi Tamamlandı."