LearnVisualStudio is currently having a Summer Sale on all of its memberships. Click on the link below to receive your discount now:

Get LearnVisualStudio at 15% off now

Click the following link to get your 15% discount on LearnVisualStudio now:

Get LearnVisualStudio at 15% off now

Post from: IdealProgrammer.com

Related posts:

1. Business Intelligence Overview and Stories – 4 Videos Here is a collection of free video tutorials on Business...
2. Tip #3 – Print VB/C# Syntax Cheat Sheet VB.Net vs C-Sharp Comparison is a very concise reference for...
3. Tip #4 – Get Inspired By Anders Hejlsberg Anders Hejlsberg is the chief architect for C# at Microsoft....

Related posts brought to you by Yet Another Related Posts Plugin.

LearnVisualStudio is currently having a Summer Sale on all of its memberships. Click on the link below to receive your discount now:

Get LearnVisualStudio at 15% off now

Click the following link to get your 15% discount on LearnVisualStudio now:

Get LearnVisualStudio at 15% off now

Post from: IdealProgrammer.com

Related posts:

1. Anders Hejlsberg – C-Sharp – Anders Hejlsberg Chief Architect (5 Hours of Video) Need some inspiration? The first video on .NET programming that...
2. Tip #3 – Print VB/C# Syntax Cheat Sheet VB.Net vs C-Sharp Comparison is a very concise reference for...
3. Tip #5 – Move in the Direction of Using Business Intelligence to Turn Data into Actionable Information Business Intelligence allows you to take a lot of various...

Related posts brought to you by Yet Another Related Posts Plugin.

LearnVisualStudio is currently having a Summer Sale on all of its memberships. Click on the link below to receive your discount now:

Get LearnVisualStudio at 15% off now

Click the following link to get your 15% discount on LearnVisualStudio now:

Get LearnVisualStudio at 15% off now

Post from: IdealProgrammer.com

Related posts:

1. ASP.NET Web Site Security Vulnerability Cheat Sheet 1. To avoid SQL Injection, replace all SQL Commands with...
2. 5 Pillars photo credit: Panoramas Five Pillars of .NET Programming  ...
3. Programmer Downloads, Tools, Resources, and 100 Cheat Sheets Over 20 resources and tools that will help one to...

Related posts brought to you by Yet Another Related Posts Plugin.

LearnVisualStudio is currently having a Summer Sale on all of its memberships. Click on the link below to receive your discount now:

Get LearnVisualStudio at 15% off now

This documentation was gathered using the Firefox browser with the firebug extension and using the timeline feature under the Net tab.

Notes: You may have to reinstall latest version of Firefox for Firebug to work. Also, refresh button in browsers does not use cache so you may need to load pages in separate tabs in browser to see the power of page output cache.

Most of the things on the graph are talking about loading various components of the page (javascript files, images, css files, and so on).

The part of the graph that describes things that programmers can change with .NET code  are included in the GET xxxxx.aspx line. The time involved in the GET xxxx.aspx page includes three things:

1. The time for the HTTP request to go to server
2.  The time it takes to build the page on the server (this is the part that programming influences)
3.  The time it takes to send the HTTP response back to the browser

Click the following link to get your 15% discount on LearnVisualStudio now:

Get LearnVisualStudio at 15% off now

Post from: IdealProgrammer.com

Related posts:

1. VB.NET ASP.NET Table Load From SqlDataReader Source Code Example VB.NET ASP.NET Table Load From SqlDataReader Source Code Example...
2. Tip #3 – Print VB/C# Syntax Cheat Sheet VB.Net vs C-Sharp Comparison is a very concise reference for...
3. Tip #4 – Get Inspired By Anders Hejlsberg Anders Hejlsberg is the chief architect for C# at Microsoft....

Related posts brought to you by Yet Another Related Posts Plugin.

LearnVisualStudio is currently having a Summer Sale on all of its memberships. Click on the link below to receive your discount now:

GetLearnVisualStudio at 15% off now

If you would like to download a library of over 200 code samples for C-Sharp,VB.NET, HTML, Javascript, and SQL Server, click here. Each sample contains an explanation of the syntax involved.  This library can be a great resource when trying to build an application quickly from"pre-existing parts."

Click the following link to get your 15% discount on LearnVisualStudio now:

Get LearnVisualStudio at 15% off now

Post from: IdealProgrammer.com

Related posts:

1. Free DVD Burning Software and How to Burn A DVD in 3 Simple Steps for Free Shows how to burn Microsoft Webcasts to DVD so that...
2. Tip #3 – Print VB/C# Syntax Cheat Sheet VB.Net vs C-Sharp Comparison is a very concise reference for...
3. Tip #4 – Get Inspired By Anders Hejlsberg Anders Hejlsberg is the chief architect for C# at Microsoft....

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates using Binary File with Sequential Read in VB.NET ASP.NET.

Prerequistes:

1. Install Visual Web Developer 2010
2. Install SQL Server Express
3. Download Northwind and Pubs Databases
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• You can build your own library of syntax examples by using same web site over and over and just add new web forms to it.

Instructions:

1. Use Visual Web Developer 2010
2. Create new web site;
   • Click File/New Web Site
   • Select ASP.NET Website Template
   • Select Visual Basic for Language
   • name of Web Site could be VBNET_ASPNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Web Form Named BinaryFileReadSequential to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select Web Form
   • Check place code behind in separate file
   • Web Form name could be BinaryFileReadSequential
5. Click on copy code in code below to copy code into web form BinaryFileReadSequential.aspx
6. Click on copy code in second set of code below to copy code into code-behind BinaryFileReadSequential.aspx.vb
7. Right-click on BinaryFileReadSequential.aspx in solution explorer and select view in browser

Step 1: Click on Copy Code to Cut-n-paste code into BinaryFileReadSequential.aspx

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="BinaryFileReadSequential.aspx.vb" Inherits="FileDirectory_BinaryFileReadSequential" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:gridview ID="GridView1" runat="server">
        </asp:gridview>
    </div>
    </form>
</body>
</html>
 

Imports System
Imports System.IO
Imports System.Data
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
' This example is from http://idealprogrammer.com
' It shows how you can use a binary file to track errors and also trace program execution
' The errors and trace msgs are hard-coded in this example for simplicity
 
Partial Class FileDirectory_BinaryFileReadSequential
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim formatter As BinaryFormatter = New BinaryFormatter()
        Dim output As FileStream
 
        Dim fileName As String = "c:\ErrorsSeq.log"
 
 
 
        Try
            output = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
 
            'Write the records - the errors and trace msgs are hard-coded for simplicity
 
 
            Dim myErr As ErrSeq = New ErrSeq(1, "Fake Error: IO error", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
            myErr = New ErrSeq(2, "Fake Error: Array out of Bounds", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
            myErr = New ErrSeq(3, "Fake Error: Divide Exception", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
            myErr = New ErrSeq(4, "Fake Trace Msg: Executed Page Load", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
            myErr = New ErrSeq(5, "Fake Trace Msg: Executed DataBind", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
            myErr = New ErrSeq(6, "Fake Trace Msg: Executed Function to Calc dates", System.DateTime.Now)
 
            formatter.Serialize(output, myErr)
 
 
 
 
 
        Catch fileException As FileNotFoundException
            System.Diagnostics.Debug.Write("File Does Not Exist")
        Catch serializableException As SerializationException
            System.Diagnostics.Debug.Write("Error Writing to File")
        Catch formattingException As FormatException
            System.Diagnostics.Debug.Write("Invalid Format")
        Catch ex As IOException
            System.Diagnostics.Debug.Write("Cannot open file")
 
        End Try
 
        Try
            output.Close()
        Catch ex As IOException
            System.Diagnostics.Debug.Write("Cannot close file")
 
        End Try
 
 
 
 
        Dim input As FileStream
 
        Dim reader As BinaryFormatter = New BinaryFormatter()
 
        input = New FileStream(fileName, FileMode.Open, FileAccess.Read)
        Dim intFileLength As Integer = input.Length
 
 
        Dim Table1 As DataTable
        Table1 = New DataTable("Errors")
        'creating a table named Errors
        Dim Row1 As DataRow
        'declaring row for the table
 
        Dim ErrorID As DataColumn = New DataColumn("ErrorID")
        'declaring a column named EmployeeID
        ErrorID.DataType = System.Type.GetType("System.Int32")
        'setting the datatype for the column
        Table1.Columns.Add(ErrorID)
        'adding the column to table
        Dim ErrorDescription As DataColumn = New DataColumn("ErrorDescription")
        ErrorDescription.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(ErrorDescription)
 
        Dim ErrorDate As DataColumn = New DataColumn("ErrorDate")
        ErrorDate.DataType = System.Type.GetType("System.DateTime")
        Table1.Columns.Add(ErrorDate)
 
        While input.Position < intFileLength
            Try
                Dim myErr As ErrSeq = CType(reader.Deserialize(input), ErrSeq)
 
 
                Row1 = Table1.NewRow()
                'declaring a new row
                Row1.Item("ErrorID") = myErr.ErrorID
                'filling the row with values. Item property is used to set the field value.
                Row1.Item("ErrorDescription") = myErr.ErrorDescription
                'filling the row with values. adding ErrorDescription
                Row1.Item("ErrorDate") = myErr.ErrorDate
                'filling the row with values. Item property is used to set the field value.
 
                Table1.Rows.Add(Row1)
            Catch serializableException As SerializationException
 
 
                System.Diagnostics.Debug.Write("Serialization Exception")
            End Try
 
        End While
 
 
 
 
 
 
 
 
        input.Close()
 
        'System.Diagnostics.Debug.Write("No more records in file")
 
 
 
 
 
        GridView1.DataSource = Table1
        GridView1.DataBind()
    End Sub
 
End Class
<Serializable()> Public Structure ErrSeq
    Public ErrorID As Integer
    <vbfixedstring (100)> Public ErrorDescription As String
    </vbfixedstring><vbfixedstring (50)> Public ErrorDate As String
 
    Public Sub New(ByVal new_id As Integer, ByVal error_description As String, _
     ByVal error_datetime As String)
        ErrorID = new_id
        ErrorDescription = error_description
        ErrorDate = error_datetime
    End Sub
 
 
End Structure
 
 
 
 
</vbfixedstring>

Post from: IdealProgrammer.com

Related posts:

1. VB.NET ASP.NET Binary File Random Read Source Code Example VB.NET ASP.NET Binary File Random Read Source Code Example...
2. VB.NET Binary File Read Sequential – Source Code Example VB.NET Binary File Read Sequential - Source Code Example...
3. VB.NET Binary File Read Random – Source Code Example VB.NET Binary File Read Random - Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates using Binary File with Random Read in VB.NET ASP.NET.

Prerequistes:

1. Install Visual Web Developer 2010
2. Install SQL Server Express
3. Download Northwind and Pubs Databases
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• You can build your own library of syntax examples by using same web site over and over and just add new web forms to it.

Instructions:

1. Use Visual Web Developer 2010
2. Create new web site;
   • Click File/New Web Site
   • Select ASP.NET Website Template
   • Select Visual Basic for Language
   • name of Web Site could be VBNET_ASPNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Web Form Named BinaryFileRandomRead to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select Web Form
   • Check place code behind in separate file
   • Web Form name could be BinaryFileRandomRead
5. Click on copy code in code below to copy code into web form BinaryFileRandomRead.aspx
6. Click on copy code in second set of code below to copy code into code-behind BinaryFileRandomRead.aspx.vb
7. Right-click on BinaryFileRandomRead.aspx in solution explorer and select view in browser

Step 1: Click on Copy Code to Cut-n-paste code into BinaryFileRandomRead.aspx

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="BinaryFileReadRandom.aspx.vb" Inherits="FileDirectory_BinaryFileReadRandom" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:gridview ID="GridView1" runat="server">
        </asp:gridview>
    </div>
    </form>
</body>
</html>
 

Imports System
Imports System.IO
Imports System.Data
' This example is from http://idealprogrammer.com
' It shows how you can use a binary file to track errors and also trace program execution
' The errors and trace msgs are hard-coded in this example for simplicity
Partial Class FileDirectory_BinaryFileReadRandom
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myErr As New Err
 
        'Find next available file number
        Dim file_num As Integer = FreeFile()
 
        'Open file in random mode so we can write the records 
        FileOpen(file_num, "c:\Errors.log", OpenMode.Random, _
             OpenAccess.ReadWrite, OpenShare.Shared, _
             Len(myErr))
 
        'Write the records - the errors and trace msgs are hard-coded for simplicity
        Try
            FilePut(file_num, New Err(1, "Fake Error: IO error", System.DateTime.Now))
            FilePut(file_num, New Err(2, "Fake Error: Array out of Bounds", System.DateTime.Now))
            FilePut(file_num, New Err(3, "Fake Error: Divide Exception", System.DateTime.Now))
            FilePut(file_num, New Err(4, "Fake Trace Msg: Executed Page Load", System.DateTime.Now))
            FilePut(file_num, New Err(5, "Fake Trace Msg: Executed DataBind", System.DateTime.Now))
            FilePut(file_num, New Err(6, "Fake Trace Msg: Executed Function to Calc dates", System.DateTime.Now))
 
        Catch fileException As FileNotFoundException
            FilePut(file_num, New Err(7, "File does not exist", System.DateTime.Now))
        Catch formattingException As FormatException
            FilePut(file_num, New Err(8, "Invalid format", System.DateTime.Now))
 
 
        End Try
 
        Dim Table1 As DataTable
        Table1 = New DataTable("Errors")
        'creating a table named Errors
        Dim Row1 As DataRow
        'declaring row for the table
 
        Dim ErrorID As DataColumn = New DataColumn("ErrorID")
        'declaring a column named EmployeeID
        ErrorID.DataType = System.Type.GetType("System.Int32")
        'setting the datatype for the column
        Table1.Columns.Add(ErrorID)
        'adding the column to table
        Dim ErrorDescription As DataColumn = New DataColumn("ErrorDescription")
        ErrorDescription.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(ErrorDescription)
 
        Dim ErrorDate As DataColumn = New DataColumn("ErrorDate")
        ErrorDate.DataType = System.Type.GetType("System.DateTime")
        Table1.Columns.Add(ErrorDate)
 
        'Read the records
        Dim myErr2 As ValueType = DirectCast(myErr, ValueType)
        For i = 6 To 1 Step -2
 
 
            FileGet(file_num, myErr2, i)
            myErr = DirectCast(myErr2, Err)
            Row1 = Table1.NewRow()
            'declaring a new row
            Row1.Item("ErrorID") = myErr.ErrorID
            'filling the row with values. Item property is used to set the field value.
            Row1.Item("ErrorDescription") = myErr.ErrorDescription
            'filling the row with values. adding ErrorDescription
            Row1.Item("ErrorDate") = myErr.ErrorDate
            'filling the row with values. Item property is used to set the field value.
 
            Table1.Rows.Add(Row1)
        Next i
 
        ' Close the file.
        Try
            FileClose(file_num)
        Catch ex As IOException
            System.Diagnostics.Debug.Write("Cannot close file")
        End Try
 
 
        GridView1.DataSource = Table1
        GridView1.DataBind()
    End Sub
 
End Class
Public Structure Err
    Public ErrorID As Integer
    <vbfixedstring (100)> Public ErrorDescription As String
    </vbfixedstring><vbfixedstring (50)> Public ErrorDate As String
 
    Public Sub New(ByVal new_id As Integer, ByVal error_description As String, _
     ByVal error_datetime As String)
        ErrorID = new_id
        ErrorDescription = error_description
        ErrorDate = error_datetime
    End Sub
 
 
End Structure
</vbfixedstring>

Post from: IdealProgrammer.com

Related posts:

1. VB.NET ASP.NET Binary File Sequential Read Source Code Example VB.NET ASP.NET Binary File Sequential Read Source Code Example...
2. VB.NET Binary File Read Random – Source Code Example VB.NET Binary File Read Random - Source Code Example...
3. VB.NET Binary File Read Sequential – Source Code Example VB.NET Binary File Read Sequential - Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates the VB.NET Syntax for Sequential Read of Binary File.

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind and pubs Database
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use Visual Basic 2008 Express or Standard Edition
2. Create new project;
   • Click File/New Project
   • Select Console Application Template
   • Select Visual Basic for Language
   • name of project could be VBNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Class Named clsBinaryFileReadSequential to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select class
   • Class name could be clsBinaryFileReadSequential
5. Click on copy code in code below to copy code into clsBinaryFileReadSequential.vb
6. Click on copy code in second set of code below to copy code into Module1.vb
7. Click green arrow or press F5 to run program

Step 1: Use Copy Code to Cut-n-paste code into clsBinaryFileReadSequential.vb

Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Public Class clsBinaryFileReadSequential
 
 
 
    Public Shared Sub Main()
        Dim formatter As BinaryFormatter = New BinaryFormatter()
        Dim output As FileStream
 
        Dim fileName As String = "books.dat"
 
 
 
        Try
            output = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
 
            Dim Book As Book = New Book(1, "The Republic", "Plato")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(2, "Romeo & Juliet", "Shakespeare")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(3, "The Symposium", "Plato")
 
            formatter.Serialize(output, Book)
 
            output.Close()
 
        Catch fileException As FileNotFoundException
            Console.WriteLine("File Does Not Exits")
        Catch serializableException As SerializationException
            Console.WriteLine("Error Writing to File")
        Catch formattingException As FormatException
            Console.WriteLine("Invalid Format")
        Catch e As IOException
            Console.WriteLine("Cannot close file")
 
        End Try
 
 
 
        Dim input As FileStream
 
        Dim reader As BinaryFormatter = New BinaryFormatter()
 
        input = New FileStream(fileName, FileMode.Open, FileAccess.Read)
        Dim intFileLength As Integer = input.Length
 
 
 
 
        While input.Position < intFileLength
            Try
                Dim myBook As Book = CType(reader.Deserialize(input), Book)
 
                Console.WriteLine(myBook)
            Catch serializableException As SerializationException
 
 
                Console.WriteLine("Serialization Exception")
            End Try
 
        End While
 
 
 
 
 
 
 
 
        input.Close()
 
        Console.WriteLine("No more records in file")
 
 
        Console.ReadLine()
    End Sub
 
End Class
 
 
 
 
<Serializable()> Public Structure Book
    Public ID As Integer
    <vbfixedstring (25)> Public BookName As String
    </vbfixedstring><vbfixedstring (25)> Public BookAuthor As String
 
    Public Sub New(ByVal new_id As Integer, ByVal Book_name As String, _
     ByVal Book_author As String)
        ID = new_id
        BookName = Book_name
        BookAuthor = Book_author
    End Sub
 
    Public Overrides Function ToString() As String
        Return ID & ": " & BookName & " " & BookAuthor
    End Function
End Structure
 
 
 
 
 
 
 
 
 
 
</vbfixedstring>

Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        'Dim mySQLConnectionConnectionString As New clsSQLConnectionConnectionString
        'mySQLConnectionConnectionString.Main()
 
        'Dim mySQLInsert As New clsSQLInsert
        'mySQLInsert.Main()
 
        'Dim mySQLParameters As New clsSQLParameters
        'mySQLParameters.Main()
 
        'Dim mySQLCallStoredProcedure As New clsSQLCallStoredProcedure
        'mySQLCallStoredProcedure.Main()
 
        'Dim mySQLSelect As New clsSQLSelect
        'mySQLSelect.Main()
 
        'Dim mySqlCommandDelete As New clsSqlCommandDelete
        'mySqlCommandDelete.Main()
 
        'Dim mySqlCommandUpdate As New clsSqlCommandUpdate
        'mySqlCommandUpdate.Main()
 
        'Dim mySqlDataReader As New clsSqlDataReader
        'mySqlDataReader.Main()
 
        'Dim myStringFormatDateTime As New clsStringFormatDateTime
        'myStringFormatDateTime.Main()
 
        'Dim myStringBuilder As New clsStringBuilder
        'myStringBuilder.Main()
 
        'Dim myString As New clsString
        'myString.Main()
 
        'Dim myDataTableSqlDataReader As New clsDataTableSqlDataReader
        'myDataTableSqlDataReader.Main()
 
        'Dim myBinaryFileReadRandom As New clsBinaryFileReadRandom
        'myBinaryFileReadRandom.Main()
 
        Dim myBinaryFileReadSequential As New clsBinaryFileReadSequential
        myBinaryFileReadSequential.Main()
 
 
 
    End Sub
 
End Module
 
 
 
 
 

Post from: IdealProgrammer.com

Related posts:

1. VB.NET Binary File Read Random – Source Code Example VB.NET Binary File Read Random - Source Code Example...
2. VB.NET ASP.NET Binary File Sequential Read Source Code Example VB.NET ASP.NET Binary File Sequential Read Source Code Example...
3. VB.NET ASP.NET Binary File Random Read Source Code Example VB.NET ASP.NET Binary File Random Read Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates the VB.NET Syntax for Random Read of Binary File.

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind and pubs Database
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use Visual Basic 2008 Express or Standard Edition
2. Create new project;
   • Click File/New Project
   • Select Console Application Template
   • Select Visual Basic for Language
   • name of project could be VBNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Class Named clsBinaryFileReadRandom to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select class
   • Class name could be clsBinaryFileReadRandom
5. Click on copy code in code below to copy code into clsBinaryFileReadRandom.vb
6. Click on copy code in second set of code below to copy code into Module1.vb
7. Click green arrow or press F5 to run program

Step 1: Use Copy Code to Cut-n-paste code into clsBinaryFileReadRandom.vb

Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Public Class clsBinaryFileReadRandom
 
 
 
    Public Shared Sub Main()
        Dim formatter As BinaryFormatter = New BinaryFormatter()
        Dim output As FileStream
 
        Dim fileName As String = "books.dat"
 
 
 
        Try
            output = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
 
            Dim Book As Book = New Book(1, "The Republic", "Plato")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(2, "Romeo & Juliet", "Shakespeare")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(3, "The Symposium", "Plato")
 
            formatter.Serialize(output, Book)
 
            output.Close()
 
        Catch fileException As FileNotFoundException
            Console.WriteLine("File Does Not Exits")
        Catch serializableException As SerializationException
            Console.WriteLine("Error Writing to File")
        Catch formattingException As FormatException
            Console.WriteLine("Invalid Format")
        Catch e As IOException
            Console.WriteLine("Cannot close file")
 
        End Try
 
 
 
        Dim input As FileStream
 
        Dim reader As BinaryFormatter = New BinaryFormatter()
 
        input = New FileStream(fileName, FileMode.Open, FileAccess.Read)
        Dim intFileLength As Integer = input.Length
 
 
 
 
        While input.Position < intFileLength
            Try
                Dim myBook As Book = CType(reader.Deserialize(input), Book)
 
                Console.WriteLine(myBook)
            Catch serializableException As SerializationException
 
 
                Console.WriteLine("Serialization Exception")
            End Try
 
        End While
 
 
 
 
 
 
 
 
        input.Close()
 
        Console.WriteLine("No more records in file")
 
 
        Console.ReadLine()
    End Sub
 
End Class
 
 
 
 
<Serializable()> Public Structure Book
    Public ID As Integer
    <vbfixedstring (25)> Public BookName As String
    </vbfixedstring><vbfixedstring (25)> Public BookAuthor As String
 
    Public Sub New(ByVal new_id As Integer, ByVal Book_name As String, _
     ByVal Book_author As String)
        ID = new_id
        BookName = Book_name
        BookAuthor = Book_author
    End Sub
 
    Public Overrides Function ToString() As String
        Return ID & ": " & BookName & " " & BookAuthor
    End Function
End Structure
 
 
 
 
 
 
</vbfixedstring>

Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        'Dim mySQLConnectionConnectionString As New clsSQLConnectionConnectionString
        'mySQLConnectionConnectionString.Main()
 
        'Dim mySQLInsert As New clsSQLInsert
        'mySQLInsert.Main()
 
        'Dim mySQLParameters As New clsSQLParameters
        'mySQLParameters.Main()
 
        'Dim mySQLCallStoredProcedure As New clsSQLCallStoredProcedure
        'mySQLCallStoredProcedure.Main()
 
        'Dim mySQLSelect As New clsSQLSelect
        'mySQLSelect.Main()
 
        'Dim mySqlCommandDelete As New clsSqlCommandDelete
        'mySqlCommandDelete.Main()
 
        'Dim mySqlCommandUpdate As New clsSqlCommandUpdate
        'mySqlCommandUpdate.Main()
 
        'Dim mySqlDataReader As New clsSqlDataReader
        'mySqlDataReader.Main()
 
        'Dim myStringFormatDateTime As New clsStringFormatDateTime
        'myStringFormatDateTime.Main()
 
        'Dim myStringBuilder As New clsStringBuilder
        'myStringBuilder.Main()
 
        'Dim myString As New clsString
        'myString.Main()
 
        'Dim myDataTableSqlDataReader As New clsDataTableSqlDataReader
        'myDataTableSqlDataReader.Main()
 
        Dim myBinaryFileReadRandom As New clsBinaryFileReadRandom
        myBinaryFileReadRandom.Main()
 
        'Dim myBinaryFileReadSequential As New clsBinaryFileReadSequential
        'myBinaryFileReadSequential.Main()
 
 
 
    End Sub
 
End Module
 
 
 
 

Post from: IdealProgrammer.com

Related posts:

1. VB.NET Binary File Read Sequential – Source Code Example VB.NET Binary File Read Sequential - Source Code Example...
2. VB.NET ASP.NET Binary File Random Read Source Code Example VB.NET ASP.NET Binary File Random Read Source Code Example...
3. VB.NET ASP.NET Binary File Sequential Read Source Code Example VB.NET ASP.NET Binary File Sequential Read Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates the SQL Server syntax for With Common Table Expressions.

SYNTAX:

[ WITH common_table_expression [ (column_name [ ,...n ] ) ]
AS
( SELECT [ ALL | DISTINCT ]
[TOP ( expression ) [PERCENT] [ WITH TIES ] ]
column_list
[ FROM { table_source } [ ,...n ] ]
[ WHERE select_condition]
[ GROUP BY ]
[ HAVING search_condition ]
[ ORDER BY order_expression [ ASC | DESC ] ] )

PURPOSE:
WITH allows you to create a temporary result set that is called a common table expression (CTE). The CTE has column names that match up with the column names listed in the SELECT statement that follows the AS keyword and that is enclosed in parentheses. When a CTE contains a reference to itself, this is called a recursive CTE. For a more complete description of syntax and examples, please refer to: http://msdn.microsoft.com/en-us/library/ms175972(v=SQL.105).aspx

Code Sample for WITH Common Table Expressions:

 
/* WITH example from http://idealprogrammer.com 
 
 PURPOSE: WITH allows you to create a temporary result set that is called a common table expression
 (CTE). The CTE has column names that match up with the column names listed in the SELECT statement
 that follows the AS keyword and that is enclosed in parentheses. When a CTE contains a reference
 to itself, this is called a recursive CTE. For a more complete description of syntax and examples,
 please refer to: http://msdn.microsoft.com/en-us/library/ms175972(v=SQL.105).aspx
          
 
 SYNTAX: 
 
 [ WITH common_table_expression [ (column_name [ ,...n ] ) ]
    AS
    ( SELECT [ ALL | DISTINCT ] 
			[TOP ( expression ) [PERCENT] [ WITH TIES ] ] 
			 column_list  		
			[ FROM { table_source } [ ,...n ] ] 
			[ WHERE select_condition] 
			[ GROUP BY ] 
			[ HAVING  search_condition  ] 
			[ ORDER BY  order_expression [ ASC | DESC ] ] )
 
   
*/
 
 
CREATE TABLE people(
     ID          INT,
     firstname   VARCHAR (20),
     lastname    VARCHAR (20),
     statecode   VARCHAR (2),
     alive       BIT,
     height      INT )
 GO
 
 
 
 INSERT INTO people (ID, firstname, lastname, statecode, alive, height) 
 VALUES (1,  'Paul', 'Revere', 'AL', 0, 72)
 GO
 
 INSERT INTO people (ID, firstname, lastname, alive, height) -- statecode NULL
 VALUES (2,  'John', 'Lennon',  0, 69)
 GO
 
 INSERT INTO people (ID, firstname, lastname, statecode, alive, height)
 VALUES (3,  'Steve', 'Martin', 'NY', 1, 75)
 GO
 
 INSERT INTO people (ID, firstname, lastname, statecode, alive, height)
 VALUES (4,  'George', 'Washington', 'VA', 0, 75)
 GO
 
 
 
 --Display entire table
 SELECT 'Entire Table' AS Example,* FROM people
 
 
 
 
 -- 1. Example of CTE with simple SELECT 
 GO
 WITH people_CTE(CTE_Example, CTE_firstname, CTE_lastname, CTE_height)
 AS 
 (SELECT 'Example #1' AS Example, firstname, lastname, height 
  FROM people p
  WHERE height > 72)
 
  SELECT * 
  FROM people_CTE
 
 
 
 GO
 
 
 -- 2. For more examples, please see: 
 -- http://msdn.microsoft.com/en-us/library/ms175972(v=SQL.105).aspx
 
 
 
 DROP TABLE people;
 
 GO
 
 
 

Sample Output for With Common Table Expressions Example

Post from: IdealProgrammer.com

Related posts:

1. SELECT WHERE Clause- SQL Server Syntax Example: WHERE – T-SQL Example SELECT WHERE Clause- SQL Server Syntax Example: WHERE - T-SQL...
2. NOT – SQL Server Syntax Example: NOT – T-SQL Example NOT - SQL Server Syntax Example: NOT - T-SQL Example...
3. LIKE – SQL Server Syntax Example: LIKE – T-SQL Example LIKE - SQL Server Syntax Example: LIKE - T-SQL Example...

Related posts brought to you by Yet Another Related Posts Plugin.