[aspdecoffeehouse] ASP vs .NET > .Net genial

Jï¿½rg Schwalenberg Tue, 16 Jul 2002 15:18:27 -0700

Weil heute ein schï¿½ner Tag war, ein Beispiel dieser Genialitï¿½t.
Mit dem folgenden Code generiere ich aus einem DataSet eine xml Datei, die diesen 
Inhalt fï¿½r mich jederzeit in x beliebigen Seiten, ohne immer wieder auszufï¿½hrende DB 
Abfragen , bereithï¿½lt ;-). Das kann ich zu jeder DB ï¿½nderung einfach an den Update- 
Insert Befehl anhï¿½ngen.


....................................
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> 
<%@ Import Namespace= "System.IO" %>
<%@ Import Namespace = "System.Xml" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>

<script language="VB" runat="server">
Private Sub DbUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

Dim myConnection As New OleDBConnection("Connection zur Access Datenbank > Jet 4.0")
Dim myCommand As New OleDbDataAdapter("SELECT * FROM Unterkuenfte where 
kategorie='Hotels'", myConnection)

Dim ds As New DataSet()
myCommand.Fill(ds, "Unterkuenfte")

    ds.WriteXml("d:\aspnet\unterkuenfte.xml")
    ds.WriteXml("d:\aspnet\unterkuenfte_schema.xml", XmlWriteMode.WriteSchema)
    ds.WriteXmlSchema("d:\aspnet\unterkuenfte.xsd")

  End Sub
</script>
...............................................

In jeder x beliebigen Seite hole ich mit dann das xml als Datagrid einfach wieder 
zurï¿½ck !!
Und ich habe auch noch die entsprechenden Schema Seiten.
...........................................................
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>

<html>

<script language="VB" runat="server">

    Sub Page_Load(Sender As Object, E As EventArgs)
        Dim DS As New DataSet
        Dim FS As FileStream
        Dim Reader As StreamReader

        FS = New 
FileStream("d:\aspnet\unterkuenfte_schema.xml",FileMode.Open,FileAccess.Read)
        Reader = New StreamReader(FS)
        DS.ReadXml(Reader)
        FS.Close()

        Dim Source As DataView
        Source = new DataView(ds.Tables(0))

        MyLiteral.Text = Source.Table.TableName
        MyDataGrid.DataSource = Source
        MyDataGrid.DataBind()
    End Sub

</script>

<body>

  <h3><font face="Verdana">XML-Daten fï¿½r Tabelle: <asp:Literal id="MyLiteral" 
runat="server" /></font></h3>

  <ASP:DataGrid id="MyDataGrid" runat="server"
    Width="900"
    BackColor="#ccccff"
    BorderColor="black"
    ShowFooter="false"
    CellPadding=3
    CellSpacing="0"
    Font-Name="Verdana"
    Font-Size="8pt"
    HeaderStyle-BackColor="#aaaadd"
    EnableViewState="false"
  />

</body>
</html>
...................................

 Also wenn das nicht genial ist ;-)
Wenn man jetzt etwas nachdenkt, dann erï¿½ffen sich schon aus diesen einfachen Sachen 
absolute Power Pakete !

MfG
J. Schwalenberg
______________________
www.udex.de
www.ultradevextensions.de
[EMAIL PROTECTED]
______________________
Think big - UDEX Software !
Software & Extensions for Dreamweaver Ultradev & MX


| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie kï¿½nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

[aspdecoffeehouse] ASP vs .NET > .Net genial

Antwort per Email an