Google SpreadsheetsService in VB.Net   otázka

VB.NET

Ahoj, nemáte někdo funkční příklad na připojení k tabulkám Google z VB.Net ?

...

Příkladů pro VB.Net je pomálu a většinou pro starší verze Google API,

kde stačil jen mail a heslo, nyní bude potřeba autorizace pomocí Oauth

a v google api console vytvořit pro aplikaci Id a ApiKey pro přihlášení.

Zatím bezvýsledné, nedaří se, chyba autorizace 404.

...

Objevil jsem dokonce Google Sheets ADO.NET Provider :

http://www.cdata.com/drivers/gsheets/ado...

Připojit se jako k db a naplnit dataset by byla paráda.

... avšak pouze zkušební verze, tak nadšení opadlo.

Jaké jsou možnosti se k tabulkám dostat?

Editovat staženou kopii a nahrát zpět?

Měnit data přímo v tabulce? Omezení queries?

Našel jsem zde návod na oauth autorizaci, ale pro ASP...

Předem děkuji za případné rady a tipy.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Přidám ještě ukázku jednoho z pokusů pomocí :

Imports System.Windows.Forms
Imports Google.GData.Client
Imports Google.GData.Spreadsheets

Postup :

Dim CLIENT_ID As String = "YOUR_CLIENT_ID"
Dim CLIENT_SECRET As String = "YOUR_CLIENT_SECRET"
Dim SCOPE As String = "https://spreadsheets.google.com/feeds https://docs.google.com/feeds"
Dim REDIRECT_URI As String = "urn:ietf:wg:oauth:2.0:oob"

Dim parameters As New OAuth2Parameters()
parameters.ClientId = CLIENT_ID
parameters.ClientSecret = CLIENT_SECRET
parameters.RedirectUri = REDIRECT_URI
parameters.Scope = SCOPE

Dim authorizationUrl As String = OAuthUtil.CreateOAuth2AuthorizationUrl(parameters)
			MessageBox.Show(authorizationUrl)
'Please visit the URL in the message box to authorize your OAuth 
parameters.AccessCode = "" 'Once that is complete, type in your access code to continue

OAuthUtil.GetAccessToken(parameters)
Dim accessToken As String = parameters.AccessToken

Dim requestFactory As New GOAuth2RequestFactory(Nothing, "MySpreadsheetIntegration-v1", parameters)
Dim service As New SpreadsheetsService("MySpreadsheetIntegration-v1")
service.RequestFactory = requestFactory
Dim query As New SpreadsheetQuery()
Dim feed As SpreadsheetFeed = service.Query(query)
' Iterate through all of the spreadsheets returned
For Each entry As SpreadsheetEntry In feed.Entries
	' Print the title of this spreadsheet to the screen
	Debug.Print(entry.Title.Text)
Next

S úspěchem se mi daří zjistit názvy tabulek, ale jak zautomatizovat část ,

kdy je nutné přepsat kód po autorizaci a pokračovat ?

Nevíte jak získat AccessCode vrácený třeba jako výsledek requestu?

Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(authorizationUrl)
req.ContentType = "application/json" '"application/x-www-form-urlencoded"
req.Method = "POST"

'???

Jinak?

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Některé příklady jsou pro novější verze visual studia a bohužel vyžadují Framework 4.0.

Nepodařilo se mi najít, co konkrétně z Google.GData API pro .Net(v4) použít pro přihlášení do SpreadSheetService, ale někde to tam asi bude....

Prozatím se spokojím s vloženým webbrowserem, kde se proklikám ke kódu pro přihlášení.

...

S omluvou za duplicitní vložení příspěvku prosím administrátora o pročištění vlákna.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Přidám ještě ukázku jednoho z pokusů pomocí :

Imports System.Windows.Forms
Imports Google.GData.Client
Imports Google.GData.Spreadsheets

Postup :

Dim CLIENT_ID As String = "YOUR_CLIENT_ID"
Dim CLIENT_SECRET As String = "YOUR_CLIENT_SECRET"
Dim SCOPE As String = "https://spreadsheets.google.com/feeds https://docs.google.com/feeds"
Dim REDIRECT_URI As String = "urn:ietf:wg:oauth:2.0:oob"

Dim parameters As New OAuth2Parameters()
parameters.ClientId = CLIENT_ID
parameters.ClientSecret = CLIENT_SECRET
parameters.RedirectUri = REDIRECT_URI
parameters.Scope = SCOPE

Dim authorizationUrl As String = OAuthUtil.CreateOAuth2AuthorizationUrl(parameters)
			MessageBox.Show(authorizationUrl)
'Please visit the URL in the message box to authorize your OAuth 
parameters.AccessCode = "" 'Once that is complete, type in your access code to continue

OAuthUtil.GetAccessToken(parameters)
Dim accessToken As String = parameters.AccessToken

Dim requestFactory As New GOAuth2RequestFactory(Nothing, "MySpreadsheetIntegration-v1", parameters)
Dim service As New SpreadsheetsService("MySpreadsheetIntegration-v1")
service.RequestFactory = requestFactory
Dim query As New SpreadsheetQuery()
Dim feed As SpreadsheetFeed = service.Query(query)
' Iterate through all of the spreadsheets returned
For Each entry As SpreadsheetEntry In feed.Entries
	' Print the title of this spreadsheet to the screen
	Debug.Print(entry.Title.Text)
Next

S úspěchem se mi daří zjistit názvy tabulek, ale jak zautomatizovat část ,

kdy je nutné přepsat kód po autorizaci a pokračovat ?

Nevíte jak získat AccessCode vrácený třeba jako výsledek requestu?

Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(authorizationUrl)
req.ContentType = "application/json" '"application/x-www-form-urlencoded"
req.Method = "POST"

'???

Jinak?

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Přidám ještě ukázku jednoho z pokusů pomocí :

Imports System.Windows.Forms
Imports Google.GData.Client
Imports Google.GData.Spreadsheets

Postup :

Dim CLIENT_ID As String = "YOUR_CLIENT_ID"
Dim CLIENT_SECRET As String = "YOUR_CLIENT_SECRET"
Dim SCOPE As String = "https://spreadsheets.google.com/feeds https://docs.google.com/feeds"
Dim REDIRECT_URI As String = "urn:ietf:wg:oauth:2.0:oob"

Dim parameters As New OAuth2Parameters()
parameters.ClientId = CLIENT_ID
parameters.ClientSecret = CLIENT_SECRET
parameters.RedirectUri = REDIRECT_URI
parameters.Scope = SCOPE

Dim authorizationUrl As String = OAuthUtil.CreateOAuth2AuthorizationUrl(parameters)
			MessageBox.Show(authorizationUrl)
'Please visit the URL in the message box to authorize your OAuth 
parameters.AccessCode = "" 'Once that is complete, type in your access code to continue

OAuthUtil.GetAccessToken(parameters)
Dim accessToken As String = parameters.AccessToken

Dim requestFactory As New GOAuth2RequestFactory(Nothing, "MySpreadsheetIntegration-v1", parameters)
Dim service As New SpreadsheetsService("MySpreadsheetIntegration-v1")
service.RequestFactory = requestFactory
Dim query As New SpreadsheetQuery()
Dim feed As SpreadsheetFeed = service.Query(query)
' Iterate through all of the spreadsheets returned
For Each entry As SpreadsheetEntry In feed.Entries
	' Print the title of this spreadsheet to the screen
	Debug.Print(entry.Title.Text)
Next

S úspěchem se mi daří zjistit názvy tabulek, ale jak zautomatizovat část ,

kdy je nutné přepsat kód po autorizaci a pokračovat ?

Nevíte jak získat AccessCode vrácený třeba jako výsledek requestu?

Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(authorizationUrl)
req.ContentType = "application/json" '"application/x-www-form-urlencoded"
req.Method = "POST"

'???

Jinak?

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback