MSSQL'e Resim Gömmek

[Ugurqan_]

Merhaba arkadaşlar biraz araştırma yaptım kaynak kodlar buldum ama mssql'de binary(8000) 'Lik bir alan açtım buraya dosyamın içeriğini aktaramıyorum

Visual basic 6.0'da kodladım kodlarım aşağıda fakat adodc1.recordset.update kısmına gelince E_FAIL hatası veriyor bunun sebebini bulamadım.
Eğer elinizde mssql'e herhangibi bir kaynak kod veya küçük bir proje varsa benimle paylaşırsanız çok sevinirim

PHP Kodu:

Dim img() As Byte
Dim i As Long
Dim dosyano As Long
Private Sub Command1_Click()
dosyano = FreeFile
Dim dosya, e, d
cd.ShowOpen
dosya = cd.FileName
pc.Picture = LoadPicture(dosya)
Open dosya For Binary As dosyano
ReDim img(LOF(dosyano))
Do While Not EOF(dosyano)
Get #dosyano, , img
i = i + 1
Loop
Close #dosyano
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("DosyaAdi") = "asdasd.jpg"
Adodc1.Recordset.Fields("Dosya") = img
Adodc1.Recordset.Update
End Sub
Private Sub Form_Load()
Dim str
DB_SUNUCU_ADI = "ORHUN\SQLEXPRESS"
DB_SUNUCU_KADI = "sa"
DB_SUNUCU_SIFRE = "12"
DB_SUNUCU_VT = "mbcw_emlak"
str = "Provider=SQLOLEDB;Server=" & DB_SUNUCU_ADI & ";Uid=" & DB_SUNUCU_KADI & ";pwd=" & DB_SUNUCU_SIFRE & ";Database=" & DB_SUNUCU_VT & ";"
db.ConnectionString = str
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from [Test]"
Adodc1.Refresh
End Sub 


[Ugurqan_]

msn : turkfox13@hotmail.com