<%@ Page Language="VB" AutoEventWireup="false" CodeFile="tipo.aspx.vb" Inherits="_Default" %>
<%@Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Web.Mail" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Public Sub gridview1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs)
Dim rowint As Integer = Convert.ToInt32(e.CommandArgument)
Dim strvar As String = Convert.ToString(GridView1.Rows(rowint).Cells(1).Text)
Dim encomenda() As String
Dim i As Integer
i = 0
encomenda(i) = strvar
End Sub
</script>
<html>
<head>
<body>
<STYLE type=text/css>BODY {
BACKGROUND-IMAGE: url(estante.jpg)
}</STYLE>
<form id="form1" runat="server">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Ok" />
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" OnRowCommand="gridview1_RowCommand"
DataSourceID="AccessDataSource1"
EmptyDataText="Digite o tipo de artigo">
<Columns>
<asp:BoundField DataField="TipoArtigo" HeaderText="TipoArtigo"
SortExpression="TipoArtigo" />
<asp:BoundField DataField="Descricao" HeaderText="Descricao"
SortExpression="Descricao" />
<asp:BoundField DataField="Autor" HeaderText="Autor" SortExpression="Autor" />
<asp:BoundField DataField="Editora" HeaderText="Editora"
SortExpression="Editora" />
<asp:BoundField DataField="QuantDisponivel" HeaderText="QuantDisponivel"
SortExpression="QuantDisponivel" />
<asp:BoundField DataField="PrecoVenda" HeaderText="PrecoVenda"
SortExpression="PrecoVenda" />
<asp:ButtonField ButtonType="Button" CommandName="Select"
HeaderText="Encomendar" ShowHeader="True" Text="Encomendar" />
</Columns>
</asp:GridView>
<asp:AccessDataSource ID="AccessDataSource1" runat="server"
DataFile="App_Data\livraria.mdb"
SelectCommand="SELECT TipoArtigo, Descricao, Autor, Editora, QuantDisponivel, PrecoVenda FROM Artigo WHERE (TipoArtigo = ?) AND (QuantDisponivel > 0)">
<SelectParameters>
<asp:ControlParameter ControlID="TextBox1" Name="?" PropertyName="Text" />
</SelectParameters>
</asp:AccessDataSource>
</form>
</body>
</html>