by adrian_the_great (3 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 24th July 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
update blob using a made up database
API Declarations
'can some one show me how to import instead of update
'email address == [email protected]
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Private Sub cmdImport_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dat;Data Source=TELTEX;"
Set rs = New ADODB.Recordset
rs.Open "Select * from Doc", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "C:\Temp\test.doc"
rs.Fields("DOCUMENT").Value = mstream.Read
rs.Fields("Name").Value = txtName.Text
rs.Fields("ID").Value = txtId.Text
rs.Fields("DOC_TYPE") = txtDocType.Text
rs.Update
rs.Close
cn.Close
End Sub
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dat;Data Source=TELTEX
Private Sub cmdSave_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dat;Data Source=TELTEX;"
Set rs = New ADODB.Recordset
rs.Open "Select * from Doc", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("DOCUMENT").Value
mstream.SaveToFile "C:\Temp\test.doc", adSaveCreateOverWrite
rs.Close
cn.Close
End Sub