• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• update blob using a made up database

update blob using a made up database

update blob using a made up database

API Declarations


'can some one show me how to import instead of update
'email address == [email protected]



Rate update blob using a made up database

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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