Jeg har et VB app. der generer et XML fil, en af elementerne i XML filen skal indhold nogle data som er på en access file
jeg har kunnet læse mig frem til at man kan "indskyde" et SQL forspørgesel ind til at læse data fra access filen og indsæt dem i udvalgt steder i output XML'en
På forhånd tak for hjælp
se nedenestående example
'liste alle filer i den valge folder
For i = 0 To filBulkUpload.ListCount - 1
If filBulkUpload.Selected(i) = True Then
actFile = actFile & vbCrLf & filBulkUpload.list(i) ' FileName
End If
Next i
MsgBox "Files selected: " & vbCrLf & actFile & vbCrLf & _
"in " & dirBulkUpload.Path & vbCrLf & _
"Folder: " & actFolder & vbCrLf & _
"New folder: " & newfolder
'Opret en mappe i E:\Import\ og navngive den "ImportMappeyyymmdd_ttmmss"
'svarer til "C:\docu2ll" på Doc_SERV
fs.createfolder ("E:\Import\ImportMappe\ImportMappe" & fileid)
For i = 0 To filBulkUpload.ListCount - 1
If filBulkUpload.Selected(i) = True Then
actFile = filBulkUpload.list(i) ' FileName
fs.copyfile dirBulkUpload.Path & "\" & actFile, "E:\Import\ImportMappe\ImportMappe" & fileid & "\"
If Mid(actFile, Len(actFile) - 3, 1) = "." Then
actDocUid = Left(actFile, Len(actFile) - 4)
Else
actDocUid = actFile
End If
Print #2, "<NODE TYPE='DOCUMENT' FUNC='CREATE'>"
Print #2, "<SYSTEM.ATTRIBUTES>"
Print #2, "<ATTRIBUTE><INT.NAME>LOCATION</INT.NAME><VALUE>" & actFolder & ":" & actDocUid & "</VALUE></ATTRIBUTE>"
Print #2, "<ATTRIBUTE><INT.NAME>NAME</INT.NAME><VALUE>" & actDocUid & "</VALUE></ATTRIBUTE>"
Print #2, "</SYSTEM.ATTRIBUTES>"
Print #2, "<CATEGORY><INT.NAME>Livelink Categories:STDPROD</INT.NAME>"
Print #2, "<ATTRIBUTE><INT.NAME>ProjektNr</INT.NAME><VALUE>" & actDocUid & "</VALUE></ATTRIBUTE>"
data her => Print #2, "<ATTRIBUTE><INT.NAME>Statuskode</INT.NAME><VALUE>Her indsættes statuskoden</VALUE></ATTRIBUTE>"
data her => Print #2, "<ATTRIBUTE><INT.NAME>Dansk_Korttiltel</INT.NAME><VALUE>Her indsættes Dansk_Korttiltel</VALUE></ATTRIBUTE>"
Print #2, "</CATEGORY>"
Print #2, "<CONTENT>"
Print #2, "<FILE PROVIDER='EXTSHARED'>" & "E:\Import\ImportMappe\ImportMappe" & fileid & "\" & actFile & "</FILE>"
Print #2, "</CONTENT>"
Print #2, "</NODE>"
|