Site Search:
Sign in | Join | Help
4Penny.net

VB.NET

Notes, Tricks and Tips on VB.NET

  • Linq to XML with ASP Gridview in VB

     XML FILE:

    <seriesSermons>

    <series>

    <title>Building</title>

    <desc>As we enter into the construction phase of our building project, Pastor Campbell brings a series on building. Building not only walls and doors, but lives.</desc>

    <author>Dr. Mark Campbell</author>

    <details>

    <date>20080824 Sun AM</date> <file>Building with Prayer</file>

    <description>

    Nehemiah 2:1-11

    From old testament and new, Pastor Campbell continues the series on building. This week - building with prayer.

    </description>

    </details>

    <details>

    <date>20080817 Sun AM</date>

    <file>Building with Prayer</file>

    <description>

    Nehemiah 1:1-11

    As our new building is set to begin, Pastor Campbell begins a series in Nehemiah - God’s building story.

    </description>

    </details>

    </series>

    <series>

    <title>Acts</title>

    <desc>

    Pastor Campbell continues our weekly bible study in Acts

    </desc>

    <author>Dr. Mark Campbell</author>

    <details>

    <date>20080720 Wed PM</date>

    <file>Acts 26</file>

    <description>

    Pastor Campbell continues our weekly bible study in Acts

    </description>

    </details>

    <details>

    <date>20080806 Wed PM</date>

    <file>Acts 26</file>

    <description>

    Acts 26:19-20

    Pall continues his defense before King Agrippa

    </description>

    </details>

    </series>

    </seriesSermons>

    Imports:

    Imports System.Xml.Linq

    Imports System.Linq 

    VB Code Behind:  Page Load()

    Dim strTitle As String = Request.QueryString("id")

    Dim seriesXML As XDocument = XDocument.Load(Server.MapPath("/XML/seriesSermons.xml"))

     

    Dim var = From series In seriesXML.Descendants("series") _               

                   Where series.Elements("title").Value = strTitle

     

    Dim det = From details In var.Descendants("details") _

                  Select strDate = details.Element("date").Value, _

                                   file = details.Element("file").Value, _

                                 desc = details.Element("description").Value()

     

    gvSeriesDetail.DataSource = det.ToList()

    gvSeriesDetail.DataBind()
    Posted Aug 26 2008, 11:35 AM by Crystal with no comments

  • Setting Themes in web.config file

           

            Dim Theme As String
            Dim ThemeConfig As System.Configuration.Configuration
            Dim section As PagesSection

            ThemeConfig = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("/")

            section = ThemeConfig.GetSection("system.web/pages")
            section.Theme = Theme

            ThemeConfig.Save()

            Response.Redirect("~/Default.aspx")

    Posted Jul 22 2008, 02:45 PM by Crystal with no comments

  • Subsonic VB Setup

    Web.config 

    <configuration>
     <configSections>
      
               <section name="SubSonicService" type="SubSonic.SubSonicSection, SubSonic" requirePermission="false"/>
      
     </configSections>

    <SubSonicService defaultProvider="OnlineNotes">
        <providers>
          <clear/>
          <add name="OnlineNotes" type="SubSonic.SqlDataProvider, SubSonic" connectionStringName="OnlineNotes" generatedNamespace="OnlineNotes"   includeTableList="^_" includeProcedureList="^FP"/>
        </providers>
    </SubSonicService>

     

    VisualStudio > Tools > External Tools > Add
     Name is Subsonic DAL and browse for the exe file
      C:\Program Files\SubSonic\SubSonic 2.0.3\SubCommander\sonic.exe
     
     Arguments: generate/out App_Code\Generated/lang vb

     Initial Directory: Project Directory
     
     x Use Output Window                            x Prompt for arguments

    Posted Jun 24 2008, 08:17 AM by Crystal with no comments
More Posts Next page »