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ı."

 

[pitchoute]

Konunun cevapsız kalmaması adına;

Sub ResimYukle()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim SqlText As String
    Dim kalemsat As Long
    
    ' Veritabanı bağlantısını oluştur
    Set conn = New ADODB.Connection
    conn.Open "Your_Connection_String_Here"
    
    kalemsat = 2 ' Başlangıç satırı
    
    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'" & Replace(Sayfa19.Cells(kalemsat, 10).Value, "'", "''") & "'), " ' KOD
        SqlText = SqlText & "0, " ' EVRAK TİPİ
        SqlText = SqlText & "DBO.TR2UNC(N'" & Replace(Sayfa19.Cells(kalemsat, 10).Value, "'", "''") & "'), " ' AÇIKLAMA
        SqlText = SqlText & "'01.01.2024', " ' KAYITTARIHI
        SqlText = SqlText & "1, " ' KULID
        SqlText = SqlText & "DBO.TR2UNC(N'" & Replace(Sayfa19.Cells(kalemsat, 11).Value, "'", "''") & "'), " ' DOSYA ADI
        SqlText = SqlText & "200, " ' BILGI BOYUT
        SqlText = SqlText & "BulkColumn FROM OPENROWSET(BULK N'" & Replace(Sayfa19.Cells(kalemsat, 12).Value, "'", "''") & "', SINGLE_BLOB) AS x"
        
        ' SQL sorgusunu çalıştır
        conn.Execute SqlText
        
        kalemsat = kalemsat + 1
    Loop
    
    conn.Close
    Set conn = Nothing
    
    MsgBox "Kayıt İşlemi Tamamlandı."
End Sub