2
我不知道如何通過excel vba從數據庫檢索或提取pdf文件嗎? (在c#中有很多幫助,asp ......)如何使用vba從excel中檢索數據庫中的pdf文件(varbinary max)
存儲在SQL Server Databse的varbinary max type字段中的文件。
我可以連接或通過VBA後從該記錄訪問記錄如何提取它
我不知道如何通過excel vba從數據庫檢索或提取pdf文件嗎? (在c#中有很多幫助,asp ......)如何使用vba從excel中檢索數據庫中的pdf文件(varbinary max)
存儲在SQL Server Databse的varbinary max type字段中的文件。
我可以連接或通過VBA後從該記錄訪問記錄如何提取它
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim oStream As ADODB.Stream
Set cn = New ADODB.Connection
'Here I use default admin user 'sa' and password is blank
cn.Open "Provider = sqloledb;" & _
"Data Source=ServerNameOrIP;" & _
"Initial Catalog=DBName;" & _
"User ID=sa;" & _
"Password=;"""
'your sql statment including varbinary max field here it is FILEDATA
sql = " select EMAILID,EMAILFROM,EMAILTO,EMAILSUBJECT,FILEDATA from Tbl "
Set rs = New ADODB.Recordset
rs.Open sql, cn
Do Until rs.EOF
Set oStream = New ADODB.Stream
With oStream
.Type = adTypeBinary
.Open
.Write rs.Fields(4).Value
'Here I use 1st field value as file name i.e. rs.fiedls(0).value
'In addition you can join drive and/or folder path to save another location
.SaveToFile rs.Fields(0).Value & ".pdf", adSaveCreateOverWrite
.Close
End With
Set oStream = Nothing
rs.MoveNext
Loop
rs.Close
cn.Close