Posted by Gord on 08/29/06 13:06

Marcus wrote:
> Is it possible to use DAO 3.6 to access binary data (varbinary(max)) in
> Sql Server 2005? I have images and sound in a Sql 2005 DB that I need
> to retrieve (and write) with DAO

The following works for me...


Public Sub BinaryTest()
Dim wks As DAO.Workspace, con As DAO.Connection, _
rst As DAO.Recordset
Dim foo As Variant, b As Variant

Set wks = CreateWorkspace("wks1", "admin", "", dbUseODBC)
Set con = wks.OpenConnection("Escona", , , _
"ODBC;DSN=MAS_EsconaTutorial;UID=sa;PWD=whatever;")

Set rst = con.OpenRecordset( _
"SELECT TextCol FROM AMGR_Letters_Tbl " & _
"WHERE Record_Id=44", _
dbOpenSnapshot)

foo = rst!TextCol ' array of bytes

rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
wks.Close
Set wks = Nothing

Open "C:\__tmp\ding.wav" For Binary As #1
For Each b In foo
Put #1, , CByte(b)
Next
Close #1

End Sub

• Next in forum: Re: delete sql server registration in tsql
• Prev in forum: Is there a way to transfer ntext data from one table to another? MSSQL2000
• Thread view: Re: Using DAO to access binary data in Sql Server 2005?

[Reply to this message]