i have the following code in Statistica 10....
and i get 10800 type mismatch.. .This code is from Statistica google analytics api (i have cut a large portion of code in order to find what goes wrong).
Note that my password has special character.This is the reason? can you suggest something?
and i get 10800 type mismatch.. .This code is from Statistica google analytics api (i have cut a large portion of code in order to find what goes wrong).
Note that my password has special character.This is the reason? can you suggest something?
Code:
Dim sGranularityArray(0 To 1) As String
Dim sGooglePass As String
Dim sGoogleMail As String
Dim sSessionToken As String
Dim sProfilesArray() As Variant
Sub Main
If Not AuthenticationDialog() Then Exit Sub
End Sub
Public Function AuthenticationDialog() As Boolean
AuthenticationDialog = True
On Error GoTo ErrAuthenticationDialog
Begin Dialog UserDialog 400,154 ' %GRID:10,7,1,1
GroupBox 10,7,380,147,"Google Authentication Information",.GroupBox1
Text 30,42,90,21,"E-Mail: ",.Text1
TextBox 140,42,210,21,.TextBox1
Text 30,77,90,14,"Password: ",.Text2
TextBox 140,77,210,21,.TextBox2,-1
OKButton 100,119,100,21
CancelButton 220,119,80,21
End Dialog
Dim dlg As UserDialog
If Dialog (dlg) Then
sGoogleMail = dlg.TextBox1
sGooglePass = dlg.TextBox2
If sGoogleMail <> "" And sGooglePass <> "" Then 'Proceed only if user enters both a valid Google eMail address
'and the valid associated Google eMail password
sProfilesArray = GetGAProfiles(sSessionToken, False)
End If
Else
Exit Function
End If
Exit Function
ErrAuthenticationDialog:
AuthenticationDialog = False
MsgBox CStr("Error encountered while proc." & vbCrLf & Err.Number & vbCrLf & Err.Description)
End Function
Public Function GetGAProfiles(sAuthToken As String, Optional bIncludeHeaders As Boolean = False) As Variant
ErrGetGAProfiles:
GetGAProfiles = "Fetching profiles failed"
End Function