OVH Cloud OVH Cloud

Webparts

2 réponses
Avatar
oscar
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: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("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

2 réponses

Avatar
Renaud Comte
votre probléme doit être dans la requete

utilisez cet outil pour debugger

http://blog.spsclerics.com/archive/2005/01/20/519.aspx

Voila voila

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



Avatar
SD
Bonjour
Existe t'il le même type d'outil pour WSS 2003 ?
Merci
SD

"Renaud Comte" a écrit dans le message de news:

votre probléme doit être dans la requete

utilisez cet outil pour debugger

http://blog.spsclerics.com/archive/2005/01/20/519.aspx

Voila voila

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