Pasar de recordset a Dataset

La aplicación VB.NET no tiene ningún problema para leer recordsets guardados
en archivos ya que en VB.NET puedes seguir usando Recordsets, así que ¿por
qué no dejarlo tal cual, en vez de complicarse la vida?

Saludos:

Jesús López



"Tiago Barro" escribió en el mensaje
news:

Hola a todos,
tengo que implementar un envío de datos entre una aplicación realizada con
vb6 y una con VB.Net.

Había pensado el traspasar los datos mediante archivos XML.

Si cargo un recordset con los datos a exportar y lo guardo mediante el
comando Save, me guarda con el siguiente formato:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='Codigo' rs:number='1' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='8'/>
</s:AttributeType>
<s:AttributeType name='Concepto' rs:number='2' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='250'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row Codigo='1' Concepto='FINANCIACION BASICA'/>
<z:row Codigo='10' Concepto='CAPITAL'/>
</rs:data>
</xml>


Este formato lo lee un mismo recordset pero no un dataset.

¿Sabeis como puedo guardar los datos para poderlos leer posteriormente por
un dataset?.

Muchas gracias y un saludo
Santiago Barro

Sí, ya sé que puedo utilizar recordsets desde VB.NET, pero lo que quería es
poder definir una estructura en formato XML que cualquier otra aplicación
pudiera generar un archivo con esta estructura y poder importarla
correctamente
desde VB.NET.

Ya sé que puedo generar un archivo XML "a mano" desde un recordset, pero
quería saber si existe alguna forma que lo haga automáticamente.

Gracias y un saludo
Santiago Barro

"Jesús López" escribió en el mensaje
news:%

La aplicación VB.NET no tiene ningún problema para leer recordsets
guardados en archivos ya que en VB.NET puedes seguir usando Recordsets,
así que ¿por qué no dejarlo tal cual, en vez de complicarse la vida?

Saludos:

Jesús López



"Tiago Barro" escribió en el mensaje
news:

Hola a todos,
tengo que implementar un envío de datos entre una aplicación realizada
con vb6 y una con VB.Net.

Había pensado el traspasar los datos mediante archivos XML.

Si cargo un recordset con los datos a exportar y lo guardo mediante el
comando Save, me guarda con el siguiente formato:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='Codigo' rs:number='1' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='8'/>
</s:AttributeType>
<s:AttributeType name='Concepto' rs:number='2' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='250'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row Codigo='1' Concepto='FINANCIACION BASICA'/>
<z:row Codigo='10' Concepto='CAPITAL'/>
</rs:data>
</xml>


Este formato lo lee un mismo recordset pero no un dataset.

¿Sabeis como puedo guardar los datos para poderlos leer posteriormente
por un dataset?.

Muchas gracias y un saludo
Santiago Barro

Quizá lo que no sepas es que puedes cargar los datos de un recordset en un
datatable usando el método Fill de un OleDbDataAdapter. Este sería el método
que menos líneas de código requeriría.

Saludos:

Jesús López


"Santiago Barro" escribió en el mensaje
news:%

Sí, ya sé que puedo utilizar recordsets desde VB.NET, pero lo que quería
es
poder definir una estructura en formato XML que cualquier otra aplicación
pudiera generar un archivo con esta estructura y poder importarla
correctamente
desde VB.NET.

Ya sé que puedo generar un archivo XML "a mano" desde un recordset, pero
quería saber si existe alguna forma que lo haga automáticamente.

Gracias y un saludo
Santiago Barro

"Jesús López" escribió en el mensaje
news:%

La aplicación VB.NET no tiene ningún problema para leer recordsets
guardados en archivos ya que en VB.NET puedes seguir usando Recordsets,
así que ¿por qué no dejarlo tal cual, en vez de complicarse la vida?

Saludos:

Jesús López



"Tiago Barro" escribió en el mensaje
news:

Hola a todos,
tengo que implementar un envío de datos entre una aplicación realizada
con vb6 y una con VB.Net.

Había pensado el traspasar los datos mediante archivos XML.

Si cargo un recordset con los datos a exportar y lo guardo mediante el
comando Save, me guarda con el siguiente formato:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='Codigo' rs:number='1' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='8'/>
</s:AttributeType>
<s:AttributeType name='Concepto' rs:number='2' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='250'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row Codigo='1' Concepto='FINANCIACION BASICA'/>
<z:row Codigo='10' Concepto='CAPITAL'/>
</rs:data>
</xml>


Este formato lo lee un mismo recordset pero no un dataset.

¿Sabeis como puedo guardar los datos para poderlos leer posteriormente
por un dataset?.

Muchas gracias y un saludo
Santiago Barro

Gracias por el interés, pero tampoco me sirve ya que se va a trabajar de
manera desconectada. Es decir, se tiene que mandar el archivo a importar por
email.

Después de mucho investigar he encontrado la solución por si a alguien le
interesa.
************************************************************
* Primero se crea un archivo "xsl" con el siguiente contenido:
************************************************************

<?xml version='1.0'?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:z="#RowsetSchema">
<s:Schema id="RowsetSchema"/>
<xsl:output method="xml" omit-xml-declaration="yes" />
<xsl:template match="/">
<xsl:apply-templates select="//z:row"/>
</xsl:template>

<xsl:template match="z:row">
<xsl:text disable-output-escaping="yes">&lt;Tabla1&gt;</xsl:text>
<xsl:for-each select="@*">
<xsl:text disable-output-escaping="yes">&lt;</xsl:text>
<xsl:value-of select="name()"/>
<xsl:text disable-output-escaping="yes">&gt;</xsl:text>
<xsl:value-of select="."/>
<xsl:text disable-output-escaping="yes">&lt;/</xsl:text>
<xsl:value-of select="name()"/>
<xsl:text disable-output-escaping="yes">&gt;</xsl:text>
</xsl:for-each>
<xsl:text disable-output-escaping="yes">&lt;/Tabla1&gt;</xsl:text>
</xsl:template>
</xsl:stylesheet>




*********************************************************************
Después he creado una clase con el nombre "RecordSetToXML" dentro del
proyecto vb6:
*********************************************************************

Option Explicit

'Variables privadas
Private xml As String 'Texto xml

'
' Procedure : AddRecordset
' DateTime : 24/04/2006 12:55
' Author : ADMIN
' Purpose : Añade un recordset al texto XML.
' : Devuelve TRUE si lo ha añadido con exito
'
Public Function AddRecordset(rst As ADODB.Recordset) As Boolean
On Error GoTo AddRecordset_Error

Dim txt As String
Dim oDom As New MSXML2.DOMDocument
oDom.async = False
rst.Save oDom, adPersistXML

Dim oXSL As New MSXML2.DOMDocument
oXSL.async = False
oXSL.Load "c:\temp\AdoGeneric.xsl" 'Indicar el nombre y ruta del
archivo xsl

txt = oDom.transformNode(oXSL)

'Añadimos el texto al xml
xml = xml & txt
AddRecordset = True

On Error GoTo 0
Exit Function

AddRecordset_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
AddRecordset of Módulo de clase cXMLRecordSetToXML"
End Function


'
' Procedure : GetXML
' DateTime : 24/04/2006 12:57
' Author : ADMIN
' Purpose : Devuelve la instrucción XML
'
Public Function GetXML()

On Error GoTo GetXML_Error
Dim txt As String
txt = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " standalone=" &
Chr(34) & "yes" & Chr(34) & "?><NewDataSet>"
txt = txt & xml
txt = txt & "</NewDataSet>"
GetXML = txt

On Error GoTo 0
Exit Function

GetXML_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
GetXML of Módulo de clase cXMLRecordSetToXML"
End Function

'
' Procedure : SaveXML
' DateTime : 24/04/2006 13:02
' Author : ADMIN
' Purpose : Guarda el archivo con la instrucción XML
'
Public Function SaveXML(Path As String)

On Error GoTo SaveXML_Error
Dim txt As String
txt = Me.GetXML

Dim nfile As Integer
nfile = FreeFile
Open Path For Output As #nfile
Print #nfile, txt
Close #nfile

On Error GoTo 0
Exit Function

SaveXML_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
SaveXML of Módulo de clase cXMLRecordSetToXML"
End Function


*********************************************************************
* Este es un ejemplo de código para utilizar la clase creada
*********************************************************************
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM Clientes", dbs, adOpenForwardOnly, adLockReadOnly
Dim xml As New cXMLRecordSetToXML
xml.AddRecordset rst
xml.SaveXML "c:\temp\clientes.xml"



Esto nos creará un archivo XML puro que podrá ser importado directamente
desde vb.net con el método DataSet.ReadXml.
Hay que tener en cuenta que para que funcione la clase es necesario añadir
la referencia "Microsoft XML, v.2.6".

Un saludo
Santiago Barro


"Jesús López" escribió en el mensaje
news:

Quizá lo que no sepas es que puedes cargar los datos de un recordset en un
datatable usando el método Fill de un OleDbDataAdapter. Este sería el
método que menos líneas de código requeriría.

Saludos:

Jesús López


"Santiago Barro" escribió en el mensaje
news:%

Sí, ya sé que puedo utilizar recordsets desde VB.NET, pero lo que quería
es
poder definir una estructura en formato XML que cualquier otra aplicación
pudiera generar un archivo con esta estructura y poder importarla
correctamente
desde VB.NET.

Ya sé que puedo generar un archivo XML "a mano" desde un recordset, pero
quería saber si existe alguna forma que lo haga automáticamente.

Gracias y un saludo
Santiago Barro

"Jesús López" escribió en el mensaje
news:%

La aplicación VB.NET no tiene ningún problema para leer recordsets
guardados en archivos ya que en VB.NET puedes seguir usando Recordsets,
así que ¿por qué no dejarlo tal cual, en vez de complicarse la vida?

Saludos:

Jesús López



"Tiago Barro" escribió en el mensaje
news:

Hola a todos,
tengo que implementar un envío de datos entre una aplicación realizada
con vb6 y una con VB.Net.

Había pensado el traspasar los datos mediante archivos XML.

Si cargo un recordset con los datos a exportar y lo guardo mediante el
comando Save, me guarda con el siguiente formato:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='Codigo' rs:number='1' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='8'/>
</s:AttributeType>
<s:AttributeType name='Concepto' rs:number='2' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='250'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row Codigo='1' Concepto='FINANCIACION BASICA'/>
<z:row Codigo='10' Concepto='CAPITAL'/>
</rs:data>
</xml>


Este formato lo lee un mismo recordset pero no un dataset.

¿Sabeis como puedo guardar los datos para poderlos leer posteriormente
por un dataset?.

Muchas gracias y un saludo
Santiago Barro

Que se vaya a trabajar de forma desconectada y que se envíen los archivos
por email no es impedimento. Yo lo que te estoy proponiendo es una forma
sencilla que consite en lo siguiente:

En VB 6, escribes un código como este que crea un recordset desconectado y
guarda su contenido en un archivo "rst.adtg" con formato ADTG, podría ser
también XML, pero el formato ADTG es más eficiente.

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB;Data Source=PT;Integrated
Security=SSPI;Initial Catalog=Northwind"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM Products", cn, adOpenStatic, adLockReadOnly
Set rst.ActiveConnection = Nothing
cn.Close()
rst.Save "rst.adtg", adPersistADTG

El archivo rst.adtg lo envías por correo electrónico. Cualquier programa que
sea capaz de usar objetos COM (Delphi, VB6, VB.NET, C# C++, etc) podrá leer
ese archivo usando ADO clásico y hacer con él lo que quiera.

Por ejemplo en VB.NET podría hacer esto:

Dim rst As New ADODB.Recordset
rst.Open("rst.adtg")
Dim Adapter As New OleDbDataAdapter()
Dim Table As New DataTable
Adapter.Fill(Table, rst)
Me.DataGridView1.DataSource = Table

que crea un objeto ADODB.Recordset y lo carga con los datos del archivo
adtg. Luego, mediante un OleDbDataAdapter carga un datatable con los datos
del recordset y lo muestra en un DataGridView.

Saludos:

Jesús López






"Santiago Barro" escribió en el mensaje
news:

Gracias por el interés, pero tampoco me sirve ya que se va a trabajar de
manera desconectada. Es decir, se tiene que mandar el archivo a importar
por email.

Después de mucho investigar he encontrado la solución por si a alguien le
interesa.
************************************************************
* Primero se crea un archivo "xsl" con el siguiente contenido:
************************************************************

<?xml version='1.0'?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"
xmlns:z="#RowsetSchema">
<s:Schema id="RowsetSchema"/>
<xsl:output method="xml" omit-xml-declaration="yes" />
<xsl:template match="/">
<xsl:apply-templates select="//z:row"/>
</xsl:template>

<xsl:template match="z:row">
<xsl:text disable-output-escaping="yes">&lt;Tabla1&gt;</xsl:text>
<xsl:for-each select="@*">
<xsl:text disable-output-escaping="yes">&lt;</xsl:text>
<xsl:value-of select="name()"/>
<xsl:text disable-output-escaping="yes">&gt;</xsl:text>
<xsl:value-of select="."/>
<xsl:text disable-output-escaping="yes">&lt;/</xsl:text>
<xsl:value-of select="name()"/>
<xsl:text disable-output-escaping="yes">&gt;</xsl:text>
</xsl:for-each>
<xsl:text disable-output-escaping="yes">&lt;/Tabla1&gt;</xsl:text>
</xsl:template>
</xsl:stylesheet>




*********************************************************************
Después he creado una clase con el nombre "RecordSetToXML" dentro del
proyecto vb6:
*********************************************************************

Option Explicit

'Variables privadas
Private xml As String 'Texto xml

'
' Procedure : AddRecordset
' DateTime : 24/04/2006 12:55
' Author : ADMIN
' Purpose : Añade un recordset al texto XML.
' : Devuelve TRUE si lo ha añadido con exito
'
Public Function AddRecordset(rst As ADODB.Recordset) As Boolean
On Error GoTo AddRecordset_Error

Dim txt As String
Dim oDom As New MSXML2.DOMDocument
oDom.async = False
rst.Save oDom, adPersistXML

Dim oXSL As New MSXML2.DOMDocument
oXSL.async = False
oXSL.Load "c:\temp\AdoGeneric.xsl" 'Indicar el nombre y ruta del
archivo xsl

txt = oDom.transformNode(oXSL)

'Añadimos el texto al xml
xml = xml & txt
AddRecordset = True

On Error GoTo 0
Exit Function

AddRecordset_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
AddRecordset of Módulo de clase cXMLRecordSetToXML"
End Function


'
' Procedure : GetXML
' DateTime : 24/04/2006 12:57
' Author : ADMIN
' Purpose : Devuelve la instrucción XML
'
Public Function GetXML()

On Error GoTo GetXML_Error
Dim txt As String
txt = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " standalone=" &
Chr(34) & "yes" & Chr(34) & "?><NewDataSet>"
txt = txt & xml
txt = txt & "</NewDataSet>"
GetXML = txt

On Error GoTo 0
Exit Function

GetXML_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
GetXML of Módulo de clase cXMLRecordSetToXML"
End Function

'
' Procedure : SaveXML
' DateTime : 24/04/2006 13:02
' Author : ADMIN
' Purpose : Guarda el archivo con la instrucción XML
'
Public Function SaveXML(Path As String)

On Error GoTo SaveXML_Error
Dim txt As String
txt = Me.GetXML

Dim nfile As Integer
nfile = FreeFile
Open Path For Output As #nfile
Print #nfile, txt
Close #nfile

On Error GoTo 0
Exit Function

SaveXML_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
SaveXML of Módulo de clase cXMLRecordSetToXML"
End Function


*********************************************************************
* Este es un ejemplo de código para utilizar la clase creada
*********************************************************************
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM Clientes", dbs, adOpenForwardOnly, adLockReadOnly
Dim xml As New cXMLRecordSetToXML
xml.AddRecordset rst
xml.SaveXML "c:\temp\clientes.xml"



Esto nos creará un archivo XML puro que podrá ser importado directamente
desde vb.net con el método DataSet.ReadXml.
Hay que tener en cuenta que para que funcione la clase es necesario añadir
la referencia "Microsoft XML, v.2.6".

Un saludo
Santiago Barro


"Jesús López" escribió en el mensaje
news:

Quizá lo que no sepas es que puedes cargar los datos de un recordset en
un datatable usando el método Fill de un OleDbDataAdapter. Este sería el
método que menos líneas de código requeriría.

Saludos:

Jesús López


"Santiago Barro" escribió en el mensaje
news:%

Sí, ya sé que puedo utilizar recordsets desde VB.NET, pero lo que quería
es
poder definir una estructura en formato XML que cualquier otra
aplicación
pudiera generar un archivo con esta estructura y poder importarla
correctamente
desde VB.NET.

Ya sé que puedo generar un archivo XML "a mano" desde un recordset, pero
quería saber si existe alguna forma que lo haga automáticamente.

Gracias y un saludo
Santiago Barro

"Jesús López" escribió en el mensaje
news:%

La aplicación VB.NET no tiene ningún problema para leer recordsets
guardados en archivos ya que en VB.NET puedes seguir usando Recordsets,
así que ¿por qué no dejarlo tal cual, en vez de complicarse la vida?

Saludos:

Jesús López



"Tiago Barro" escribió en el mensaje
news:

Hola a todos,
tengo que implementar un envío de datos entre una aplicación realizada
con vb6 y una con VB.Net.

Había pensado el traspasar los datos mediante archivos XML.

Si cargo un recordset con los datos a exportar y lo guardo mediante el
comando Save, me guarda con el siguiente formato:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='Codigo' rs:number='1' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='8'/>
</s:AttributeType>
<s:AttributeType name='Concepto' rs:number='2' rs:nullable='true'
rs:maydefer='true' rs:writeunknown='true'>
<s:datatype dt:type='string' dt:maxLength='250'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row Codigo='1' Concepto='FINANCIACION BASICA'/>
<z:row Codigo='10' Concepto='CAPITAL'/>
</rs:data>
</xml>


Este formato lo lee un mismo recordset pero no un dataset.

¿Sabeis como puedo guardar los datos para poderlos leer posteriormente
por un dataset?.

Muchas gracias y un saludo
Santiago Barro