Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

2010 Access Services questions?

Status
Not open for further replies.

DougP

MIS
Dec 13, 1999
5,985
0
36
US
I suppose this only works if you have a Sharepoint server?

I have been waiting/hoping Microsoft would come up with something to allow a Access db to be put on a WEB site and it would act like a WEB page?

Any ideas, I need something that has fill-in forms and can save the data to Access, without having to create pages from scratch. And I have no budget to by something. I tried Adobe Acrobat but that was a massive learning curve. and is so time consuming, I'm not going to use it ever again.

DougP
 
I also just stumbled across WEB forms in Access. do you know if it requires Sharepoint or just upload them? I saw a vid that said they did not require Access to be viewed.

DougP
 
NO it requires sharepoint too. That's why there are 3rd party apps.


DougP
 
They did its called ASP [upsidedown] You need to write the front end in a script. You can use just about any script language out there. I use MS Visual Studio 2010 to write web based apps with access backends and i prefer VB but you are not limited to

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
 
I have Microsoft Visual Web Developer 2010 Express.
I need to layout 138 fields on 8 forms. which is done in Access already from an Adobe Acrobat form exported from their data manager to ASCII text, then imported into Access.

in VS-2010 I had some error with Access db? not wanting to connect? so I was testing with SQL Express.
But now this in not a VB forum it's Access so I need to go over there for help? to VB.NET or ASP.NET? or?

Thanks though, back to square 1 again.
Happy Holidays



DougP
 
Not to over whelm but this is an example that queries a db for a result. The page has a text box and a submit button to prompt the user for input. the results are displayed in a data grid and instructions on how to proceed are displayed below the data grid. it has been edited because I am subject to a privacy agreement so any reference to the company I work for has been edited with comments

Code:
<%@ Page Language="VB" Debug="false" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">[/URL]
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">

    Sub btnSearch_OnClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim objCommand As OleDbCommand
        Dim objAdapter As OleDbDataAdapter
        Dim objDataSet As DataSet
        Dim strSearch As String
        Dim objConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\the path to your db here"
        Dim cn As New OleDbConnection(objConnection)
        Dim strSQLQuery As String
        
        strSearch = txtSearch.Text
        If Page.IsValid Then
            If Len(Trim(strSearch)) > 0 Then
                strSQLQuery = "SELECT This is your SQL here tblName.AccountNumber)=" & strSearch & "));"
                cn.Open()
                        
                Dim cmd As New OleDbCommand(strSQLQuery, cn)
            
                objCommand = New OleDbCommand(strSQLQuery, cn)
                objAdapter = New OleDbDataAdapter(objCommand)
                objDataSet = New DataSet()
                objAdapter.Fill(objDataSet)

                dgPaging.DataSource = objDataSet
                dgPaging.DataBind()
                If dgPaging.Items.Count = 0 Then
                    txtResults.Text = "No matching records found. Please proceed with transaction"
                    txtResults.ForeColor = Drawing.Color.Green
                Else
                    txtResults.Text = "Result found message here"
                    txtResults.ForeColor = Drawing.Color.Red
                End If
                cn.Close()
            Else
                txtSearch.Text = "Account Number required"
                txtResults.Text = ""
                dgPaging.DataSource = ""
                dgPaging.DataBind()
            End If
        End If
    End Sub
    Public Sub btnClear_OnClick(ByVal sender As Object, ByVal e As EventArgs)
        txtSearch.Text = ""
        txtResults.Text = ""
        dgPaging.DataSource = ""
        dgPaging.DataBind()
    End Sub
    Protected Sub dgPaging_SelectedIndexChanged(sender As Object, e As System.EventArgs)

    End Sub
</script>
<html>
<head>
    <title>Query Results Results</title>
    <style type="text/css">
        .style1
        {
            width: 168px;
            height: 44px;
            float: left;
        }
        .style2
        {
            font-family: "Microsoft Sans Serif";
            font-size: large;
        }
        .style5
        {
            width: 88px;
            height: 54px;
        }
        .style6
        {
            color: #FF0000;
            font-size: large;
        }
        .style8
        {
            font-family: "Microsoft Sans Serif";
        }
        .style9
        {
            width: 337px;
        }
    </style>
</head>
<body><table width="95%"><tr><td><center>
    <font face="Microsoft Sans Serif" size="1">
    <img alt="Logo" class="style1" longdesc="Logo" src="logo.gif" /><br />
    <br />
    <br />
    <br />
    </font>&nbsp;<strong style="text-decoration: underline"><span class="style8"><span 
        class="style6">Title</span></span><span class="style2"> of Search<br />
    </span>
    </strong><br />
    <font face="Microsoft Sans Serif" size="1">
        <img class="style5" 
        src="angled-stop-sign.jpg" /><br />

    <br />
    <form runat="server" style="height: 342px">
    <table>
    <tr><td align="left" class="style9"><strong>Please enter an account number</strong></td></tr>
    <tr><td class="style9"><asp:TextBox ID="txtSearch" runat="server" Width="200px" CausesValidation="False" />
    <asp:Button ID="btnSearch" runat="server" Text="Search" OnClick="btnSearch_OnClick" />
    <asp:Button ID="btnClear" runat="server" Text="Reset" OnClick="btnClear_OnClick"
        Width="61px" PostBackUrl="~/Search.aspx" /></td></tr><tr><td class="style9"><font style="font-family: 'Microsoft Sans Serif'; font-size: x-small; font-weight: bold;
        font-style: normal; font-variant: normal; color: #FF0000; text-transform: capitalize">.
        <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" Display="dynamic"
            ControlToValidate="txtSearch" ErrorMessage="Account number must contain 1-15 numeric values only."
            ValidationExpression="[0-9]{1,15}" /></font></td></tr></table>
    &nbsp;
    <br />
    <br />
    <asp:DataGrid ID="dgPaging" runat="server" HeaderStyle-Font-Bold="True" OnSelectedIndexChanged="dgPaging_SelectedIndexChanged"
        BorderColor="Blue" BorderStyle="Dotted" Caption="Search Results" CaptionAlign="Top"
        CellSpacing="2" Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
        Font-Overline="False" Font-Size="X-Small" Font-Strikeout="False" Font-Underline="False"
        GridLines="Horizontal" CellPadding="2" BackColor="#CCFF33" 
        ForeColor="Blue" Height="16px"
        HorizontalAlign="Center" Width="75%">
        <AlternatingItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
            Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
            ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
        <EditItemStyle BackColor="Black" Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
            Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
            HorizontalAlign="Center" Wrap="False" />
        <FooterStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
            Font-Underline="False" Wrap="False" />
        <HeaderStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
            Font-Overline="False" Font-Size="X-Small" Font-Strikeout="False" Font-Underline="False"
            ForeColor="Black" HorizontalAlign="Center" Wrap="False"></HeaderStyle>
        <ItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
            Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
            ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
        <PagerStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" Font-Size="XX-Small"
            Font-Strikeout="False" Font-Underline="False" Wrap="False" />
        <SelectedItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
            Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
            ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
    </asp:DataGrid>
    <br />
    <br />
    <font face="Microsoft Sans Serif" size="1">
    <asp:TextBox ID="txtResults" runat="server" Width="75%" BorderStyle="None" Height="71px"
        BorderWidth="0px" ForeColor="#0000CC" TextMode="MultiLine" 
        Font-Bold="True" Font-Names="Microsoft Sans Serif"
        Font-Size="Medium" />
    </font>
    <br />
    <br />
    <br />
    <br />
    <br />
    <br />
    </form>
    <table align="center" width="75%" style="height: 41px">
        <tr align="center">
            <td align="center" width="75%">
                <font face="ms san " style="font-family: 'Microsoft Sans Serif'; font-size: x-small;
                    font-weight: normal; color: #808080">company name confidential - for internal use only</font>
            </td>
        </tr>
        <tr>
            <td align="center" width="75%">
                <font style="font-family: 'Microsoft Sans Serif'; font-size: x-small; font-weight: normal;
                    color: #808080">Copyright © 2011 company name here.</font>
            </td>
        </tr>
    </table>
  </center></td></tr></table> 
</body>
</html>

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top