Creating blog in asp.net with VB code[Answered] RSS

3 replies

Last post Nov 14, 2016 06:20 AM by Brando ZWZ

‹ Previous Thread|Next Thread ›

Shortcuts

Related Links

Baiju EP

Member

297 Points

1171 Posts

Creating blog in asp.net with VB code

Nov 13, 2016 09:03 AM|Baiju EP|LINK

I have tried a creating web blog for LAN.

Default.aspx for CS

<%@ Page Title="" Language="C#" MasterPageFile="~/master.master" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
 
    <style type="text/css">
    .style1
    {
        text-align: left;
    }
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
      <div>
<div>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false" 
            class="gridview" ShowHeader="false" GridLines="None" 
            style="font-family: Arial, Helvetica, sans-serif; font-size: small">
<Columns>
<asp:TemplateField ShowHeader="false">
<ItemTemplate>
<tr>
<td>
<div class="BlogHead">
<h2><a href='<%# Eval("Id", "details.aspx?Id={0}") %>' class="BlogHead">
<asp:Label ID="Label1" runat="server" Text='<%#Eval("Title") %>'></asp:Label></a></h2>
</div>
<div class="post_meta">
    <span class="post_author blackLink nocursor"><asp:Label ID="Label2" runat="server" Text='<%#Eval("Author") %>'></asp:Label>,</span>
    <span class="date blackLink nocursor"><asp:Label ID="Label11" runat="server" Text='<%#Eval("BlogDate") %>'></asp:Label></span>
</div>
<br />
<div id="blbodythumb" style="text-align:justify;">
<p><asp:Label ID="Label100" runat="server" Text='<%#Eval("Content") %>' ></asp:Label></p></div><hr class="style-one" />
</td>
</tr>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<EmptyDataTemplate>
No data
</EmptyDataTemplate>
</asp:GridView>
</div>
    </div>
    

</asp:Content>

Default.aspx.CS Code is as under which works fine. Then i converted my blog to VB then VB code is not working

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using System.Data.SqlClient;

public partial class Default : System.Web.UI.Page
{
    SqlConnection con = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["ourdb"].ConnectionString);
    protected void Page_Load(object sender, EventArgs e)
    {
        BindBlog();
    }

    void BindBlog()
    {
        try
        {
            if (con.State == ConnectionState.Closed)
            {
                con.Open();
            }

            SqlCommand cmd = new SqlCommand("select * from BlogPost order by BlogDate desc ", con);
            SqlDataAdapter adp = new SqlDataAdapter(cmd);
            DataSet ds = new DataSet();
            adp.Fill(ds);
            GridView1.DataSource = ds;
            GridView1.DataBind();
            cmd.Dispose();
        }
        catch (Exception k)
        {
            Response.Write(k.Message);
            //throw;
        }
        finally
        {
            con.Close();
        }

    }
}

Default.aspx.VB code which is not working

Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient

Public Partial Class [Default]
	Inherits System.Web.UI.Page
	Private con As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ourdb").ConnectionString)
	Protected Sub Page_Load(sender As Object, e As EventArgs)
		BindBlog()
	End Sub

	Private Sub BindBlog()
		Try
			If con.State = ConnectionState.Closed Then
				con.Open()
			End If

			Dim cmd As New SqlCommand("select * from BlogPost order by BlogDate desc ", con)
			Dim adp As New SqlDataAdapter(cmd)
			Dim ds As New DataSet()
			adp.Fill(ds)
			GridView1.DataSource = ds
			GridView1.DataBind()
			cmd.Dispose()
		Catch k As Exception
				'throw;
			Response.Write(k.Message)
		Finally
			con.Close()
		End Try

	End Sub
End Class

Default.aspx

<%@ Page Title="" Language="VB" MasterPageFile="~/Master.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
 <style type="text/css">
    .style1
    {
        text-align: left;
    }
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
 <div>
<div>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="false" 
            class="gridview" ShowHeader="false" GridLines="None" 
            style="font-family: Arial, Helvetica, sans-serif; font-size: small">
<Columns>
<asp:TemplateField ShowHeader="false">
<ItemTemplate>
<tr>
<td>
<div class="BlogHead">
<h2><a href='<%# Eval("Id", "details.aspx?Id={0}") %>' class="BlogHead">
<asp:Label ID="Label1" runat="server" Text='<%#Eval("Title") %>'></asp:Label></a></h2>
</div>
<div class="post_meta">
<span class="post_author blackLink nocursor"><asp:Label ID="Label2" runat="server" Text='<%#Eval("Author") %>'></asp:Label>,</span>
<span class="date blackLink nocursor"><asp:Label ID="Label11" runat="server" Text='<%#Eval("BlogDate") %>'></asp:Label></span>
</div>
<br />
<div id="blbodythumb" style="text-align:justify;">
<p><asp:Label ID="Label100" runat="server" Text='<%#Eval("Content") %>' ></asp:Label></p></div><hr class="style-one" />
</td>
</tr>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<EmptyDataTemplate>
No data
</EmptyDataTemplate>
</asp:GridView>
</div>
</div>
</asp:Content>

please guide me

- Reply
mgebhard
All-Star

52241 Points

23306 Posts

Re: Creating blog in asp.net with VB code

Nov 13, 2016 12:51 PM|mgebhard|LINK

Baiju EP
I have tried a creating web blog for LAN.

Can you clarify? This is a blog about a LAN or you actually placed the source files on a LAN? Keep in mind that web apps are hosted. Simply dropping .NET source files on a LAN does not magically create a web application.

Baiju EP
Default.aspx.CS Code is as under which works fine. Then i converted my blog to VB then VB code is not working

"Not working" is not very informative. What is not working? Are there errors and if so what are the errors? Does not working mean you are not getting the expected results? If so, what is your expected result and what actually happens.

Baiju EP
please guide me

Keep in mind that the way you have written the code, editing will be an issue because you are not using the the "If Page.IsPostBack" conversion.

I strongly suggest that you click the Learn link above and go through a few Web Forms tutorials to get an understanding of the basics.

https://www.asp.net/web-forms
- Reply
Baiju EP
Member

297 Points

1171 Posts

Re: Creating blog in asp.net with VB code

Nov 14, 2016 02:43 AM|Baiju EP|LINK

This blog is a part of an asp.net+VB web. and hosted in a web server which is not connected to internet. a small private network.

Brando ZWZ

Star

9831 Points

3120 Posts

Re: Creating blog in asp.net with VB code

Nov 14, 2016 06:20 AM|Brando ZWZ|LINK

Hi Baiju EP,

Baiju EP
Default.aspx.CS Code is as under which works fine. Then i converted my blog to VB then VB code is not working

According to your VB codes, I found you missed the "Handles Me.Load" keyword in the page load event.

If you missed the keyword, the vb.net aspx page will not executed the page load event's codes when page loaded.

Here is a small test:

ASXP:

<asp:TextBox ID="txtCounter" runat="server"></asp:TextBox>
<asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClientClick="return CheckIsRepeat();"  OnClick="btnSubmit_Click" />
        <hr/>
        Button Click event:<asp:Label ID="Label1" runat="server" Text=" "></asp:Label>
        <br/>
        Page load event：<asp:Label ID="Label2" runat="server" Text=""></asp:Label>
    </div>

Code-behind:

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label2.Text = "Pageload executed"
    End Sub

    Protected Sub btnSubmit_Click(sender As Object, e As EventArgs)
        Label1.Text = "Suceess"
    End Sub

The result is:

Without Handles Me.Load result is:

So I suggest you could change your VB code as below:

public partial class Default : System.Web.UI.Page Handles Me.Load
{
    SqlConnection con = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["ourdb"].ConnectionString);
    protected void Page_Load(object sender, EventArgs e)
    {
        BindBlog();
    }

 ......
}

Best Regards,

Brando

.NET forums are moving to a new home on Microsoft Q&A, we encourage you to go to Microsoft Q&A for .NET for posting new questions and get involved today.

‹ Previous Thread|Next Thread ›