Solved

Simple VB.net passing data from .vb file to .aspx file

Posted on 2008-06-18
7
369 Views
Last Modified: 2013-11-26
I am looking to select data from a database in the .vb file so I can do an if/then statement. I then want that information to display on the .aspx page, in a gridview, or however it would be easiest. I am new to VB.net and just now getting a handle on it.

Below is the code for both the .vb file and the .aspx file. I think I have the connection string setup correctly but im not sure how to do the if/then in the .vb file. additionally I am stumped on how to get this to talk to the .aspx page and display the data.

Thanks for your help
---.vb file---

Imports System.Data.SqlClient

Partial Class _Default

    Inherits System.Web.UI.Page

    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim now = Date.Now

        Dim Conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")

        Dim SQL As String

        SQL = "SELECT * FROM court_gbs"

        Dim Comm As New SqlCommand(SQL, Conn)

        If court_gbs.judge = hoover Then

            Response.Write("test value")

        End If

        Conn.Close()

    End Sub

End Class
 
 
 

---.aspx file---

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
 

<!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>Untitled Page</title>

</head>

<body>

    <form id="form1" runat="server">

    <div>

    

    </div>

    <asp:GridView ID="GridView1" runat="server">

    </asp:GridView>

    </form>

</body>

</html>

Open in new window

0
Comment
Question by:drocco21
  • 5
  • 2
7 Comments
 
LVL 1

Author Comment

by:drocco21
Comment Utility
Here is the error, and also court_gbs is my table name, and judge is a column

Compiler Error Message: BC30451: Name 'court_gbs' is not declared.

Source Error:

 

Line 9:          SQL = "SELECT * FROM court_gbs"
Line 10:         Dim Comm As New SqlCommand(SQL, Conn)
Line 11:         If court_gbs.judge = hoover Then
Line 12:             Response.Write("test value")
Line 13:         End If
 
0
 
LVL 24

Accepted Solution

by:
Jeff Certain earned 500 total points
Comment Utility
It looks like you're missing a few pieces. First is how you get the data; ADO .NET uses a disconnected data model.

Dim dtJudges as New DataTable("Judges")
Using conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")
  Using cmd As New SqlCommand("SELECT * FROM court_gbs", conn)
    Using da As New SqlDataAdapter(cmd)
      da.Fill(dtJudges)
    End Using
  End Using
End Using
 
Now, you need to bind the datatable to the grid.
GridView1.DataSource = dtJudges

It's been a while since I've used ASP.NET, do I don't recall... you might have to add
GridView1.DataBind



0
 
LVL 1

Author Comment

by:drocco21
Comment Utility
Hello, I did what you stated above, but it is now saying the datatable is not defined. Below is the error and the new code:

Compiler Error Message: BC30002: Type 'DataTable' is not defined.

Source Error:

 

Line 4:      
Line 5:      Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Line 6:          Dim dtJudges As New DataTable("Judges")
Line 7:          Using conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")
Line 8:              Using cmd As New SqlCommand("SELECT * FROM court_gbs", conn)
 

Imports System.Data.SqlClient

Partial Class _Default

    Inherits System.Web.UI.Page

    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim dtJudges As New DataTable("Judges")

        Using conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")

            Using cmd As New SqlCommand("SELECT * FROM court_gbs", conn)

                Using da As New SqlDataAdapter(cmd)

                    da.Fill(dtJudges)

                End Using

            End Using

        End Using

        GridView1.DataSource = dtJudges

    End Sub

End Class

Open in new window

0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 1

Author Comment

by:drocco21
Comment Utility
OK, I was playing with this and in VS it recommended adding the following:
Imports System.Data
It now is working without error, but is a blank page with no data, not sure what that is all about. If this imports System.Data is wrong feel free to yell lol
Imports System.Data.SqlClient

Imports System.Data
 

Partial Class _Default

    Inherits System.Web.UI.Page
 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim dtJudges As New DataTable("Judges")

        Using conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")

            Using cmd As New SqlCommand("SELECT * FROM court_gbs", conn)

                Using da As New SqlDataAdapter(cmd)

                    da.Fill(dtJudges)

                End Using

            End Using

        End Using

        GridView1.DataSource = dtJudges

    End Sub

End Class

Open in new window

0
 
LVL 24

Expert Comment

by:Jeff Certain
Comment Utility
You'll also need to import System.Data.SqlClient.

I'm assuming that you're using SQL Server as your back end database.

Did you try adding GridView1.DataBind?
0
 
LVL 1

Author Comment

by:drocco21
Comment Utility
Sorry, should have paid more attention to what you said the first time, about the databind. I added the databind and all is well, thanks so much for your help. I have one more question and will put a link on the bottom of this, relating to if/then, then I am done. Below is the working code:
Imports System.Data.SqlClient

Imports System.Data
 

Partial Class _Default

    Inherits System.Web.UI.Page
 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim dtJudges As New DataTable("Judges")

        Using conn As New SqlConnection("Initial Catalog=court_dms;Data Source=DINO;Integrated Security=no; User ID=norton;PWD=goldcat13")

            Using cmd As New SqlCommand("SELECT * FROM court_gbs", conn)

                Using da As New SqlDataAdapter(cmd)

                    da.Fill(dtJudges)

                End Using

            End Using

        End Using

        GridView1.DataSource = dtJudges

        GridView1.DataBind()

    End Sub

End Class

Open in new window

0
 
LVL 1

Author Closing Comment

by:drocco21
Comment Utility
Thanks
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now