Jim Lawrence
accessd at shaw.ca
Wed Jun 22 18:33:05 CDT 2005
Hi Marty:
There are some awesome concepts that can be used. I will have to get a demo
up and running... I think I have a version hidden down in a pile of M$
CDs... Now to find the room on one of the servers.
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: Wednesday, June 22, 2005 12:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: Sharepoint Security (SOLVED)
I have found you can store ,update and read access tables on a
sharepoint server
unfortunately my time ran out on the MS test site a few months back.
Wouldn't mind finding another free test one
In Access 2003 you can use soap via web class, direct xmlhttp or
transferdatabase
to transfer tables or even documents xls or .doc
Sub WWSupload()
On Error GoTo errout
DoCmd.TransferDatabase transfertype:=acExport, databasetype:="WSS", _
databasename:="http://mconnelly.sharepointsite.com", _
objecttype:=acTable, Source:="Household Inventory", _
Destination:="Household Inventory A",
structureonly:=False
errout:
Debug.Print Err.Number & "-" & Err.Description
'http://mconnelly.sharepointsite.com/_vti_bin/Lists.asmx
End Sub
Sub WWSuploadPics()
On Error GoTo errout
DoCmd.TransferDatabase transfertype:=acExport, databasetype:="WSS", _
databasename:="http://mconnelly.sharepointsite.com", _
objecttype:=acTable, Source:="Employees", _
Destination:="Employees", structureonly:=False
errout:
Debug.Print Err.Number & "-" & Err.Description
End Sub
Sub Click()
On Error GoTo Err_Command8_Click
' To see methods of call
'http://www.xmethods.com/detail.html?id=8
'http://www.xmltoday.com/examples/soap/translate.psp
Dim URL As String
Dim http As New MSXML2.XMLHTTP
Dim objResult As New MSXML2.DOMDocument
Dim objStyle As New MSXML2.DOMDocument
Dim strEnvelopeBegin As String
Dim strEnvelopeEnd As String
Dim xmlReq As String
Dim s As String
Dim strReturned As String
Dim strQuery As String
s = "<?xml version=""1.0""?>" & vbCrLf
URL = "http://mconnelly.sharepointsite.com/_vti_bin/Lists.asmx"
strEnvelopeBegin = "<soap:Envelope " & vbCrLf & _
" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""" & vbCrLf & _
" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" & vbCrLf & _
" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> " & vbCrLf & _
" <soap:Body> <GetListCollection
xmlns=""http://schemas.microsoft.com/sharepoint/soap/"" />"
strEnvelopeEnd = vbCrLf & " </soap:Body> </soap:Envelope>"
xmlReq = s & strEnvelopeBegin & strEnvelopeEnd
Debug.Print xmlReq
' Me!Text0 = xmlReq
' Me!Text2 = URL
http.Open "POST", URL, False
'http.setRequestHeader "Accept", "text/xml"
http.setRequestHeader "Content-Type", "text/xml"
' http.setRequestHeader "Cache-Control", "no-cache"
http.setRequestHeader "SOAPAction",
"http://schemas.microsoft.com/sharepoint/soap/GetListCollection"
' http.setRequestHeader "SOAPMethodName", "GetListCollection"
http.send xmlReq
Debug.Print http.responseText; Len(http.responseText)
Debug.Print http.Status; http.statusText
WriteFile "C:\Access files\sharepoint\" & "test" & _
Format(Now, "yyyymmddhhmmss") & ".xml", http.responseText
Debug.Print http.responseBody; Len(http.responseBody)
' Debug.Print http.responseXML
'objResult = new ActiveXObject ("Microsoft.XMLDOM")
objResult.async = False
objResult.Load http.responseText
'strQuery =
"SOAP:Envelope/SOAP:Body/<namesp13:getTranslationResponse/input"
strQuery = "SOAP:Envelope/SOAP:Body/"
strReturned = objResult.selectSingleNode(strQuery).Text
Debug.Print "*" & strReturned & "*"
Set http = Nothing
''objStyle = new ActiveXObject ("Microsoft.XMLDOM")
'objStyle.async = False
'objStyle.Load ("http://212.179.15.36/" + style)
'Document.all.Message.innerHTML = objResult.transformNode(objStyle)
Debug.Print "got result"
'Debug.Print objResult.transformNode(objStyle)
'mLargeStr = objResult.transformNode(objStyle)
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
' WriteFile "C:\Access files\xmltests\strout" & Format(Now,
"yyyymmddhhmmss") & ".xml", strOut
Public Sub WriteFile(ByVal sFileName As String, ByVal sContents As String)
' Dump XML String to File for debugging
Dim fhFile As Integer
fhFile = FreeFile
' Debug.Print "Length of string=" & Len(sContents)
Open sFileName For Output As #fhFile
Print #fhFile, sContents;
Close #fhFile
Debug.Print "Out File" & sFileName
End Sub
Jim Lawrence wrote:
>Hi All:
>
>Given that this question will seem simple and slightly ignorant... what is
a
>SharePoint Portal used for and what does it improve or replace.
>
>Jim
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: Wednesday, June 22, 2005 9:33 AM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] OT: Sharepoint Security (SOLVED)
>
>The culprit seemed to be that the user(s) in question were members of a
>Desktop Administrators group that was set up for us. Removing that group
>from the Sharepoint server machine seems to have corrected the issue
>(further testing pending).
>
>Thanks to all,
>
>Jim DeMarco
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim DeMarco
>Sent: Wednesday, June 22, 2005 10:30 AM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] OT: Sharepoint Security
>
>
>Well I just set up a non-IT staff member with Read access and that's all he
>could do (read). When I removed him from the site he could not access it
>any longer. So it looks like it may be using Windows Security to
>authenticate users. Unfortunately I need to limit even our IT staff in
>various sections of the site so I've got to get a work around together.
>
>I'll keep you posted.
>
>Thanks,
>
>Jim DeMarco
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
>Sent: Wednesday, June 22, 2005 10:08 AM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] OT: Sharepoint Security
>
>
>Jim,
>I'm a novice, but will become the SharePoint "Expert" when I change
>jobs, in my company, next month. I'm interested in the outcome of your
>question.
>A couple of random thoughts...
>There are two levels of security for SharePoint. They are Central
>Administration and Site Administration rights. Central take precedence
>over site rights. If a person is a member of the Central Administration
>group which manages the settings for the Web Server and virtual servers,
>they effectively have Administrative rights to the entire portal.
>In Site Administration, IIRC, there is a toggle somewhere to designate a
>person to have the same rights as the parent area or site.
>Let me know if you have found the solution.
>Regards,
>Jim H.
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: Wednesday, June 22, 2005 8:04 AM
>To: AccessD (E-mail)
>Subject: [AccessD] OT: Sharepoint Security
>
>List,
>
>I've done some Googling but I can't seem to find the answer to this odd
>problem. I set up a Sharepoint site as a test bed (Sharepoint Services
>not Server) and gave a few users access. No matter what rights I give
>the users they have full admin rights to the sight. I set up custom
>security groups and the site is completely ignoring them. To further
>add to the mystery I removed on user (she is not a member of any
>security group therefore should not have access to the site) and she can
>still get in with full admin rights. Is it possible that Sharepoint is
>deferring to Windows rights? These are all IT staff here and have more
>liberal rights to our network than the average user.
>
>Does anyone have a clue? A push in the right direction would be
>appreciated.
>
>TIA
>
>Jim DeMarco
>Director of Application Development
>Hudson Health Plan
>
>
>
>************************************************************************
>***********
>"This electronic message is intended to be for the use only of the named
>recipient, and may contain information from Hudson Health Plan (HHP)
>that is confidential or privileged. If you are not the intended
>recipient, you are hereby notified that any disclosure, copying,
>distribution or use of the contents of this message is strictly
>prohibited. If you have received this message in error or are not the
>named recipient, please notify us immediately, either by contacting the
>sender at the electronic mail address noted above or calling HHP at
>(914) 631-1611. If you are not the intended recipient, please do not
>forward this email to anyone, and delete and destroy all copies of this
>message. Thank You".
>************************************************************************
>***********
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
--
Marty Connelly
Victoria, B.C.
Canada
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com