Je veux personaliser la recherche sur sharepoint et j'ai un programme
qui ne marche. Le code est le suivant:
Try
Dim topology As New TopologyManager
Dim portal As PortalSite = topology.PortalSites(New
Uri(Adresse))
Dim context1 As PortalContext =
PortalApplication.GetContext(portal)
Dim dr As DataRow
Dim qp As New QueryProvider(context1.SearchApplicationName)
Dim queryTemplate As String
'queryTemplate = "SELECT
\'DAV:href\',\'DAV:displayname\',\'urn:schemas-microsoft-com:office:officeAuthor\'FROM
Portal_Content..Scope()WHERE
(\'urn:schemas.microsoft.com:sharepoint:portal:isdocument\'= 1) AND
(\'DAV:creationdate\' > DateAdd(Day, -1, GetGMTDate()))"
Dim ds As DataSet = qp.Execute(queryTemplate)
Dim instance As DataGrid
instance.DataSource = ds
instance.DataBind()
Dim sb As New StringBuilder
If ds Is Nothing Then
sb.Append("<P>No Results</P>")
Else
sb.Append("<Ul>")
For Each dr In ds.Tables(0).Rows
href = dr("DAV:href").ToString()
sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added
by {2}</LI>")
SPEncode.HtmlEncode(dr("DAV:href").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor").ToString())
Next
sb.Append("</UL>")
labelResult.Text = sb.ToString()
End If
Catch ex As Exception
ex.Message
End Try
et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000
quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
Renaud Comte [MVP] -------------------------------------- http://blogs.developpeur.org/themit/ http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme qui ne marche. Le code est le suivant: Try Dim topology As New TopologyManager Dim portal As PortalSite = topology.PortalSites(New Uri(Adresse)) Dim context1 As PortalContext > PortalApplication.GetContext(portal) Dim dr As DataRow Dim qp As New QueryProvider(context1.SearchApplicationName) Dim queryTemplate As String 'queryTemplate = "SELECT 'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of ficeAuthor'FROM Portal_Content..Scope()WHERE ('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND ('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))" Dim ds As DataSet = qp.Execute(queryTemplate) Dim instance As DataGrid instance.DataSource = ds instance.DataBind() Dim sb As New StringBuilder If ds Is Nothing Then sb.Append("<P>No Results</P>") Else sb.Append("<Ul>") For Each dr In ds.Tables(0).Rows href = dr("DAV:href").ToString() sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added by {2}</LI>") SPEncode.HtmlEncode(dr("DAV:href").ToString()) SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor" ).ToString()) Next sb.Append("</UL>") labelResult.Text = sb.ToString() End If Catch ex As Exception ex.Message End Try et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000 quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
Renaud Comte [MVP]
--------------------------------------
http://blogs.developpeur.org/themit/
http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme
qui ne marche. Le code est le suivant:
Try
Dim topology As New TopologyManager
Dim portal As PortalSite = topology.PortalSites(New
Uri(Adresse))
Dim context1 As PortalContext > PortalApplication.GetContext(portal)
Dim dr As DataRow
Dim qp As New
QueryProvider(context1.SearchApplicationName)
Dim queryTemplate As String
'queryTemplate = "SELECT
'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of
ficeAuthor'FROM
Portal_Content..Scope()WHERE
('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND
('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))"
Dim ds As DataSet = qp.Execute(queryTemplate)
Dim instance As DataGrid
instance.DataSource = ds
instance.DataBind()
Dim sb As New StringBuilder
If ds Is Nothing Then
sb.Append("<P>No Results</P>")
Else
sb.Append("<Ul>")
For Each dr In ds.Tables(0).Rows
href = dr("DAV:href").ToString()
sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added
by {2}</LI>")
SPEncode.HtmlEncode(dr("DAV:href").ToString())
SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor"
).ToString())
Next
sb.Append("</UL>")
labelResult.Text = sb.ToString()
End If
Catch ex As Exception
ex.Message
End Try
et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000
quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
Renaud Comte [MVP] -------------------------------------- http://blogs.developpeur.org/themit/ http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme qui ne marche. Le code est le suivant: Try Dim topology As New TopologyManager Dim portal As PortalSite = topology.PortalSites(New Uri(Adresse)) Dim context1 As PortalContext > PortalApplication.GetContext(portal) Dim dr As DataRow Dim qp As New QueryProvider(context1.SearchApplicationName) Dim queryTemplate As String 'queryTemplate = "SELECT 'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of ficeAuthor'FROM Portal_Content..Scope()WHERE ('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND ('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))" Dim ds As DataSet = qp.Execute(queryTemplate) Dim instance As DataGrid instance.DataSource = ds instance.DataBind() Dim sb As New StringBuilder If ds Is Nothing Then sb.Append("<P>No Results</P>") Else sb.Append("<Ul>") For Each dr In ds.Tables(0).Rows href = dr("DAV:href").ToString() sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added by {2}</LI>") SPEncode.HtmlEncode(dr("DAV:href").ToString()) SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor" ).ToString()) Next sb.Append("</UL>") labelResult.Text = sb.ToString() End If Catch ex As Exception ex.Message End Try et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000 quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
merci
oscar
SD
Bonjour Existe t'il le même type d'outil pour WSS 2003 ? Merci SD
Renaud Comte [MVP] -------------------------------------- http://blogs.developpeur.org/themit/ http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme qui ne marche. Le code est le suivant: Try Dim topology As New TopologyManager Dim portal As PortalSite = topology.PortalSites(New Uri(Adresse)) Dim context1 As PortalContext >> PortalApplication.GetContext(portal) Dim dr As DataRow Dim qp As New QueryProvider(context1.SearchApplicationName) Dim queryTemplate As String 'queryTemplate = "SELECT 'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of ficeAuthor'FROM Portal_Content..Scope()WHERE ('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND ('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))" Dim ds As DataSet = qp.Execute(queryTemplate) Dim instance As DataGrid instance.DataSource = ds instance.DataBind() Dim sb As New StringBuilder If ds Is Nothing Then sb.Append("<P>No Results</P>") Else sb.Append("<Ul>") For Each dr In ds.Tables(0).Rows href = dr("DAV:href").ToString() sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added by {2}</LI>") SPEncode.HtmlEncode(dr("DAV:href").ToString()) SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor" ).ToString()) Next sb.Append("</UL>") labelResult.Text = sb.ToString() End If Catch ex As Exception ex.Message End Try et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000 quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
merci
oscar
Bonjour
Existe t'il le même type d'outil pour WSS 2003 ?
Merci
SD
"Renaud Comte" <rcomte@hotmail.com> a écrit dans le message de news:
6047553fb60e8c8aed5a12b25c2@msnews.microsoft.com...
Renaud Comte [MVP]
--------------------------------------
http://blogs.developpeur.org/themit/
http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme
qui ne marche. Le code est le suivant:
Try
Dim topology As New TopologyManager
Dim portal As PortalSite = topology.PortalSites(New
Uri(Adresse))
Dim context1 As PortalContext >> PortalApplication.GetContext(portal)
Dim dr As DataRow
Dim qp As New
QueryProvider(context1.SearchApplicationName)
Dim queryTemplate As String
'queryTemplate = "SELECT
'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of
ficeAuthor'FROM
Portal_Content..Scope()WHERE
('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND
('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))"
Dim ds As DataSet = qp.Execute(queryTemplate)
Dim instance As DataGrid
instance.DataSource = ds
instance.DataBind()
Dim sb As New StringBuilder
If ds Is Nothing Then
sb.Append("<P>No Results</P>")
Else
sb.Append("<Ul>")
For Each dr In ds.Tables(0).Rows
href = dr("DAV:href").ToString()
sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added
by {2}</LI>")
SPEncode.HtmlEncode(dr("DAV:href").ToString())
SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor"
).ToString())
Next
sb.Append("</UL>")
labelResult.Text = sb.ToString()
End If
Catch ex As Exception
ex.Message
End Try
et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000
quelqu'un peut m'aider, je lui serais infiniment reconnaissant.
Renaud Comte [MVP] -------------------------------------- http://blogs.developpeur.org/themit/ http://blog.spsclerics.com/
Salut,
Je veux personaliser la recherche sur sharepoint et j'ai un programme qui ne marche. Le code est le suivant: Try Dim topology As New TopologyManager Dim portal As PortalSite = topology.PortalSites(New Uri(Adresse)) Dim context1 As PortalContext >> PortalApplication.GetContext(portal) Dim dr As DataRow Dim qp As New QueryProvider(context1.SearchApplicationName) Dim queryTemplate As String 'queryTemplate = "SELECT 'DAV:href','DAV:displayname','urn:schemas-microsoft-com:office:of ficeAuthor'FROM Portal_Content..Scope()WHERE ('urn:schemas.microsoft.com:sharepoint:portal:isdocument'= 1) AND ('DAV:creationdate' > DateAdd(Day, -1, GetGMTDate()))" Dim ds As DataSet = qp.Execute(queryTemplate) Dim instance As DataGrid instance.DataSource = ds instance.DataBind() Dim sb As New StringBuilder If ds Is Nothing Then sb.Append("<P>No Results</P>") Else sb.Append("<Ul>") For Each dr In ds.Tables(0).Rows href = dr("DAV:href").ToString() sb.AppendFormat("<Li><A href= '{0}'>{1}</A> added by {2}</LI>") SPEncode.HtmlEncode(dr("DAV:href").ToString()) SPEncode.HtmlEncode(dr("DAV:displayname").ToString())
SPEncode.HtmlEncode(dr("urn:schemas-microsoft-com:office:officeAuthor" ).ToString()) Next sb.Append("</UL>") labelResult.Text = sb.ToString() End If Catch ex As Exception ex.Message End Try et voila la faute que je recois apres deploiement du Webpart:
the syntax near ":" is incorrect "'" '.'',' required SQLState 42000 quelqu'un peut m'aider, je lui serais infiniment reconnaissant.