4 pagine in totale: <<Indietro 1 [2] 3 4 Avanti >>
La realizzazione
Supponiamo di avere un server A che necessita di dati che si trovano su un database Access, residente su un server B. La situazione dovrebbe essere come quella mostratat in figura:
Prima di tutto creiamo il componente che, data una query SQL ci restituisca i risultati in formato XML.
Apriamo VB, creiamo un nuovo progetto ActiveX DLL e aggiungiamo dal menù Project, References i riferimenti agli oggetti "Microsoft ActiveX Data Objects 2.7 Library" e "Microsoft XML, v3.0".
Rinominiamo la classe con "Data" e chiamiamo il progetto "AccessDB".
La classe conterrà solo un metodo che accetterà come parametro una stringa SQL e restituirà una stringa XML.
Il codice della classe è il seguente:
Public Function rsResult(strQuery As String) As String
Const adPersistADTG = 0
Const adPersistXML = 1
Dim objConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim objXml As MSXML2.DOMDocument
Set objConn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set objXml = New MSXML2.DOMDocument
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Inetpub\wwwroot\Listener\Data\db.mdb", "", ""
rs.Open strQuery, objConn
rs.Save objXml, adPersistXML
rsResult = objXml.xml
Set objXml = Nothing
rs.Close
Set rs = Nothing
objConn.Close
Set objConn = Nothing
End FunctionCome risultato rsResult non si è potuto utilizzare l'oggetto Recordset, perché il tipo ADODB.Recordset non è riconosciuto tra i tipi standard del protocollo SOAP e si è optato perciò per la più generica stringa XML.
Dopo aver compilato, registriamo la DLL con il solito regsvr32 o come applicazione COM+.
4 pagine in totale: <<Indietro 1 [2] 3 4 Avanti >>
Attenzione: Questo articolo contiene un allegato
Contenuti dell'articolo
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Difficoltà
Stampa 
Download
