Asp.net display data from access data to text box

Question

0.00/5 (No votes)

See more:

hello..
i have problem to display data from access data to text box but dont display any think i have vs2013 and the code below:
aspx:

ASP.NET

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebForm1.aspx.vb" Inherits="WebApplication14.WebForm1" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
        <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
        <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
        <asp:Label ID="Label2" runat="server" Text="Label"></asp:Label>
        <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:Database1ConnectionString %>" ProviderName="<%$ ConnectionStrings:Database1ConnectionString.ProviderName %>" SelectCommand="SELECT * FROM [Table1]"></asp:SqlDataSource>
    </form>
</body>
</html>

vb.net:

VB

Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm1
    Inherits System.Web.UI.Page

    Private Sub getData(ByVal user As String)
        Dim dt As New DataTable()
        Dim connection As New SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Mohammed\Documents\Database1.mdb")
        connection.Open()
        Dim sqlCmd As New SqlCommand("SELECT * from TABLE1 WHERE UserID = @username", connection)
        Dim sqlDa As New SqlDataAdapter(sqlCmd)
        sqlCmd.Parameters.AddWithValue("@username", user)
        sqlDa.Fill(dt)
        If dt.Rows.Count > 0 Then
            TextBox1.Text = dt.Rows(0)("ID").ToString
            TextBox2.Text = dt.Rows(0)("PhoneNumber").ToString
            Label1.Text = dt.Rows(0)("ID").ToString
            Label2.Text = dt.Rows(0)("PhoneNumber").ToString
        End If
        connection.Close()
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Not Page.IsPostBack Then
            getData(Me.User.Identity.Name)
        End If
    End Sub
End Class

What I have tried:

i change th database and change the code but get error and i get this code but not work .

Thanks Advance

Posted 8-Jul-17 4:03am

Mohammed.iq

Updated 9-Jul-17 21:58pm

v2

Add a Solution

Comments

ZurdoDev 8-Jul-17 16:48pm

And the error is?

Mohammed.iq 9-Jul-17 11:05am

there is no error but the data not display.. thanks for your replay

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Bryian Tan · Answer 1 · 2017-07-08T12:06:00

Look like you will be getting " Keyword not supported: 'provider'. " error since the application is using SqlConnection class to access the Microsoft Access database. It should utilize the OleDbConnection class.

Here how the code should look like.

VB

Private Sub getData(ByVal user As String)

    Dim dt As New DataTable()
    ' Dim connection As New SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Mohammed\Documents\Database1.mdb")
    Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Mohammed\Documents\Database1.mdb")
    connection.Open()
    ' Dim sqlCmd As New SqlCommand("SELECT * from TABLE1 WHERE UserID = @username", connection)
    Dim sqlCmd As New OleDbCommand("SELECT * from TABLE1 WHERE UserID = @username", connection)
    'Dim sqlDa As New SqlDataAdapter(sqlCmd)
    Dim sqlDa As New OleDbDataAdapter(sqlCmd)
    sqlCmd.Parameters.AddWithValue("@username", user)
    sqlDa.Fill(dt)
    If dt.Rows.Count > 0 Then
        TextBox1.Text = dt.Rows(0)("ID").ToString
        TextBox2.Text = dt.Rows(0)("PhoneNumber").ToString
        Label1.Text = dt.Rows(0)("ID").ToString
        Label2.Text = dt.Rows(0)("PhoneNumber").ToString
    End If
    connection.Close()
End Sub

By the way is the SqlDataSource on the .aspx redundant?

Atlapure Ambrish · Answer 2 · 2017-07-09T21:58:00

Solution 2

Use "Configure Data Source.." option to construct connection string to your access database. you would see this option after you add SqlDataSource to your aspx page in design view and select it. Use "New Connection..." and "Microsoft Access Database File" options respectively from the dialog.

Posted 9-Jul-17 21:58pm

Atlapure Ambrish

Comments

Mohammed.iq 10-Jul-17 11:43am

thanks friend for your replay.. i do that but the same problem..