This is a multi-part message in MIME format.
------=_NextPart_000_002A_01C18650.D8BC2880
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola a todos, estoy haciendo un materia en el Universitario Autonomo del
Sur, en Montevideo Uruguay, en le cual estamos haciendo un mini taller
de
.net.
El mini taller constas simplemente de altas/bajas y modificaciones del
la
tabla titles de la base pubs que viene en el sql server.
La dificultada que estoy teniendo es que al usar una datagrid con un
template que contiene un dropdownlist (cargado dinamicamente) y hacer un
update da error de tipos.
Aqui es donde da error
Sub MyDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs)
.......
CurrentTextBox =3D E.Item.Cells(I).Controls(0)
Actualmente la version esta completamente funcional (no cancela) porque
el
dropdown list esta comentado.
<asp:BoundColumn HeaderText=3D"ID_publicaci=F3n"
SortExpression=3D"pub_id"
DataField=3D"pub_id"/>
<%--
<asp:TemplateColumn HeaderText=3D"publicacion"
SortExpression=3D"pub_id">
<ItemTemplate>
<asp:Label runat=3D"server" Text=3D'<%#
DataBinder.Eval(Container.DataItem, "pub_id") %>'/>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList id=3D"edit_pub"
DataTextField =3D "name"
DataValueField =3D "id"
DataSource=3D'<%# GetPublishers() %>'
runat=3D"server"/>
</asp:DropDownList>
</EditItemTemplate>
</asp:TemplateColumn>
--%>
Desde ya les agradezo a quienes me puedan ayudar
Les adjunto el archivo tiene algunas cosas interesantes
Tambien va el de alta (no esta completo lo terminaremos seguramente para
ma=F1ana).
No se si les llego este mail, por las dudas les envio el alta tambien
<%@ Import Namespace=3D"System.Data" %>
<%@ Import Namespace=3D"System.Data.SqlClient" %>
<html>
<script language=3D"VB" runat=3D"server">
Dim MyConnection As SqlConnection
'**********************************************
Sub Page_Load(Sender As Object, E As EventArgs)
' MyConnection =3D New
SqlConnection("server=3D(local)\NetSDK;database=3Dpubs;Trusted_Connection
=3Dyes")
MyConnection =3D New
SqlConnection("server=3D(local);database=3Dpubs;Trusted_Connection=3Dyes"
)
If Not (IsPostBack)
'Carga combo con tipos
Dim DS1 As DataSet
Dim MyCommand1 As SqlDataAdapter
MyCommand1 =3D New SqlDataAdapter("select distinct type from
Titles", MyConnection)
DS1 =3D new DataSet()
MyCommand1.Fill(DS1, "Types")
ComboTypes.DataSource=3D DS1.Tables("Types").DefaultView
ComboTypes.DataBind()
End If
End Sub
'****************************************************
Sub AddTitle_Click(Sender As Object, E As EventArgs)
Message.InnerHtml =3D ""
'If (Page.IsValid)
Dim DS As DataSet
Dim MyCommand As SqlCommand
Dim InsertCmd As String =3D "INSERT INTO Titles (title_id,
title, type, pub_id, price, advance, royalty, ytd_sales, notes, pubdate)
VALUES (@title_id, @title, @type, @pub_id, @price, @advance, @royalty,
@ytd_sales, @notes, @pubdate) "
MyCommand =3D New SqlCommand(InsertCmd, MyConnection)
MyCommand.Parameters.Add(New SqlParameter("@title_id",
SqlDbType.NVarchar, 6))
MyCommand.Parameters("@title_id").Value =3D Ititle_id.Value
MyCommand.Parameters.Add(New SqlParameter("@title",
SqlDbType.NVarChar, 80))
MyCommand.Parameters("@title").Value =3D Ititle.Value
MyCommand.Parameters.Add(New SqlParameter("@type",
SqlDbType.NVarChar, 12))
MyCommand.Parameters("@type").Value =3D Itype.Value
MyCommand.Parameters.Add(New SqlParameter("@pub_id",
SqlDbType.NChar, 4))
'MyCommand.Parameters("@pub_id").Value =3D Ipub_id.Value
MyCommand.Parameters("@pub_id").Value =3D "0877"
MyCommand.Parameters.Add(New SqlParameter("@price",
SqlDbType.Money, 8))
MyCommand.Parameters("@price").Value =3D Iprice.Value
MyCommand.Parameters.Add(New SqlParameter("@advance",
SqlDbType.Money, 8))
'MyCommand.Parameters("@advance").Value =3D Iadvance.Value
MyCommand.Parameters("@advance").Value =3D 100
MyCommand.Parameters.Add(New SqlParameter("@royalty",
SqlDbType.Int, 4))
'MyCommand.Parameters("@royalty").Value =3D Iroyalty.Value
MyCommand.Parameters("@royalty").Value =3D 200
MyCommand.Parameters.Add(New SqlParameter("@ytd_sales",
SqlDbType.Int, 4))
'MyCommand.Parameters("@ytd_sales").Value =3D
Iytd_sales.Value
MyCommand.Parameters("@ytd_sales").Value =3D 300
MyCommand.Parameters.Add(New SqlParameter("@notes",
SqlDbType.NVarChar,200))
'MyCommand.Parameters("@notes").Value =3D Inotes.Value
MyCommand.Parameters("@notes").Value =3D "notas de pru."
MyCommand.Parameters.Add(New SqlParameter("@pubdate",
SqlDbType.datetime,8))
'MyCommand.Parameters("@pubdate").Value =3D Ipubdate.value
MyCommand.Parameters("@pubdate").Value =3D "01/01/2001"
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.InnerHtml =3D "<b>Record Added</b><br>" &
InsertCmd.ToString()
Catch Exp As SQLException
If Exp.Number =3D 2627
Message.InnerHtml =3D "ERROR: ya existe este t=EDtulo"
Else
Message.InnerHtml =3D "ERROR: No se pudo agregar
t=EDtulo"
End If
Message.Style("color") =3D "red"
End Try
MyCommand.Connection.Close()
'End If
End Sub
</script>
<body style=3D"font: 10pt verdana">
<form runat=3D"server">
<h3><font face=3D"Verdana">Modificaci=F3n de Tabla "Titles"
</font></h3>
<span id=3D"Message" EnableViewState=3D"false" style=3D"font: arial
11pt;" runat=3D"server"/><p>
<p></p>
<SELECT id=3D"ComboTypes" DataTextField=3D"Type" runat=3D"server"/>
<table style=3D"font: 8pt verdana">
<tr>
<td colspan=3D"2" bgcolor=3D"#aaaadd" style=3D"font:10pt
verdana">Alta de t=EDtulos </td>
</tr>
<tr>
<td nowrap>T=EDtulo ID: </td>
<td>
<input id=3D"Ititle_id" value=3D"0" type=3D"text"
runat=3D"server">
<asp:RequiredFieldValidator id=3D"Title_id_rec"
ControlToValidate=3D"Ititle_id"
ErrorMessage=3D"Requerido"
Display=3D"Static"
Font-Name=3D"Verdana" Font-Size=3D"12"
runat=3Dserver>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td nowrap>T=EDtulo: </td>
<td>
<input type=3D"text" id=3D"Ititle" value=3D" "
runat=3D"server">
<asp:RequiredFieldValidator id=3D"Title_rec"
ControlToValidate=3D"Ititle"
Display=3D"Static"
Font-Name=3D"Verdana" Font-Size=3D"12"
runat=3Dserver>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td nowrap>Tipo de publicaci=F3n: </td>
<td>
<input type=3D"text" id=3D"Itype" value=3D"business"
runat=3D"server">
<asp:RequiredFieldValidator id=3D"type_rec"
ControlToValidate=3D"Itype"
Display=3D"Static"
Font-Name=3D"Verdana" Font-Size=3D"12"
runat=3Dserver>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>Id publicaci=F3n: </td>
<td><nobr>
<input type=3D"text" id=3D"Ipub_id" value=3D"0"
runat=3D"server">
<asp:RequiredFieldValidator id=3D"pub_id_rec"
ControlToValidate=3D"Ipub_id"
Display=3D"Static"
Font-Name=3D"Verdana" Font-Size=3D"12"
runat=3Dserver>
*
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>Precio: </td>
<td><input type=3D"text" id=3D"Iprice" value=3D"0"
runat=3D"server">
<asp:RangeValidator
Type=3D"currency"
ErrorMessage=3D"Precio invalido"
ControlToValidate=3D"Iprice"
MaximumValue=3D"999999999"
MinimumValue=3D"0"
runat=3D"server"/>
</td>
</tr
<tr>
<td>Fecha publicaci=F3n: </td>
<td><input type=3D"text" id=3D"Ipubdate"
value=3D"01/01/2001" runat=3D"server"></td>
</tr
<tr>
<td></td>
<td style=3D"padding-top:15">
<input type=3D"button" OnServerClick=3D"AddTitle_Click"
value=3D"Nuevo T=EDtulo" runat=3D"server">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
View Cart
