Jag har denna kod för att från Access2k/VB6 ladda upp en fil till en webservice.
<code>
Private Sub LaddaFilTillSQLservern()
On Error GoTo fel:
'funktion för att ladda in en fil från disk till SQL-server.
Dim ret As String
Dim iFileNum As Integer
Dim lFileLength As Long
Dim abBytes() As Byte
Dim iCtr As Integer
Dim oSoapClient As MSSOAPLib30.SoapClient30
Set oSoapClient = New MSSOAPLib30.SoapClient30

Call oSoapClient.MSSoapInit("http://www.test.com/test.asmx?wsdl")

iFileNum = FreeFile
Open "C:\testfil.xls" For Binary Access Read As #iFileNum For Binary Access Read As #iFileNum

lFileLength = LOF(iFileNum)
ReDim abBytes(lFileLength)
Get #iFileNum, , abBytes()
ret = oSoapClient.AttachFileToWO("user", "pwd", 123456, "testfil.xls", abBytes())
label1 = ret
Close iFileNum

ut:
Exit Sub
fel:
Resume ut:
End Sub
</code>

Webservicen skapar då en post i en SQL2k-server.

Tabellen har denna layout:

ATT_ID(int)
ATT_WO_NO(int)
ATT_NAME(varchar 50)
ATT_TYPE(varchar 10)
ATT_SIZE(real)
ATT_BASE64(image)

Exemplet i koden ovan ger följande post i tabellen

ATT_ID(23000) Räknare
ATT_WO_NO(123456)
ATT_NAME(testfil.xls)
ATT_TYPE(xls)
ATT_SIZE(4000) , filstorlek i bytes
ATT_BASE64(image) fildatat

Mitt problem är nu hur jag i Access2k/VB6 gör för att 'återskapa' en fil.
Jag behöver också kunna anropa en liknande webservice där jag överför datat från SQL-servern.
Dvs får ut SQL-fil-datat i en variabel som jag sedan kan skicka till en webservce.

Tacksam för ideér.

/ Mikael