Nenhuma avalição
COMENTAR
INDICAR
Como criar arquivox XML com ASP.NETPostada em: 13/01/2005
Como criar Arquivos XMl no ASP.NET
Esta semana estaremos ensinando como criar arquivos em XML apartir de uma consulta.
Raul Sanches Nincao
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="intranet.uems.br._default8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>default</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 72px; POSITION: absolute; TOP: 57px" runat="server" Visible="False" BorderColor="#999999" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Vertical">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#DCDCDC"></AlternatingItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Center" ForeColor="Black" BackColor="#999999" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>
</body>
</HTML>
' Classes do ASP.NET que deve ir na primeira linha do Projeto
' default.aspx.vb
Imports System.Data.SqlClient ' Método de acesso para SQL SERVER 7.0 E 2000
Imports System.IO '
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
mantaxml()
End If
End Sub
Sub mantaxml()
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim sql As String
sql = "Select Usuario, Loggin from Usuarios"
conn = New SqlConnection("server=NomeDoServerSQL;uid=Usuario;pwd=Senha;database=NomeBancoDados")
conn.Open()
da = New SqlDataAdapter(sql, conn)
ds = New DataSet()
da.Fill(ds, "Logo")
Dim strVirtualPath As String = Request.ApplicationPath & "/usuario.xml"
Dim strVSchemaPath As String = Request.ApplicationPath & "/usuario.xsd"
ds.WriteXml(Request.MapPath(strVirtualPath))
ds.WriteXmlSchema(Request.MapPath(strVSchemaPath))
' Uma das coisas mais interresantes é que o arquivo XML pode ser atualizado.
mostraGrid() ' Mosta o arquivo XML
End Sub
Sub mostraGrid()
Me.DataGrid1.Visible = True
' aqui é só usar o aplicativo de Nosso amigo Pablo Henrique onde lê o arquivo xml.
Dim meuDataSet As New DataSet()
meuDataSet.ReadXml(Server.MapPath("usuario.xml"))
DataGrid1.DataSource = meuDataSet
DataGrid1.DataBind()
End
Como criar Arquivos XMl no ASP.NET
Esta semana estaremos ensinando como criar arquivos em XML apartir de uma consulta.
Raul Sanches Nincao
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="intranet.uems.br._default8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>default</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 72px; POSITION: absolute; TOP: 57px" runat="server" Visible="False" BorderColor="#999999" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Vertical">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#DCDCDC"></AlternatingItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Center" ForeColor="Black" BackColor="#999999" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>
</body>
</HTML>
' Classes do ASP.NET que deve ir na primeira linha do Projeto
' default.aspx.vb
Imports System.Data.SqlClient ' Método de acesso para SQL SERVER 7.0 E 2000
Imports System.IO '
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
mantaxml()
End If
End Sub
Sub mantaxml()
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim sql As String
sql = "Select Usuario, Loggin from Usuarios"
conn = New SqlConnection("server=NomeDoServerSQL;uid=Usuario;pwd=Senha;database=NomeBancoDados")
conn.Open()
da = New SqlDataAdapter(sql, conn)
ds = New DataSet()
da.Fill(ds, "Logo")
Dim strVirtualPath As String = Request.ApplicationPath & "/usuario.xml"
Dim strVSchemaPath As String = Request.ApplicationPath & "/usuario.xsd"
ds.WriteXml(Request.MapPath(strVirtualPath))
ds.WriteXmlSchema(Request.MapPath(strVSchemaPath))
' Uma das coisas mais interresantes é que o arquivo XML pode ser atualizado.
mostraGrid() ' Mosta o arquivo XML
End Sub
Sub mostraGrid()
Me.DataGrid1.Visible = True
' aqui é só usar o aplicativo de Nosso amigo Pablo Henrique onde lê o arquivo xml.
Dim meuDataSet As New DataSet()
meuDataSet.ReadXml(Server.MapPath("usuario.xml"))
DataGrid1.DataSource = meuDataSet
DataGrid1.DataBind()
End
Esta semana estaremos ensinando como criar arquivos em XML apartir de uma consulta.
Raul Sanches Nincao
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="intranet.uems.br._default8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>default</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 72px; POSITION: absolute; TOP: 57px" runat="server" Visible="False" BorderColor="#999999" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Vertical">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#DCDCDC"></AlternatingItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Center" ForeColor="Black" BackColor="#999999" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>
</body>
</HTML>
' Classes do ASP.NET que deve ir na primeira linha do Projeto
' default.aspx.vb
Imports System.Data.SqlClient ' Método de acesso para SQL SERVER 7.0 E 2000
Imports System.IO '
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
mantaxml()
End If
End Sub
Sub mantaxml()
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim sql As String
sql = "Select Usuario, Loggin from Usuarios"
conn = New SqlConnection("server=NomeDoServerSQL;uid=Usuario;pwd=Senha;database=NomeBancoDados")
conn.Open()
da = New SqlDataAdapter(sql, conn)
ds = New DataSet()
da.Fill(ds, "Logo")
Dim strVirtualPath As String = Request.ApplicationPath & "/usuario.xml"
Dim strVSchemaPath As String = Request.ApplicationPath & "/usuario.xsd"
ds.WriteXml(Request.MapPath(strVirtualPath))
ds.WriteXmlSchema(Request.MapPath(strVSchemaPath))
' Uma das coisas mais interresantes é que o arquivo XML pode ser atualizado.
mostraGrid() ' Mosta o arquivo XML
End Sub
Sub mostraGrid()
Me.DataGrid1.Visible = True
' aqui é só usar o aplicativo de Nosso amigo Pablo Henrique onde lê o arquivo xml.
Dim meuDataSet As New DataSet()
meuDataSet.ReadXml(Server.MapPath("usuario.xml"))
DataGrid1.DataSource = meuDataSet
DataGrid1.DataBind()
End
Esta semana estaremos ensinando como criar arquivos em XML apartir de uma consulta.
Raul Sanches Nincao
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="intranet.uems.br._default8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>default</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 72px; POSITION: absolute; TOP: 57px" runat="server" Visible="False" BorderColor="#999999" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Vertical">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#DCDCDC"></AlternatingItemStyle>
<ItemStyle ForeColor="Black" BackColor="#EEEEEE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#000084"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Center" ForeColor="Black" BackColor="#999999" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>
</body>
</HTML>
' Classes do ASP.NET que deve ir na primeira linha do Projeto
' default.aspx.vb
Imports System.Data.SqlClient ' Método de acesso para SQL SERVER 7.0 E 2000
Imports System.IO '
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
mantaxml()
End If
End Sub
Sub mantaxml()
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim sql As String
sql = "Select Usuario, Loggin from Usuarios"
conn = New SqlConnection("server=NomeDoServerSQL;uid=Usuario;pwd=Senha;database=NomeBancoDados")
conn.Open()
da = New SqlDataAdapter(sql, conn)
ds = New DataSet()
da.Fill(ds, "Logo")
Dim strVirtualPath As String = Request.ApplicationPath & "/usuario.xml"
Dim strVSchemaPath As String = Request.ApplicationPath & "/usuario.xsd"
ds.WriteXml(Request.MapPath(strVirtualPath))
ds.WriteXmlSchema(Request.MapPath(strVSchemaPath))
' Uma das coisas mais interresantes é que o arquivo XML pode ser atualizado.
mostraGrid() ' Mosta o arquivo XML
End Sub
Sub mostraGrid()
Me.DataGrid1.Visible = True
' aqui é só usar o aplicativo de Nosso amigo Pablo Henrique onde lê o arquivo xml.
Dim meuDataSet As New DataSet()
meuDataSet.ReadXml(Server.MapPath("usuario.xml"))
DataGrid1.DataSource = meuDataSet
DataGrid1.DataBind()
End
