خرید بک لینک

Vote count: 0

Well, I've rooted around the previously asked questions, changed my code three or four times and still am unable to get the form I'm working on to insert data into my table. Looking for helpful suggestions.

Form code:

<div>
    <table align="center" width="200px" cellpadding="5px">
        <tr><td width="50px">Season:</td><td width="150px">
            <asp:DropDownList name="Season" ID="ddlSeason" runat="server" AutoPostBack="True" DataSourceID="SqlDataSource1" DataTextField="Season" DataValueField="Season">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource1" runat="server" CoectionString="<%$ CoectionStrings:SeasonCoectionString %>" ProviderName="<%$ CoectionStrings:SeasonCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_Season] ORDER BY [Season]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Game: </td><td>
            <asp:DropDownList name="Game" ID="ddlGameNumber" runat="server" AutoPostBack="True" DataSourceID="SqlDataSource2" DataTextField="Game" DataValueField="Game">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource2" runat="server" CoectionString="<%$ CoectionStrings:GameNumberCoectionString %>" ProviderName="<%$ CoectionStrings:GameNumberCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_GameNumbers] ORDER BY [Game]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Team: </td><td>
            <asp:DropDownList name="Team" ID="ddlTeam" runat="server" Height="16px" Width="122px" AutoPostBack="True" DataSourceID="SqlDataSource3" DataTextField="Team" DataValueField="Team">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource3" runat="server" CoectionString="<%$ CoectionStrings:TeamCoectionString %>" ProviderName="<%$ CoectionStrings:TeamCoectionString.ProviderName %>" SelectCommand="SELECT DISTINCT * FROM [T_Teams] ORDER BY [Team]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Player: </td><td>
            <asp:DropDownList name="Player" ID="ddlPlayer" runat="server" Height="16px" Width="121px" AutoPostBack="True" DataSourceID="SqlDataSource4" DataTextField="Player" DataValueField="Player">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource4" runat="server" CoectionString="<%$ CoectionStrings:PlayerCoectionString %>" ProviderName="<%$ CoectionStrings:PlayerCoectionString.ProviderName %>" SelectCommand="SELECT DISTINCT [Team], [Player] FROM [T_Passing] WHERE (([Season] = ?) AND ([Team] = ?)) ORDER BY [Player]">
                <SelectParameters>
                    <asp:ControlParameter ControlID="ddlSeason" Name="Season" PropertyName="SelectedValue" Type="String" />
                    <asp:ControlParameter ControlID="ddlTeam" Name="Team" PropertyName="SelectedValue" Type="String" />
                </SelectParameters>
            </asp:SqlDataSource>
            </td></tr>
        <tr><td>Atts: </td><td>
            <asp:DropDownList name="Atts" ID="ddlAtts" runat="server" DataSourceID="SqlDataSource5" DataTextField="Game" DataValueField="Game">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource5" runat="server" CoectionString="<%$ CoectionStrings:AttsCoectionString %>" ProviderName="<%$ CoectionStrings:AttsCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_Atts] ORDER BY [Game]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Comps: </td><td>
            <asp:DropDownList name="Comps" ID="ddlComps" runat="server" DataSourceID="SqlDataSource6" DataTextField="Comps" DataValueField="Comps">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource6" runat="server" CoectionString="<%$ CoectionStrings:CompletionsCoectionString %>" ProviderName="<%$ CoectionStrings:CompletionsCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_Comps] ORDER BY [Comps]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Yards: </td><td>
            <asp:TextBox name="Yards" ID="txtYards" runat="server" Width="68px" Text="0"></asp:TextBox>
            </td></tr>
        <tr><td>TDs: </td><td>
            <asp:DropDownList name="TDs" ID="ddlTDs" runat="server" DataSourceID="SqlDataSource7" DataTextField="TDs" DataValueField="TDs">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource7" runat="server" CoectionString="<%$ CoectionStrings:TDCoectionString %>" ProviderName="<%$ CoectionStrings:TDCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_TDs] ORDER BY [TDs]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Ints: </td><td>
            <asp:DropDownList name="Ints" ID="ddlInts" runat="server" DataSourceID="SqlDataSource8" DataTextField="Ints" DataValueField="Ints">
            </asp:DropDownList>
            <asp:SqlDataSource ID="SqlDataSource8" runat="server" CoectionString="<%$ CoectionStrings:IntsCoectionString %>" ProviderName="<%$ CoectionStrings:IntsCoectionString.ProviderName %>" SelectCommand="SELECT * FROM [T_Ints] ORDER BY [Ints]"></asp:SqlDataSource>
            </td></tr>
        <tr><td>Long: </td><td>
            <asp:TextBox name="Longest" ID="txtLongest" runat="server" Width="67px" Text="0"></asp:TextBox>
            </td></tr>
        <tr><td colspan="2" align="center">
            <asp:Button ID="btnSubmit" runat="server" Text="Submit" />&nbsp;&nbsp;
            <asp:Button ID="btnCancel" runat="server" Text="Cancel" />
            </td></tr>
    </table>
</div>

Code Behind:

Protected Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    Dim season As String = Request.Form("Season")
    Dim game As String = Request.Form("Game")
    Dim team As String = Request.Form("Team")
    Dim player As String = Request.Form("Player")
    Dim atts As String = Request.Form("Atts")
    Dim comps As String = Request.Form("Comps")
    Dim yards As String = Request.Form("Yards")
    Dim tds As String = Request.Form("TDs")
    Dim ints As String = Request.Form("Ints")
    Dim longest As String = Request.Form("Longest")

    Dim objCoection As OleDbCoection = Nothing
    Dim objcmd As OleDbCommand = Nothing

    Dim sqlString As String
    Dim dbco As OleDbCoection = Nothing

    dbco = New OleDbCoection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("~/App_Data/TCFLStatistics.accdb"))
    dbco.Open()

    sqlString = "Insert into T_Passing (Season, Game, Team, Player, Atts, Comps, Yards, TDs, INTs, Longest) Values (?,?,?,?,?,?,?,?,?,?)"
    objcmd = New OleDbCommand(sqlString, dbco)
    objcmd.Parameters.AddWithValue("@Season", ddlSeason.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Game", ddlGameNumber.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Team", ddlTeam.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Player", ddlPlayer.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Atts", ddlAtts.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Comps", ddlComps.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Yards", txtYards.Text)
    objcmd.Parameters.AddWithValue("@TDs", ddlTDs.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@INTs", ddlInts.SelectedValue.ToString)
    objcmd.Parameters.AddWithValue("@Longest", txtLongest.Text)
    objcmd.ExecuteNonQuery()

    dbco.Close()
    MsgBox("Record submitted successfully!")

End Sub

asked 10 secs ago

برچسب: نویسنده: استخدام کار تاريخ: پنجشنبه 7 مرداد 1395 ساعت: 20:31

صفحه بندی