conexion firebase con access
Publicado por JUAN MIGUEL (50 intervenciones) el 28/07/2018 21:57:54
buen dia, estoy trabajando en una conecxion de base de datos entre microsoft access y firebase de google yencontre un codigo que esta colgado en la red ero no he podido solucionar el tema de ese codigo y aprte veo que tiene problemas de escritura alquien me puede a yudar a discriminar ese codigo y a entenderlo me parece que falta mucha informacion.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
End
Attribute VB_Name = "clsAsyncHTTP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module : clsAsyncHTTP
' Author : rick cooney (ace)
' Date : 9/1/2013
' Purpose : Make an asynchronous HTTP request to a URL
' and receive a response
'---------------------------------------------------------------------------------------
Option Compare Database
Option Explicit
Const READYSTATE_COMPLETE = 4
Private m_oXmlHttp As MSXML2.XMLHTTP
Private m_ServiceURL As String
Private m_responseText As String
Private m_responseXML As String
Public Event declare ResponseReady(ByVal ready As Boolean)
Public Sub HandleResponse()
Attribute HandleResponse.VB_UserMemId = 0
'---default method---
If m_oXmlHttp.ReadyState = READYSTATE_COMPLETE Then
RaiseEvent ResponseReady(True)
End If
End Sub
Public Property Let serviceURL(url As String)
m_ServiceURL = url
End Property
Public Function GetHeaders() As String
GetHeaders = m_oXmlHttp.getAllResponseHeaders
End Function
Public Function GetReponseText() As String
GetReponseText = m_oXmlHttp.responseText
End Function
Public Function GetReponseXML() As String
On Error GoTo errHandler
GetReponseXML = m_oXmlHttp.responseXML
exitHere:
On Error GoTo 0
Exit Function
errHandler:
GetReponseXML = "Error " & Err.Number & " (" & Err.Description & ") in procedure GetReponseXML of Class Module clsAsyncHTTP"
Resume exitHere
End Function
Public Property Get StatusCode() As String
StatusCode = m_oXmlHttp.statusText
End Property
Public Property Get HasServiceURL() As Boolean
HasServiceURL = Len(m_ServiceURL) > 0
End Property
Public Sub GetRequest(Optional serviceURL As Variant, Optional action As Variant)
'errors need to be handled in the calling code of the client
Dim thisRequest As String
'Example:
'serviceURL: "http://services.aonaware.com/DictService/DictService.asmx/"
' action: "Define?word="
If IsMissing(action) Then
action = ""
End If
If Not IsMissing(serviceURL) Then
m_ServiceURL = serviceURL
End If
If m_ServiceURL = "" Then
Err.Raise vbObjectError + 1001, "clsAsyncHTTP.GetRequest()", "The Service URL has not been set"
End If
thisRequest = m_ServiceURL & action
Set m_oXmlHttp = New MSXML2.XMLHTTP
m_oXmlHttp.Open "GET", thisRequest, True
m_oXmlHttp.setRequestHeader "Content-Type", "text/html"
'this sets the onreadystatechange call back to an instance of this object
'which causes the default method HandleResponse to be called when the ready
'state changes
m_oXmlHttp.onreadystatechange = Me
m_oXmlHttp.send
End Sub
Private Sub Class_Terminate()
Set m_oXmlHttp = Nothing
End Sub
Valora esta pregunta


0