Uso de xml en vb y sql server

[GrevenLord]

bueno aqui les dejo un pequeño codigo de escritura de archivos xml, más adelante veremos más cosas

Código (vbnet) [Seleccionar] Expandir


Imports System.Data.SqlClient
Imports System.Data
Imports System.Configuration


Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim conexion As SqlConnection
        conexion = New SqlConnection(ConfigurationManager.AppSettings("conexionBD"))
'notese no le mando el string de conexión ya que está configirado en el web.config

       

       
        Try
            conexion.Open() 'está claro, abro la conexión
            Dim ds As DataSet = New DataSet()
            Dim da As SqlDataAdapter = New SqlDataAdapter("select * from Tabla1", conexion)'leo los datos de una tabla, ubicada en la base de datos definida en el web.comfig
            da.Fill(ds)
            ds.WriteXml(Server.MapPath("xml1.xml"))'escribo el xml

            conexion.Close()   ' cierro la conexión
            conexion = Nothing ' por seguridad dejo con nada la variable conexion


        Catch ex As Exception
            Response.Write("malo")
        End Try



    End Sub



End Class



y aqui dejo el web.config como es por default

Código (xml) [Seleccionar] Expandir




<configuration>
<appSettings/>
<connectionStrings/>
<system.web>

<compilation debug="true" strict="false" explicit="true"/>
<pages>
<namespaces>
<clear/>
<add namespace="System"/>
<add namespace="System.Collections"/>
<add namespace="System.Collections.Specialized"/>
<add namespace="System.Configuration"/>
<add namespace="System.Text"/>
<add namespace="System.Text.RegularExpressions"/>
<add namespace="System.Web"/>
<add namespace="System.Web.Caching"/>
<add namespace="System.Web.SessionState"/>
<add namespace="System.Web.Security"/>
<add namespace="System.Web.Profile"/>
<add namespace="System.Web.UI"/>
<add namespace="System.Web.UI.WebControls"/>
<add namespace="System.Web.UI.WebControls.WebParts"/>
<add namespace="System.Web.UI.HtmlControls"/>
</namespaces>
</pages>

<authentication mode="Windows"/>

</system.web>
</configuration>



y aquí lo que se agrega al web config y donde

Código (xml) [Seleccionar] Expandir



<configuration>
<appSettings>
<add key="conexionBD" value="data source=HOGAR-520044AE2; initial catalog=Prueba; integrated security=true"/>
</appSettings>
<connectionStrings/>
<system.web>

<compilation debug="true" strict="false" explicit="true"/>
<pages>
<namespaces>
<clear/>
<add namespace="System"/>
<add namespace="System.Collections"/>
<add namespace="System.Collections.Specialized"/>
<add namespace="System.Configuration"/>
<add namespace="System.Text"/>
<add namespace="System.Text.RegularExpressions"/>
<add namespace="System.Web"/>
<add namespace="System.Web.Caching"/>
<add namespace="System.Web.SessionState"/>
<add namespace="System.Web.Security"/>
<add namespace="System.Web.Profile"/>
<add namespace="System.Web.UI"/>
<add namespace="System.Web.UI.WebControls"/>
<add namespace="System.Web.UI.WebControls.WebParts"/>
<add namespace="System.Web.UI.HtmlControls"/>
</namespaces>
</pages>

<authentication mode="Windows"/>

</system.web>
</configuration>



esto es lo que se agrega

Código (xml) [Seleccionar] Expandir


<appSettings>
<add key="conexionBD" value="data source=InstanciaSQLServer; initial catalog=Prueba; integrated security=true"/>
</appSettings>


donde conexionBD es el nombre de la variable, data source la instancia de sql server donde se encuentra nuestra base de datos e initialcatalog es el nombre de la base de datos.

espero este claro