este es el codigo:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Saturn.Framework.Web.UI" Assembly="Microsoft.Saturn.Framework, Version=0.5.464.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<script runat="server">
Function entrada(ByVal codigodearticulo As Integer, ByVal cantidad As String, ByVal fecha As String, ByVal entosal As String) As Integer
Dim connectionString As String = "server='localhost'; trusted_connection=true; Database='art'"
Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "INSERT INTO [movimientos] ([Codigo de articulo], [Cantidad], [Fecha], [ent o sal]) VALUES (@Codigodearticulo, @Cantidad, @Fecha, @entosal)"
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
sqlCommand.Parameters.Add("@Codigodearticulo", System.Data.SqlDbType.Int).Value = codigodearticulo
sqlCommand.Parameters.Add("@Cantidad", System.Data.SqlDbType.Char).Value = cantidad
sqlCommand.Parameters.Add("@Fecha", System.Data.SqlDbType.Char).Value = fecha
sqlCommand.Parameters.Add("@entosal", System.Data.SqlDbType.Char).Value = entosal
Dim rowsAffected As Integer = 0
sqlConnection.Open
Try
rowsAffected = sqlCommand.ExecuteNonQuery
Finally
sqlConnection.Close
End Try
Return rowsAffected
End Function
Function Inserto(ByVal codigodearticulo As Integer, ByVal detalle As String, ByVal stock As Integer, ByVal stockMinimo As Integer) As Integer
Dim connectionString As String = "server='localhost'; trusted_connection=true; Database='art'"
Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "INSERT INTO [Artic] ([Codigo de articulo], [Detalle], [Stock], [Stock Minimo]) VALUES (@Codigodearticulo, @Detalle, @Stock, @StockMinimo)"
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
sqlCommand.Parameters.Add("@Codigodearticulo", System.Data.SqlDbType.Int).Value = codigodearticulo
sqlCommand.Parameters.Add("@Detalle", System.Data.SqlDbType.Text).Value = detalle
sqlCommand.Parameters.Add("@Stock", System.Data.SqlDbType.Int).Value = stock
sqlCommand.Parameters.Add("@StockMinimo", System.Data.SqlDbType.Int).Value = stockMinimo
Dim rowsAffected As Integer = 0
sqlConnection.Open
Try
rowsAffected = sqlCommand.ExecuteNonQuery
Finally
sqlConnection.Close
End Try
Return rowsAffected
End Function
Sub Button1_Click(sender As Object, e As EventArgs)
If entrada(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text) > 0 and Inserto(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
Message.Text = "Success"
Else
Message.Text = "Failure"
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
</p>
<p>
<asp:TextBox id="TextBox2" runat="server"></asp:TextBox>
</p>
<p>
<asp:TextBox id="TextBox3" runat="server"></asp:TextBox>
</p>
<p>
<asp:TextBox id="TextBox4" runat="server"></asp:TextBox>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
</p>
<p>
<asp:Label id="Message" runat="server"></asp:Label>
</p>
<p>
<wmx:SqlDataSourceControl id="SqlDataSourceControl1" runat="server" DeleteCommand="" ConnectionString="server='localhost'; trusted_connection=true; Database='art'" AutoGenerateUpdateCommand="False" SelectCommand="SELECT * FROM [movimientos]" UpdateCommand="UPDATE [movimientos] SET [Codigo de articulo]=@param1,[Cantidad]=@Cantidad,[Fecha]=@Fecha,[ent o sal]=@param4 WHERE [Codigo de articulo]=@param5"></wmx:SqlDataSourceControl>
<wmx:MxDataGrid id="MxDataGrid1" runat="server" BorderStyle="None" BorderWidth="1px" DataKeyField="Codigo de articulo" CellPadding="3" BackColor="White" AllowPaging="True" DataMember="movimientos" AutoGenerateFields="False" AllowSorting="True" BorderColor="#CCCCCC" DataSourceControlID="SqlDataSourceControl1">
<PagerStyle horizontalalign="Center" forecolor="#000066" backcolor="White" mode="NumericPages"></PagerStyle>
<FooterStyle forecolor="#000066" backcolor="White"></FooterStyle>
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#669999"></SelectedItemStyle>
<ItemStyle forecolor="#000066"></ItemStyle>
<Fields>
<wmx:BoundField DataField="Numero" SortExpression="Numero" HeaderText="Numero"></wmx:BoundField>
<wmx:BoundField DataField="Codigo de articulo" SortExpression="Codigo de articulo" HeaderText="Codigo de articulo"></wmx:BoundField>
<wmx:BoundField DataField="Cantidad" SortExpression="Cantidad" HeaderText="Cantidad"></wmx:BoundField>
<wmx:BoundField DataField="Fecha" SortExpression="Fecha" HeaderText="Fecha"></wmx:BoundField>
<wmx:BoundField DataField="ent o sal" SortExpression="ent o sal" HeaderText="ent o sal"></wmx:BoundField>
</Fields>
<HeaderStyle font-bold="True" forecolor="White" backcolor="#006699"></HeaderStyle>
</wmx:MxDataGrid>
</p>
<p>
<wmx:SqlDataSourceControl id="SqlDataSourceControl2" runat="server" DeleteCommand="" ConnectionString="server='localhost'; trusted_connection=true; Database='art'" AutoGenerateUpdateCommand="False" SelectCommand="SELECT * FROM [Artic]" UpdateCommand="UPDATE [Artic] SET [Codigo de articulo]=@param1,[Detalle]=@Detalle,[Stock]=@Stock,[Stock Minimo]=@param4 WHERE [Codigo de articulo]=@param5"></wmx:SqlDataSourceControl>
<wmx:MxDataGrid id="MxDataGrid2" runat="server" BorderStyle="None" BorderWidth="1px" DataKeyField="Codigo de articulo" CellPadding="3" BackColor="White" AllowPaging="True" DataMember="Artic" AutoGenerateFields="False" AllowSorting="True" BorderColor="#CCCCCC" DataSourceControlID="SqlDataSourceControl2">
<PagerStyle horizontalalign="Center" forecolor="#000066" backcolor="White" mode="NumericPages"></PagerStyle>
<FooterStyle forecolor="#000066" backcolor="White"></FooterStyle>
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#669999"></SelectedItemStyle>
<ItemStyle forecolor="#000066"></ItemStyle>
<Fields>
<wmx:BoundField DataField="Numero" SortExpression="Numero" HeaderText="Numero"></wmx:BoundField>
<wmx:BoundField DataField="Codigo de articulo" SortExpression="Codigo de articulo" HeaderText="Codigo de articulo"></wmx:BoundField>
<wmx:BoundField DataField="Detalle" SortExpression="Detalle" HeaderText="Detalle"></wmx:BoundField>
<wmx:BoundField DataField="Stock" SortExpression="Stock" HeaderText="Stock"></wmx:BoundField>
<wmx:BoundField DataField="Stock Minimo" SortExpression="Stock Minimo" HeaderText="Stock Minimo"></wmx:BoundField>
</Fields>
<HeaderStyle font-bold="True" forecolor="White" backcolor="#006699"></HeaderStyle>
</wmx:MxDataGrid>
</p>
<p>
</p>
<!-- Insert content here -->
</form>
</body>
</html>