I've searched all over the forums on google, and come to find out the
the level of support is pathetic
im just trying to add a simple item to google base
and getting invalid item error 404
can anyone in this google huge company help with such a simple API
Command kuku?
here is my code
Dim S As New Google.GData.GoogleBase.GBaseService("Vovchik.NET",
"ABQIAAAAae8QAEKRLk630Q-yGvZb0xT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQ-
TKiAXiBENEUtJm_fH1iXkWH4-g")
S.setUserCredentials("************", "********")
Dim QR As New Google.GData.GoogleBase.GBaseQuery("http://
base.google.com/base/feeds/items")
QR.NumberToRetrieve = 10
Dim feed As Google.GData.GoogleBase.GBaseFeed = S.Query(QR)
Dim entry As New GBaseEntry()
entry.BatchData = New GDataBatchEntryData
entry.BatchData.Id = 38
Dim URL As String = "http://www.vovchik.net/?i=viewItem&v=99";
entry.BatchData.Type = GDataBatchOperationType.insert
entry.Title.Text = "Mario and Sonic at the Olympic Winter
Games"
entry.Content.Content = "Mario and Sonic at the Olympic Winter
Games"
Dim author As New AtomPerson
author.Name = "www.vovchik.net"
entry.Authors.Add(author)
entry.GBaseAttributes.ItemType = "test"
entry.GBaseAttributes.AddTextAttribute("item_type",
"products")
entry.GBaseAttributes.AddTextAttribute("id", "38")
entry.GBaseAttributes.AddTextAttribute("title", "Mario and
Sonic at the Olympic Winter Games")
entry.GBaseAttributes.AddTextAttribute("description", "Mario
and Sonic at the Olympic Winter Games")
entry.GBaseAttributes.AddTextAttribute("id", "38")
entry.GBaseAttributes.AddFloatUnitAttribute("price", 46.59,
"usd")
entry.GBaseAttributes.AddImageLink("http://www.vovchik.net/
photos/med634029342592001250-1.jpg")
entry.GBaseAttributes.AddTextAttribute("condition", "New")
entry.GBaseAttributes.AddTextAttribute("id", 38)
entry.GBaseAttributes.AddUrlAttribute("link", URL)
Dim al As New AtomLink("text/html", "alternate")
al.Dirty = False
al.HRef = New AtomUri(URL)
entry.Links.Add(al)
Dim o As New Uri(GBaseUriFactory.
[Default].ItemsFeedUri.ToString())
feed.Entries.Add(entry)
Dim returnFeed As GBaseFeed = S.Batch(feed, New
Uri(feed.Batch))
Dim RET As GBaseEntry =
returnFeed.Entries.Item(returnFeed.Entries.Count - 1)
MsgBox(RET.BatchData.Status.Reason)
MsgBox(RET.BatchData.Status.Code)
returns nothing but invalid item
--
You received this message because you are subscribed to the Google Groups
"Google Base Data API" group.
To post to this group, send email to google-base-data-...@googlegroups.com.
To unsubscribe from this group, send email to
google-base-data-api+unsubscr...@googlegroups.com.
For more options, visit this group at
http://groups.google.com/group/google-base-data-api?hl=en.
