E:\web\learnaspcom\htdocs\freebook\learn\ubtoc.xml LearnAsp.com - ASP ASP.net Free Lessons
Search Search

#1 worldwide
FREE Coding Lessons
since 1996
   THE BEST WAY to learn ASP & Asp.net!
Advertise Here!
click for details 		Credits Host:
DiscountASP.net 		Server Admin:
The "Team" 		Contact Info.
Charles M. Carroll 		<Asp.net blog>
<personal site>
xxx

Publishers Edit
by Shane Bauer

Here is code to show all records and hyperlink to a record in a database....

   filename=/students/shanebauer/datagrid.aspx

<Test Script Below>

 

<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
Sub Page_Load


Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"
Dim strSQL as string = "select * from publishers where state='NY'"
Dim Conn as New OLEDBConnection(strConn)
Dim Rdr as OLEDBDataReader
Conn.Open()

Dim cmd as New OleDbCommand(strSQL,Conn)
Rdr = cmd.ExecuteReader()
MyGrid.DataSource = Rdr
MyGrid.DataBind()

Rdr.close
Conn.Close

End Sub

</script>

<html>
<form runat="server">
<asp:DataGrid id="MyGrid" EnableViewState="False" AutoGenerateColumns="False" runat="server" Font-Name="Verdana" Font-Size="10pt" BackColor="white" Headerstyle-BackColor="#c0c0c0" Headerstyle-Font-Size="10pt" Headerstyle-Font-Style="bold" BorderColor="black">
    <columns>
        <asp:HyperLinkColumn HeaderText="&nbsp;" DataNavigateUrlField="PubID" DataNavigateUrlFormatString="Modify.aspx?id={0}" Text="Modify"/>
        
        <asp:BoundColumn HeaderText="Name" DataField="Name" />
        <asp:BoundColumn HeaderText="Company Name" DataField="company name" />
        <asp:BoundColumn HeaderText="Address" DataField="Address" />
        <asp:BoundColumn HeaderText="City" DataField="City" />
        <asp:BoundColumn HeaderText="State" DataField="State" />
        <asp:BoundColumn HeaderText="Zipcode" DataField="Zip" />
        <asp:BoundColumn HeaderText="Telephone" DataField="Telephone" />
        <asp:BoundColumn HeaderText="Fax" DataField="fax" />
        <asp:BoundColumn HeaderText="Comments" DataField="Comments" />
    </columns>
</asp:DataGrid>
</form>
</html>
Here is code to edit 1 record in a database....    filename=/students/shanebauer/modify.aspx

<Test Script Below>

 

<%@ Trace="True" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
Sub Page_Load

If NOT IsPostBack Then

    Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/experiments/data/biblio.mdb") & ";"

    Dim strSQL as string = "select * from publishers where PubID=?"


    Dim Conn as New OLEDBConnection(strConn)
    Dim Rdr as OLEDBDataReader
    Conn.Open()

    Dim cmd as New OleDbCommand(strSQL,Conn)

    cmd.Parameters.Add("@PubID",Request.QueryString("id"))
    trace.warn("Help",strSQL)
    Rdr = cmd.ExecuteReader()
    Rdr.Read()

    txtName.Text = CheckNulls(Rdr("Name"))
    txtCompany.Text = CheckNulls(Rdr("Company Name"))
    txtAddress.Text = CheckNulls(Rdr("Address"))
    txtCity.Text = CheckNulls(Rdr("City"))
    txtState.Text = CheckNulls(Rdr("State"))
    txtZip.Text = CheckNulls(Rdr("Zip"))

    txtTelephone.Text = CheckNulls(Rdr("Telephone"))

    txtFax.Text = CheckNulls(Rdr("Fax"))

    txtComments.Text = CheckNulls(Rdr("Comments"))
    txtID.Value = CheckNulls(Rdr("PubID"))


    Rdr.close
    Conn.Close
End If
End Sub

Sub submit_click(S as Object, E as EventArgs)

    Dim strConn as string ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:/data/biblio.mdb;"

    Dim strSQL as string
strSQL = "Update Publishers set Name='" & txtName.text & "',[Company Name]='" & txtCompany.text & "',[Address]='" & txtAddress.text & "',[City]='" & txtCity.text & "',[State]='" & txtState.text & "',[Zip]='" & txtZip.text & "',Telephone='" & txtTelephone.text & "',Fax='" & txtFax.text & "',Comments='" & txtComments.text & "' where PubID=" & Int32.Parse(txtID.Value)
    

    Dim Conn as New OLEDBConnection(strConn)
    Dim Rdr as OLEDBDataReader
    Conn.Open()

    Dim cmd as New OleDbCommand(strSQL,Conn)

    cmd.ExecuteNonQuery()

    Conn.Close()

    Response.Redirect("datagrid.aspx")

End Sub

Function CheckNulls(Thing as System.Object)
    Dim RtnString as String
    Dim strTypeName as string=typename(Thing)
    SELECT CASE strTypeName
        CASE "DBNull"
            RtnString = ""
        CASE ELSE
                                       trace.warn("Type Name",strTypeName)
            RtnString = Thing
    END SELECT
    Return RtnString
End Function

</script>

<html>
<form runat="server">

<input type="hidden" id="txtID" runat="server"/>
Name: <asp:textbox id="txtName" runat="server"/><br>
Company <asp:textbox id="txtCompany" runat="server"/><br>
Address: <asp:textbox id="txtAddress" runat="server"/><br>
City: <asp:textbox id="txtCity" runat="server"/><br>
State: <asp:textbox id="txtState" runat="server"/><br>
Zipcode: <asp:textbox id="txtZip" runat="server"/><br>
Telephone: <asp:textbox id="txtTelephone" runat="server"/><br>
Fax: <asp:textbox id="txtFax" runat="server"/><br>
Comments:<br><asp:textbox id="txtComments" textmode="Multiline" rows="10" columns="30" runat="server"/><br>


<asp:button id="btnSubmit" onclick="submit_click" runat="server" Text="Save" />
</form>
</html>
Send Us a Holiday Gift!. Charles celebrates Christmas, Jewish holidays, Kwanza, Chinese New Year, Japanese Holidays, Secretary Day, High Muslim Holy Days, Pagan & Wicca holidays, and many more! - send a gift any HOLIDAY. 2004 gift gallery & 2005 gift gallery