Torna al Thread
[CODE]
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Odbc" %>
<html>
<script language="VB" runat="server">
Dim MyConnection As OdbcConnection
Sub Page_Load(Sender As Object, E As EventArgs)
MyConnection = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=lab82; User=root;Password=root;Option=3;")
If Not (IsPostBack)
BindGrid()
End If
End Sub
Sub AddAuthor_Click(Sender As Object, E As EventArgs)
Message.InnerHtml = ""
If (Page.IsValid)
Dim DS As DataSet
Dim MyCommand As OdbcCommand
Dim InsertCmd As String = "insert into Authors (au_id, au_lname, au_fname, phone, address, city, state, zip, contract) values (@LName, @FName, @Phone, @Address, @City, @State, @Zip, @Contract)"
MyCommand = New OdbcCommand(InsertCmd, MyConnection)
MyCommand.Parameters.Add(New OdbcParameter("@LName", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@LName").Value = Server.HtmlEncode(au_lname.Value)
MyCommand.Parameters.Add(New OdbcParameter("@FName", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@FName").Value = Server.HtmlEncode(au_fname.Value)
MyCommand.Parameters.Add(New OdbcParameter("@Phone", SqlDbType.NChar, 12))
MyCommand.Parameters("@Phone").Value = Server.HtmlEncode(phone.Value)
MyCommand.Parameters.Add(New OdbcParameter("@Address", SqlDbType.NVarChar, 40))
MyCommand.Parameters("@Address").Value = Server.HtmlEncode(address.Value)
MyCommand.Parameters.Add(New OdbcParameter("@City", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@City").Value = Server.HtmlEncode(city.Value)
MyCommand.Parameters.Add(New OdbcParameter("@State", SqlDbType.NChar, 2))
MyCommand.Parameters("@State").Value = stateabbr.Value
MyCommand.Parameters.Add(New OdbcParameter("@Zip", SqlDbType.NChar, 5))
MyCommand.Parameters("@Zip").Value = Server.HtmlEncode(zip.Value)
MyCommand.Parameters.Add(New OdbcParameter("@Contract", SqlDbType.NVarChar,1))
MyCommand.Parameters("@Contract").Value = contract.Value
MyCommand.Connection.Open()
[B] MyCommand.ExecuteNonQuery()[/B]
MyCommand.Connection.Close()
End If
BindGrid()
End Sub
Sub BindGrid()
Dim DS As DataSet
Dim MyCommand As OdbcDataAdapter
MyCommand = new OdbcDataAdapter("select * from Authors", MyConnection)
DS = new DataSet()
MyCommand.Fill(DS, "Authors")
MyDataGrid.DataSource=DS.Tables("Authors").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<body style="font: 10pt verdana">
<form runat="server">
<h3><font face="Verdana">Inserting a Row of Data w/ Validation</font></h3>
<table width="95%">
<tr>
<td valign="top">
<ASP:DataGrid id="MyDataGrid" runat="server"
Width="700"
BackColor="#ccccff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
EnableViewState="false"
/>
</td>
<td valign="top">
<table style="font: 8pt verdana">
<tr>
<td colspan="2" bgcolor="#aaaadd" style="font:10pt verdana">Add a New Author:</td>
</tr>
<tr>
<td nowrap>Author ID: </td>
<td>
</td>
</tr>
<tr>
<td nowrap>Last Name: </td>
<td>
<input type="text" id="au_lname" runat="server">
<asp:RequiredFieldValidator id="au_lnameReqVal"
ControlToValidate="au_lname"
Display="Static"
Font-Name="Verdana" Font-Size="12"
runat=server>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td nowrap>First Name: </td>
<td>
<input type="text" id="au_fname" runat="server">
<asp:RequiredFieldValidator id="au_fnameReqVal"
ControlToValidate="au_fname"
Display="Static"
Font-Name="Verdana" Font-Size="12"
runat=server>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>Phone: </td>
<td><nobr>
<input type="text" id="phone" runat="server">
<asp:RequiredFieldValidator id="phoneReqVal"
ControlToValidate="phone"
Display="Static"
Font-Name="Verdana" Font-Size="12"
runat=server>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>Address: </td>
<td><input type="text" id="address" runat="server"></td>
</tr>
<tr>
<td>City: </td>
<td><input type="text" id="city" runat="server"></td>
</tr>
<tr>
<td>State: </td>
<td>
<select id="stateabbr" runat="server">
<option>CA</option>
<option>IN</option>
<option>KS</option>
<option>MD</option>
<option>MI</option>
<option>OR</option>
<option>TN</option>
<option>UT</option>
</select>
</td>
</tr>
<tr>
<td nowrap>Zip Code: </td>
<td><input type="text" id="zip" runat="server"></td>
</tr>
<tr>
<td>Contract: </td>
<td>
<select id="contract" runat="server">
<option value="0">False</option>
<option value="1">True</option>
</select>
</td>
</tr>
<tr>
<td></td>
<td style="padding-top:15">
<input type="submit" OnServerClick="AddAuthor_Click" value="Add Author" runat="server">
</td>
</tr>
<tr>
<td colspan="2" style="padding-top:15" align="center">
<span id="Message" EnableViewState="false" style="font: arial 11pt;" runat="server"/>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
[/CODE]