Assalamualaikum ww
Dear Milis,
Saya baru dalam hal koneksi ke sql, ada yang bisa bantu kodingan untuk simpan
picture ke sql ? Koding apa yg harus di insert di kodingan saya (terlampir di
bawah). Ketika run muncul error : run time error'91' object variable or with
block variable not set.
Debug pada-----> SQLStr = "update cobalagi set gambar=" & pic & " where
nomorrecord = '14'"
Saya pakai Excell 2007 dan sql 2005
Atas bantuannya sebelumnya saya ucapkan terimakasih
BR
wahyu
Sub Button6_Click()
Dim pic As Picture
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Dim s As String
Dim rng As Range
Set ws = ActiveSheet
Set rng = ws.Range("H6:H6")
Set rs = New ADODB.Recordset
Server_Name = "wahyu"
Database_Name = "okedesql"
User_ID = "sa"
Password = "otadmin"
'TabelName = "location"
Set ws = ActiveSheet
Set rng = ws.Range("H6:H6")
For Each pic In ActiveSheet.Pictures
With pic
s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
End With
If Not Intersect(rng, ws.Range(s)) Is Nothing Then
pic.Copy
GoTo jump
End If
Exit Sub
jump:
Next
'TEST STORE IMAGE TO cell I6
Range("I6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'==================
'test store to sql
SQLStr = "update cobalagi set gambar=" & pic & " where nomorrecord = '14'"
Set Cn = New ADODB.Connection
Cn.Open "provider=sqloledb;Server=" & Server_Name & ";Database=" &
Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
Cn.Execute SQLStr
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
