Dim veritabaniismi, veritabanikullanici, veritabanisifre, strBaglanti, anaveritabani As String
Dim baglanti As ADODB.Connection
Dim baglantirst As ADODB.Recordset
Dim VtAdi As String
Dim VtKulAdi As String
Dim VtSifre, resim As String
Dim evnStr As Object
bağlantı işlemleri yapılıyor bu kısımda
strBaglanti = strBaglanti & "DATA SOURCE=" & veritabaniismi & ";INITIAL CATALOG=" & anaveritabani & "; Auto Translate=False;"
strBaglanti = strBaglanti & "UID=" & veritabanikullanici & ";PWD=" & veritabanisifre
baglanti.ConnectionString = strBaglanti
baglanti.Open
Set baglantirst.ActiveConnection = baglanti
baglantirst.Open "SELECT * FROM table_personel_sozlesme WHERE (AD like '" & Range("D5") & "' AND SOYAD like '" & Range("D7") & "') OR SICIL like '" & Range("D8") & "' OR SICIL like '" & Range("D10") & "' ", baglanti, 1, 3
Dim bosmu As Boolean
bosmu = True
TEMİZLE
While Not baglantirst.EOF
Range("D8") = baglantirst.Fields(1)
Range("D5") = baglantirst.Fields(2)
Range("D7") = baglantirst.Fields(3)
Range("D10") = baglantirst.Fields(4)
Range("D12") = baglantirst.Fields(5)
Range("D14") = baglantirst.Fields(6)
Range("D16") = baglantirst.Fields(7)
Range("C26") = baglantirst.Fields(8)
Range("C27") = baglantirst.Fields(8)
Range("C28") = baglantirst.Fields(10)
Range("C29") = baglantirst.Fields(11)
Range("C30") = baglantirst.Fields(12)
Range("C31") = baglantirst.Fields(13)
Range("C32") = baglantirst.Fields(14)
Range("C33") = baglantirst.Fields(15)
Range("C34") = baglantirst.Fields(16)
Range("C35") = baglantirst.Fields(17)
Range("H26") = baglantirst.Fields(18)
Range("H27") = baglantirst.Fields(19)
Range("H28") = baglantirst.Fields(20)
Range("H29") = baglantirst.Fields(21)
Range("H30") = baglantirst.Fields(22)
Range("H31") = baglantirst.Fields(23)
Range("H32") = baglantirst.Fields(24)
Range("H33") = baglantirst.Fields(25)
Range("H34") = baglantirst.Fields(26)
Range("H35") = baglantirst.Fields(27)
Range("C41") = baglantirst.Fields(28)
Range("C37") = baglantirst.Fields(28)
Range("H37") = baglantirst.Fields(29)
Range("C42") = baglantirst.Fields(29)
Range("D18") = baglantirst.Fields(30)
Range("C43") = baglantirst.Fields(31)
Range("D43") = baglantirst.Fields(32)
If baglantirst.RecordCount = 0 Then
MsgBox "Resim bulunamadı.", vbInformation, "hata"
Exit Sub
Else
Set evnStr = CreateObject("ADODB.Stream")
resim = "C:\foto\personel.jpg"
ff = FreeFile
evnStr.Type = 1
evnStr.Open
evnStr.Write baglantirst.Fields("FOTO").Value
evnStr.SaveToFile "resim"
Open resim For Output As ff
Personel.Image1.Picture = LoadPicture(resim)
Close ff
Kill "resim"
Set evnStr = Nothing: Set baglantirst = Nothing: Set baglanti = Nothing
End If
bosmu = False
baglantirst.MoveNext
Wend
If (bosmu = True) Then
MsgBox ("Personel Kaydı Bulunamadı.")
Exit Sub
End If
baglantirst.Close
End Sub
dosyaya yazma başarısız oldu 3004 hatası alıyorum
resmi sqlden alıp bir klasöre atıyorbelirttiğim pathte ve klasörden image içine o resmi getiremedim
yardımcı olurmusunuz lütfen
kodlarım yukarıdaki gibidir.